Macro para buscar datos tipo date con coincidencia de string
Tengo un problema con mi macro. Tengo en la columna A datos de texto y en la columna D datos tipo fecha (corta), requiero ingresar un dato mediante textbox y que lo encuentre en la columna A pero que me muestre con un msgbox la fecha que esta en la columna D de esa misma fila (donde encontró el dato). Intente con Vlookup pero creo que no detecta variables distintas a tipo integer.
1 Respuesta
Respuesta de James Bond
2
Prueba este código la variable integer es para números enteros 0 al 32000 y fracción esto confunde a la macro, el código esta debajo de la imagen
y
Private Sub TextBox1_AfterUpdate()
PALABRA = TextBox1.Text
On Error Resume Next
BUSCAR = WorksheetFunction.Match(PALABRA, Range("A:A"), 0)
If Err.Number > 0 Then MsgBox ("NO EXISTE ESTA PALABRA"), vbCritical, "AVISO EXCEL": GoTo SAL
On Error GoTo 0
FECHA = Range("D:D").Cells(BUSCAR, 1)
MsgBox (FECHA)
SAL:
End Sub
