Para Armando
Publicado por francisco (26 intervenciones) el 29/04/2010 13:13:12
Hola a todos/as
Armando me dirijo a ti por que e estado leyendo en el foro y e
encontrado una posible solucion a mi problema con crear una linea
nueva pero no se como colocar el codigo para que me funcione
ya que soy novato en programar .Te agradeceria una breve explicacion
para que se ejecute con facilidad.
El codigo es
Sub InsRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
With Range("A" & i)
If .Value <> .Offset(-1).Value Then Rows(i).Insert
End With
Next i
End Sub
Gracias y perdona las molestias
UN SALUDO DE UN NOVATO
Armando me dirijo a ti por que e estado leyendo en el foro y e
encontrado una posible solucion a mi problema con crear una linea
nueva pero no se como colocar el codigo para que me funcione
ya que soy novato en programar .Te agradeceria una breve explicacion
para que se ejecute con facilidad.
El codigo es
Sub InsRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
With Range("A" & i)
If .Value <> .Offset(-1).Value Then Rows(i).Insert
End With
Next i
End Sub
Gracias y perdona las molestias
UN SALUDO DE UN NOVATO
Valora esta pregunta


0