agost64

tavopz respondió: Revisa los cambios resaltados: Sub buscafecha() ' Dim w, w1 As Worksheet Dim c As Range Dim h As String ' Set w = sheets("Hoja1") Set w = sheets("Hoja2") ' x = InputBox("Introduzca valor en formato DD/MM/AAAA", "Buscar fecha") ' For Each c In...

tavopz respondió: Creo que sería algo así: Sub busca() Dim w, w1 As Worksheet Dim c As Range Set w = Sheets(1) Set w1 = Sheets(2) x = InputBox("Ingrese el dato a buscar") For Each c In w.Range("$A$1:" & Range("A1").End(xlDown).Address) If c = x Then...