Recorrer un rango "Hoja2" y compararlo con otro rango "Hoja1", según sus valores hacer una tarea
Buenas noches, tengo dos hojas de calculo, en la "Hoja2" tengo unos valores en la columna "A", quiero que compare cada uno de esos valores con los valores de la columna "A" de la "Hoja1", y que cada que lo encuentre ponga la fecha en otra celda.
Tengo el siguiente código, pero me pone valores en todos los datos, solo necesito que la marque en los que sean exactamente igual.
De antemano gracias por su colaboración
Sub Fechar1()
Sheets("Hoja2").Select
For y = 2 To 30
rango = Cells(y, 1).Value
Sheets("Hoja1").Select
For i = 2 To 20
valor = Cells(i, 1).Value
If valor = rango Then
Cells(i, 1).Offset(0, 3) = Date
End If
Sheets("Hoja2").Select
Next i
Next y
MsgBox ("FECHAS APLICADAS")
End Sub
1 Respuesta
Respuesta de Luis Mondelo
1