Macro para buscar una palabra y pegar en las siguientes 4 celdas hacia abajo una x en cada celda.
En una hoja de Excel tengo la palabra "pondera" en diferentes filas en la columna A y quiero que me busque la palabra y que en las 4 celdas de abajo de de cada palabra "pondera 2 se escriba la letra "x" en cada celda hacia abajo. Todo esto lo deberia buscar en el rango A1 a A 8,000.
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Sub BuscarPondera()
'Por.Dante Amor
Set r = Columns("A")
Set b = r.Find("pondera", lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
Range(Cells(b.Row + 1, "A"), Cells(b.Row + 4, "A")) = "x"
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End Sub
Muchísimas gracias justo lo que necesitaba.
¡Gracias!
Anexo la explicación de la macro:
Sub BuscarPondera()
'Por.Dante Amor
'se establece en dónde se va a buscar
Set r = Columns("A")
'se busca con Find la palabra "pondera"
Set b = r.Find("pondera", lookat:=xlWhole)
If Not b Is Nothing Then
'si encontró algo, se almacena en una variable la dirección de la
'primera celda encontrada
ncell = b.Address
Do
'empieza un ciclo para buscar más coincidencias
' guarda en las celdas una "x"
Range(Cells(b.Row + 1, "A"), Cells(b.Row + 4, "A")) = "x"
'busca la siguiente coincidencia
Set b = r.FindNext(b)
'seguirá buscando coincidencias hasta que no encuentre o
'que encuentre nuevamente la primera celda encontrada
Loop While Not b Is Nothing And b.Address <> ncell
'fin del ciclo
End If
End Subsal u dos
Amigo Dante puedes explicar la secuencia del código ? - Adriel Ortiz Mangia
Comentario borrado por el autor - Dante Amor
Listo, código explicado. - Dante Amor
Gracias Dante - Adriel Ortiz Mangia