Código para revisión de líneas
Este es el código que se escribe al hacer lo que me pediste, pero te comento que la hoja (mascara de captura) en la que este puesta esta celda (numero de cheque), esta protegida por contraseña, lo hago para que otras personas que la utilizan y que no tienen conocimiento de excel, no vayan a borrar aquellas celdas que tienen fórmulas...
Gracias de nuevo, y en realidad no me gustaría quitarle la contraseña, ¿se puede hacer esto?
Sub prueba()
'
' prueba Macro
'
'
Selection.NumberFormat = "m/d/yyyy"
Range("F8").Select
Selection.NumberFormat = "General"
Range("F9").Select
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Cambia la macro por esta:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por. Dante Amor
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Target.Value = "" Then Exit Sub
If Target.Count > 1 Then Exit Sub
'
If Not IsNumeric(Target.Value) Or InStr(Target.Value, ".") Or _
InStr(Target.Value, ",") Then
MsgBox "Debe introducir un número entero"
activesheet.unprotect "abc"
Target.Value = ""
Target.NumberFormat = "General"
Target.Select
activesheet.protect "abc"
Exit Sub
End If
End If
End SubEn la macro cambia "abc" por el password que tiene tu hoja
Prueba y me comentas.
