Crear Macro para Seleccionar Columna y buscartexto
Hola, necesito hacer la siguiente macro:
Buscar dentro de una columna un valor1 o texto1 que se repite en la misma. Luego cuando ha encontrado el texto 1, que inserte un texto2, pero en otra columna al mismo nivel de fila (offset(0,-2) por ejemplo).
¿Se entiende?
No he podido hacerlo con grabador ni con mis pocos conocimientos.
Muchas gracias.
Buscar dentro de una columna un valor1 o texto1 que se repite en la misma. Luego cuando ha encontrado el texto 1, que inserte un texto2, pero en otra columna al mismo nivel de fila (offset(0,-2) por ejemplo).
¿Se entiende?
No he podido hacerlo con grabador ni con mis pocos conocimientos.
Muchas gracias.
1 Respuesta
Respuesta de caranbis
1
A tu servicio.
Algo que te puede servir:
Selecciona la columna donde deseas buscar el "valor1" y lulego ejecutas la macro.
Sub JHASDBF()
Dim CELDA As Range
Dim valor1 As String
Dim valor2 As String
Dim guia As Double
Dim coincidencia1 As Boolean
coincidencia1 = True
valor1 = InputBox("Valor buscado", "")
valor2 = InputBox("Valor adjuntado a Activecell.offset(0,-2)", "")
Set CELDA = Selection.Find(What:=valor1, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not CELDA Is Nothing Then
CELDA.Activate
Do
ActiveCell.Offset(0, -2) = valor2
If coincidencia1 And ActiveCell.Row <> guia Then
guia = ActiveCell.Row
coincidencia1 = False
End If
Selection.FindNext(After:=ActiveCell).Activate
Loop While ActiveCell.Row <> guia
End If
End Sub
Carlos L.
Algo que te puede servir:
Selecciona la columna donde deseas buscar el "valor1" y lulego ejecutas la macro.
Sub JHASDBF()
Dim CELDA As Range
Dim valor1 As String
Dim valor2 As String
Dim guia As Double
Dim coincidencia1 As Boolean
coincidencia1 = True
valor1 = InputBox("Valor buscado", "")
valor2 = InputBox("Valor adjuntado a Activecell.offset(0,-2)", "")
Set CELDA = Selection.Find(What:=valor1, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not CELDA Is Nothing Then
CELDA.Activate
Do
ActiveCell.Offset(0, -2) = valor2
If coincidencia1 And ActiveCell.Row <> guia Then
guia = ActiveCell.Row
coincidencia1 = False
End If
Selection.FindNext(After:=ActiveCell).Activate
Loop While ActiveCell.Row <> guia
End If
End Sub
Carlos L.
