Cielo Espeectral

Victor Rodriguez respondió: Cuando se cambia de línea hay que dejar un espacio en blanco antes del guion bajo _ Así es correcto: Sub Botón2_Haga_clic_en() Buscardato = InputBox("dame el dato") Range("A1").Select Cells.Find(What:=Buscardato, After:=ActiveCell,...

Jesus Mansilla Castells respondió: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 And Target.Row > 6 Then If Len(Trim(Sheets("regisauto").Cells(Target.Row - 1, 5))) > 0 Then Sheets("regisauto").Cells(Target.Row, 6) = Now End If End If End Sub