Buscar valor que cumpla 01 condición y escribir hora actual en otra celda del misma fila
Esto es lo que quiero hacer
El valor a buscar se obtiene del textbox de un formulario.
Este valor deberá buscarse en la columna B de mi hoja.
La Condición es que el dato de la Columna G debe contener la fecha de actual.
Con el primer valor que cumpla la condición, terminará la búsqueda y escribirá la hora actual en la columna H (en la misma fila del valor encontrado)
Caso contrario mostrar un msgbox.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Pon el siguiente código, por ejemplo en un commadbutton dentro de tu formulario:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Hoja1")
Set r = h.Columns("B")
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
If h.Cells(b.Row, "G") = Date Then
h.Cells(b.Row, "H") = Time
existe = True
MsgBox "Hora actualizada"
Exit Do
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
If existe = False Then
MsgBox "Ningún valor cumple la condición"
End If
Else
MsgBox "El valor buscado no existe"
End If
End Sub
