Insertar fila en blanco cuando cambie el valor de una columna
publicado
Hola a todos de nuevo. Yo y mis problemas. Ahora lo que necesito es insertar una fila en blanco cuando cambie el valor de una columna determinada. He creado la siguiente macro, pero no me funciona
Sub Inserta_fila()
'Insertar fila en blanco cuando cambie el valor de la columna D
Dim lngRow As Long, intRow As Long
Range("D1").CurrentRegion.Sort _
lngRow = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = lngRow To 2 Step -1
If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _
Rows(intRow).Resize(1).Insert
Next intRow
End Sub
En la columna D existen valores duplicados:
101
101
101
102
102
102
111
111
111
lo que quiero es que cada vez que cambie el valor de esta columna inserte una fila en blanco.
El fichero se graba diario y siempre hay que respetar los valores del día anterior
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos de nuevo. Yo y mis problemas. Ahora lo que necesito es insertar una fila en blanco cuando cambie el valor de una columna determinada. He creado la siguiente macro, pero no me funciona
Sub Inserta_fila()
'Insertar fila en blanco cuando cambie el valor de la columna D
Dim lngRow As Long, intRow As Long
Range("D1").CurrentRegion.Sort _
lngRow = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = lngRow To 2 Step -1
If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _
Rows(intRow).Resize(1).Insert
Next intRow
End Sub
En la columna D existen valores duplicados:
101
101
101
102
102
102
111
111
111
lo que quiero es que cada vez que cambie el valor de esta columna inserte una fila en blanco.
El fichero se graba diario y siempre hay que respetar los valores del día anterior