Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
...
Hola pueblo:
El título lo dice todo.
En ThisWorkbook:
[b][u]En la hoja:
[/u][/b]
Private Sub Worksheet_Change(ByVal Rango As Range)
Dim Target As Range
If Rango.Rows.Count = Rows.Count Or _
Rango.Columns.Count = Columns.Count Then Exit Sub
For Each Target In Rango
If Target = "" And _
Not Sheets("$$$Work$$$").Range(Target.Address) = "" Then
If MsgBox("Has borrado el contenido de la celda " & _
Target.Address(False, False) & Chr(10) & _
" ¿Estás eguro ?", vbYesNo + vbQuestion, _
"Confirmar borrado de celda") = vbNo Then
Target = Sheets("$$$Work$$$").Range(Target.Address)
End If
Else
Sheets("$$$Work$$$").Range(Target.Address) = Target
End If
Next
End Sub
[/CODE]
Salu2.
.