Escribir un dato en una celda y que al minuto se borre
Hola Dante,
Hay alguna manera de digitar una celda y que al minuto se borre automático.?
Puede ser en las hojas "USD" y "Otras Divisas", en el celda que está a la derecha de la palabra "Recursos"
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en los eventos de Thisworkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Exit Sub
If Sh.Name = "USD" Or Sh.Name = "OTRAS DIVISAS" Then
If Target.Offset(, -1) = "Recursos" Then
h = Sh.Name
c = Target.Address(False, False)
Application.OnTime Now + TimeValue("00:00:30"), "'borrar """ & h & """" & ", """ & c & """'"
End If
End If
End SubLa siguiente macro va en un módulo
Sub borrar(h, c) 'Por.Dante Amor Application.EnableEvents = False Sheets(h).Range(c) = "" Application.EnableEvents = True End Sub
Saludos.Dante Amor
