MACRO PARA BUSCAR VALOR Y COPIARLO HACIA ABAJO

[JHONSI70]

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!

 

[JSDJSD]

    Dim buscado As Variant
    Dim ufh1 As Long
    
    With Hoja1
    ufh1 = .Range("K" & Rows.Count).End(xlUp).Row
        For Each buscado In .Range("K2:K" & ufh1)
            If buscado = "" And .Cells(buscado.Row - 1, 11) = 0 Then
                .Cells(buscado.Row, 11) = 0
            End If
        Next
    End With

Prueba y comenta

[JSDJSD]

Libro1.xlsm

[JSDJSD]

También te dejo para que veas como funciona

[JHONSI70]

Muchísimas gracias, funciona perfectamente.

[JHONSI70]

Hace 14 horas, JSDJSD dijo:

    Dim buscado As Variant
    Dim ufh1 As Long
    
    With Hoja1
    ufh1 = .Range("K" & Rows.Count).End(xlUp).Row
        For Each buscado In .Range("K2:K" & ufh1)
            If buscado = "" And .Cells(buscado.Row - 1, 11) = 0 Then
                .Cells(buscado.Row, 11) = 0
            End If
        Next
    End With

Prueba y comenta

He estado probando y no va bien cuando encuentra una celda con un valor tipo "9.03". Entonces pone un 0 en la celda superior si esta vacía.

[JSDJSD]

Hace 3 horas, JHONSI70 dijo:

He estado probando y no va bien cuando encuentra una celda con un valor tipo "9.03". Entonces pone un 0 en la celda superior si esta vacía.

Sube tu ejemplo en el cual ocurre lo que comentas

[JHONSI70]

Hola,

Lo he probado en el libro que has subido colocando unos pocos importes de mi listado.

En la columa "K" estan los datos y en la " L" la copia de los datos originales (antes de ejecutar la macro).

Como verás, en la columan "K" he marcado en negrita los ceros que no deberián estar. Los coloca enciama de los importes 9.03€ y 3.05€

Datos copia datos 0.00€ 0.00€ 8.40€ 8.40€ 17.84€ 17.84€     0   9.03€ 9.03€ 8.40€ 8.40€ 0.00€ 0.00€ 12.60€ 12.60€     0   0   3.05€ 3.05€ 0.00€ 0.00€ 0   0   0.00€ 0.00€ 0.00€ 0.00€ 0   0.00€ 0.00€ 0   5.25€ 5.25€ 4.20€ 4.20€ 4.20€ 4.20€ 0.00€ 0.00€ 0   0   25.07€ 25.07€ 0.00€ 0.00€ 0.00€ 0.00€ 12.60€ 12.60€ 0.00€ 0.00€ 0   0.00€ 0.00€ 0   0   0.00€ 0.00€

 

Espero que en este ejemplo se vea claro a lo que me refiero.

Muchas gracias por ayudarme.

[JSDJSD]

Prueba ahora a ver.

Dim buscado As Variant
    Dim ufh1 As Long
    
    With Hoja1
    ufh1 = .Range("K" & Rows.Count).End(xlUp).Row
        For Each buscado In .Range("K2:K" & ufh1)
            If buscado = "" And .Cells(buscado.Row - 1, 11) = 0 And _
                       Not .Cells(buscado.Row - 1, 11) = "" Then
                .Cells(buscado.Row, 11) = 0
            End If
        Next
    End With

 

[JSDJSD]

Libro1.xlsm