Macro para borrar celdas con tecla suprimir
Para: Dante Amor
Ante todo un gran cordial saludo, hiendo con mi pregunta Tengo una macro en la cual quiero agregarle que al presionar la tecla suprimir en una celda de la columna A se borren los datos de las celdas C, D y F espero que se entienda mi pregunta.
Gracias por la respuesta que me puedas dar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Range("B" & Target.Row) = Date
Range("C" & Target.Row) = Format(Now, "hh:mm")
End If
End Sub
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Pon la siguiente macro en los eventos de tu hoja.
Dim valor
'
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
'valor = Target
If valor <> "" And Target = "" Then
Cells(Target.Row, "C") = ""
Cells(Target.Row, "D") = ""
Cells(Target.Row, "F") = ""
End If
End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
valor = Target
End If
End SubPrueba y me comentas.
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
