31/05/2010, 08:16
|
 | | | Fecha de Ingreso: noviembre-2007 Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 17 años, 1 mes Puntos: 69 | |
| Respuesta: Excel vba desplazar celda
Prueba con esto en tu hoja...copia y pega esto sobre la hoja en la q insertas los datos...yo estoy tomando por default q son las columnas 1 y 2 donde insertas los datos... Haz la prueba en una hoja vacia primero si quieres para q veas q es lo que hace.....
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Column = 2 Then
Range("A1:B1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
ErrHandler:
Application.EnableEvents = True
End Sub |