Macro que busca un dato inserta comentarios y observaciones.
Quisiera que me ayudaran con una macro, que me buscara un código de una serie de datos al encontrar el código me inserte un "x" comentario y ademas dicho código puede tener una de dos observaciones, entonces lo que haría la macro es que identificaría que observación es, y la pegaría en la celda correspondiente a la par del código buscado como se ve en la imagen.
Por ejemplo: estoy buscando este código "WP172541011" le tengo que insertar un "x" comentario y suponiendo que entra en la categoría de "OBSERV01" me pegue la observación en la celda correspondiente de la fila donde se encuentra el código buscado.
Hasta ahorita esto es lo que he podido hacer:
Sub busca_inserta_comentario_y_observaciones()
inicio:
Sheets("CODIGO").Select
Range("A1").Select
codigoabuscar:
Mensaje = "Ingrese el codigo completo y en mayusculas"
Titulo = "CODIGO A BUSCAR"
Defecto = "XXXXXXXXXXX"
codigo = InputBox(Mensaje, Titulo, Defecto)
If codigo = "" Then GoTo codigoabuscar
observacion:
Mensaje = "Ingrese la observacion"
Titulo = "OBSERVACION"
Defecto = "XXXXXXXXXXX"
observ = InputBox(Mensaje, Titulo, Defecto)
If observ = "" Then GoTo observacion
'Lo puse así pero no se que mas hacer para que me reconozca el tipo de observación
Cells.Find(What:=codigo, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
1 Respuesta
Dime qué debe tener la Observación para saber si va en la columna C o en la columna D.
Te estoy poniendo un ejemplo en la siguiente macro, si el texto que escribiste contiene la palabra "algo", entonces la observación se escribe en la columna C, de lo contrario, se escribe en la columna D.
Sub busca_inserta_comentario_y_observaciones()
'Act.Por.Dante Amor
Sheets("CODIGO").Select
Mensaje = "Ingrese el codigo completo y en mayusculas"
Titulo = "CODIGO A BUSCAR"
Defecto = "XXXXXXXXXXX"
codigo = InputBox(Mensaje, Titulo, Defecto)
If codigo = "" Then Exit Sub
Mensaje = "Ingrese la observacion"
Titulo = "OBSERVACION"
observ = InputBox(Mensaje, Titulo, Defecto)
If observ = "" Then Exit Sub
Set b = Columns("E").Find(What:=codigo, LookAt:=xlPart)
If Not b Is Nothing Then
If InStr(1, UCase(observ), "algo") > 0 Then
Cells(b.Row, "C") = observ
Else
Cells(b.Row, "D") = observ
End If
Else
MsgBox "El código no existe", vbInformation
End If
End SubS a l u d o s . D a n t e A m o r
Si es lo que necesitas.
