Anónimo
Buscar una palabra en la columna B y si esta es igual copiar en la misma fila pero en la columna E
Me atrevo a buscarlo por que es el mejor experto que eh visto en paginas. Le mando mis felicitaciones.
Y quisiera que me apoyara con esta solicitud:
Si en la Columna B se encuentra el texto "Soporte Técnico"
Copiarlo o moverlo a la celda E pero que me lo coloque en la misma Fila que encontró el texto"Soporte Técnico"
Ejemplos:
Si lo encuentra en B35, copiarlo en E35 y si también lo encuentra en B50, copiarlo o moverlo a E50, y así en todas las celdas que exista este Texto.
2 respuestas
Te anexo una macro
Sub CopiarPalabra()
'Por.Dante Amor
Set b = Columns("B").Find("Soporte Técnico", lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do: Cells(b.Row, "E") = b.Value
Set b = Columns("B").FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End SubSigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
S a l u d o s . D a n t e A m o r
Si es lo que necesitas.
Justamente dante lo que necesito, solo ayúdame a agregar que sea solo en la hoja 2
Te anexo la macro actualizada
Sub CopiarPalabra()
'Por.Dante Amor
Set h = Sheets("Hoja2")
Set b = h.Columns("B").Find("Soporte Técnico", lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do: h.Cells(b.Row, "E") = b.Value
Set b = h.Columns("B").FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
En la columna E debes poner la fórmula:
=si(B1="Soporte Técnico";B1;"")
Luego arrastrar la fórmula hasta la última fila.