Excel - agregar filas

   
Vista:

agregar filas

Publicado por luis (24 intervenciones) el 07/09/2007 20:11:21
que tal, como les va?
necestio que me hechen la mano en algo:
necesito que al introducir una informacion en una celda, al dar Enter automaticamente me agrege otra celda, haciendo que la informacion que esta debajo descienda una fila.
nose si me explico, de ser asi, por favor, hechenme una mano.
muy agradecido,

luis
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:agregar filas

Publicado por JuanC (792 intervenciones) el 08/09/2007 13:09:44
acá te dejo una idea de cómo hacerlo...

Option Explicit
Option Private Module

'//By JuanC - 08 de Septiembre de 2007

Sub Install()
Application.OnKey "{ENTER}", "InsRow"
Application.OnKey "~", "InsRow"
End Sub

Sub Uninstall()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Private Sub InsRow()
On Error Resume Next
With ActiveCell
If .Row <> Rows.Count Then
.Offset(1).EntireRow.Insert
.Offset(1).Activate
End If
End With
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar