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

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas