Insertar fila
Hola Tavopz!
Primero que nada saludos, espero que te la estés pasando bien.
Y pidiéndote que si por favor me puedas decir como lograr los siguiente.
Mira tengo una lista de varios conceptos lo que hago es que los ordeno, pero me gustaría insertar una fila entre los que son son diferentes a lo otros es decir.
Jabón
Jabón
Agua
Agua
Aceite
Aceite
Claro que se puede hacer manual pero me gustaría hacerlo automáticamente.
No se si me puedas ayudar.
De ante mano mil gracias!
Abrazos!
Primero que nada saludos, espero que te la estés pasando bien.
Y pidiéndote que si por favor me puedas decir como lograr los siguiente.
Mira tengo una lista de varios conceptos lo que hago es que los ordeno, pero me gustaría insertar una fila entre los que son son diferentes a lo otros es decir.
Jabón
Jabón
Agua
Agua
Aceite
Aceite
Claro que se puede hacer manual pero me gustaría hacerlo automáticamente.
No se si me puedas ayudar.
De ante mano mil gracias!
Abrazos!
1 respuesta
Respuesta de tavopz
1
Creo que se puede hacer mediante una macro, algo así:
=======
Sub Macro1()
Dim celda As Range
Dim newcell As String
newcell = Range("A1").Value
For Each celda In Sheet1.Range("ElRango")
If celda <> newcell Then
x = celda.Row
Rows(x & ":" & x).Select
Selection.Insert Shift:=xlDown
newcell = celda
End If
Next celda
End Sub
==========
=======
Sub Macro1()
Dim celda As Range
Dim newcell As String
newcell = Range("A1").Value
For Each celda In Sheet1.Range("ElRango")
If celda <> newcell Then
x = celda.Row
Rows(x & ":" & x).Select
Selection.Insert Shift:=xlDown
newcell = celda
End If
Next celda
End Sub
==========
