Macro para buscar una celda y validarla
Tengo una macro que me busca un valor especifico en la hoja 1, retiene ese valor, y lo busca en la hoja 2, al encontrarlo coloca la hora en una celda especifica; funciona correctamente, lo que quiero es que antes de que me coloque la hora valide lo siguiente:
Si ya tiene la hora me muestre un mensaje "ya pusiste la hora",
Si no la tiene que coloque la hora
Sub validacion()
Application.ScreenUpdating = False
EnableEvents = False
Sheets("hoja1").Select
Range("L7").Select
Dim myValor As String
myValor = Range("l7").Value
Sheets("hoja2").Select
Range("D1").Select
Do Until ActiveCell.Value = myValor
If ActiveCell = "" Then End
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Offset(0, 5) = time
Sheets("hoja1").Select
End Sub
1 respuesta
Respuesta de Dante Amor
1