Ayuda macro que busque espacios en blanco y copie
Hola! Que tal xD
Espero me puedas ayudar necesito hacer una macro que cuando en cierta columna busque los espacios en blanco y cuando encuentre uno copie el valor de arriba, por ejemplo:
A B
1 Mesa para tv
2 (aquí como encontró espacio en blanco pondría mesa para tv)
3 Frigobar
4 Balanza
Gracias y espero me puedas ayudar.
Espero me puedas ayudar necesito hacer una macro que cuando en cierta columna busque los espacios en blanco y cuando encuentre uno copie el valor de arriba, por ejemplo:
A B
1 Mesa para tv
2 (aquí como encontró espacio en blanco pondría mesa para tv)
3 Frigobar
4 Balanza
Gracias y espero me puedas ayudar.
1 Respuesta
Respuesta de kapapri
1
Selecciona el rango de celdas y corre esta macro
Sub macro1()
filafin = Selection.Rows.Count
filaini = Selection.Row
columna = Selection.Column
For i = filaini To filafin
If Cells(i, columna) = "" Then
Cells(i, columna) = Cells(i - 1, columna)
End If
Next i
End Sub
Sub macro1()
filafin = Selection.Rows.Count
filaini = Selection.Row
columna = Selection.Column
For i = filaini To filafin
If Cells(i, columna) = "" Then
Cells(i, columna) = Cells(i - 1, columna)
End If
Next i
End Sub
