Necesito una macro que me busque en toda la columna K el valor 0, y si las celdas de abajo estan vacias lo rellene con el mismo valor, o sea 0.
Tengo esta macro que no funciona bien, porque me copia en todas las celdas el valor 0, sobreescribiendo en celdas que tienen otro valor distinto a cero y admás da un error.
Sub prueba()
Dim Celda As Range
Dim Primeradir As String
Set Celda = Range("K:K").Find(what:=Range(0).Value, _
After:=Range("K1"), _
Lookat:=xlWhole)
If Not Celda Is Nothing Then
Primeradir = CeldaAddress
Do
Celda.Offset(1, 0).Value = 0
Set Celda = Range("K:K").FindNext(Celda)
Loop While (Not Celda Is Nothing) And (Celda.Address <> Primeradir)
End If
End Sub
Agradecería que alguin me ayudara, yo no soy capaz de sacarla.
Muchísimas gracias!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días,
Necesito una macro que me busque en toda la columna K el valor 0, y si las celdas de abajo estan vacias lo rellene con el mismo valor, o sea 0.
Tengo esta macro que no funciona bien, porque me copia en todas las celdas el valor 0, sobreescribiendo en celdas que tienen otro valor distinto a cero y admás da un error.
Sub prueba()
Dim Celda As Range
Dim Primeradir As String
Set Celda = Range("K:K").Find(what:=Range(0).Value, _
After:=Range("K1"), _
Lookat:=xlWhole)
If Not Celda Is Nothing Then
Primeradir = CeldaAddress
Do
Celda.Offset(1, 0).Value = 0
Set Celda = Range("K:K").FindNext(Celda)
Loop While (Not Celda Is Nothing) And (Celda.Address <> Primeradir)
End If
End Sub
Agradecería que alguin me ayudara, yo no soy capaz de sacarla.
Muchísimas gracias!