Agregar celdas
Que tal espero no quitarte mucho de tu tiempo y que puedas ayudarme a elaborar una macro.
Si en columna "D3" tengo unos datos ejem.
80705899
80705899
80705899
80705890
80705891
Lo que quiero es que cuando la macro determine que no es igual a la anterior celda me agregue otra vacía hasta que encuentre una celda vacía y se detenga, espero que haberme explicado bien y ojala puedas ayudarme de antemano gracias!
Si en columna "D3" tengo unos datos ejem.
80705899
80705899
80705899
80705890
80705891
Lo que quiero es que cuando la macro determine que no es igual a la anterior celda me agregue otra vacía hasta que encuentre una celda vacía y se detenga, espero que haberme explicado bien y ojala puedas ayudarme de antemano gracias!
1 respuesta
Respuesta de fejoal
1
Cortito, pues ya me quiero ir a casa.
Este es la macro que necesitas. Inserta un fila completa, toda vez que no aclaraste si debía hacerlo o solo desplazar las celdas hacia abajo.
Pega este código en un módulo de VBA:
Sub InsFila()
Actcel = ActiveCell.Value
Do While Not IsEmpty(ActiveCell)
If Actcel <> ActiveCell.Offset(1).Value Then
Actcel = ActiveCell.Offset(1).Value
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Loop
End Sub
Cierra el VBE y graba el archivo.
Elige la primer celda en la columna DE ( o cualquiera, funciona igual) y ejecuta InsFila.
Creo que resuelve satisfactoriamente tu consulta, pero dime si necesita algún ajuste.
Un gran abrazo!
Fernando
Este es la macro que necesitas. Inserta un fila completa, toda vez que no aclaraste si debía hacerlo o solo desplazar las celdas hacia abajo.
Pega este código en un módulo de VBA:
Sub InsFila()
Actcel = ActiveCell.Value
Do While Not IsEmpty(ActiveCell)
If Actcel <> ActiveCell.Offset(1).Value Then
Actcel = ActiveCell.Offset(1).Value
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Loop
End Sub
Cierra el VBE y graba el archivo.
Elige la primer celda en la columna DE ( o cualquiera, funciona igual) y ejecuta InsFila.
Creo que resuelve satisfactoriamente tu consulta, pero dime si necesita algún ajuste.
Un gran abrazo!
Fernando
