Mensaje en validación

Hola, sigo teniendo problemas, el código que me has puesto no
funciona,
me dá este error:

Se ha producido el error '-2147417848 (80010108)' en tiempo de
ejecución:
Error en el método 'InputMessage' de objeto 'Validation'

Quieres que te pase el archivo para que lo veas funcionar?

hola, jose !

... sigo teniendo problemas, el codigo que me has puesto no funciona, me da este error:
Se ha producido el error '-2147417848 (80010108)' en tiempo de ejecucion:
Error en el metodo 'InputMessage' de objeto 'Validation'
Quieres que te pase el archivo para que lo veas funcionar?

ok... solo quita de la direccion que aparece el 'NO...SPAM...PLS' ;)

saludos,
hector.

Hola Hector,

1) He hecho una pequeña variación en el código, pero claro, seguro
que se puede abreviar.
Mira, te pongo lo que me has puesto tu:

Public Const Celdas As String = _
"b7:b14,e11,g11,b18:b24,e22,g22,b28:b30,b34:b41,b44:b45"
Sub BorrarTodo()
With Range(Celdas): .ClearContents: .Cells(1).Select: End With
End Sub

Y esto es después de modificarlo yo:

Public Const Celdas As String = _
"b7:b14,e11,g11,b18:b24,e22,g22,b28:b30,b34:b41,b44:b45"
Sub BorrarTodo()
With Range(Celdas): .ClearContents: .Cells(-4).Select: End With
Range("B2").ClearContents
ActiveWindow.ScrollRow = 5
End Sub

Con esto lo que quiero es que me borre también la celda "b2" que no se
encuentra en la costante "Celdas" (porque no hace falta que contenga
validación) y después de borrar se seleccione dicha celda para
empezar a meter datos otra vez desde ahi.
La fila:

ActiveWindow.ScrollRow = 5

es para que pueda ver el encabezado de la división de abajo de la
hoja.

2) También me gustaria que me explicaras un poco una fila de un
código expuesto anteriormente en esta conversación, es esta fila:

If Target.Count > 1 Then Exit Sub

Bueno pues eso es todo, gracias vale?

hola, jose !

1) si necesitas 'adelgazar' -aun mas :))- el codigo segun tus modificaciones... prueba con:
Sub BorrarTodo()
With Range("b2," & Celdas): .ClearContents: .Range("a4").Select: .Range("a1").Select: End With
End Sub

2) la linea del mensaje anterior... [ -> If Target.Count > 1 Then Exit Sub]
[solo] 'evita' que se ejecute el procedimiento SI el caso es que el usuario selecciona MAS de una celda ;)

saludos,
hector.

1) He hecho una peque#a variacion en el codigo, pero... seguro que se puede abreviar...
... lo que me has puesto tu:
Public Const Celdas As String = _
"b7:b14,e11,g11,b18:b24,e22,g22,b28:b30,b34:b41,b44:b45"
Sub BorrarTodo()
With Range(Celdas): .ClearContents: .Cells(1).Select: End With
End Sub
... esto es después de modificarlo yo:
Public Const Celdas As String = _
"b7:b14,e11,g11,b18:b24,e22,g22,b28:b30,b34:b41,b44:b45"
Sub BorrarTodo()
With Range(Celdas): .ClearContents: .Cells(-4).Select: End With
Range("B2").ClearContents
ActiveWindow.ScrollRow = 5
End Sub
... lo que quiero es que me borre también la celda "b2" que no se encuentra en la costante "Celdas"
(porque no hace falta que contenga validacion) y despues de borrar se seleccione dicha celda
para empezar a meter datos otra vez desde ahi.
La fila:
ActiveWindow.ScrollRow = 5
es para que pueda ver el encabezado de la division de abajo de la hoja.
2) Tambien me gustaria que me explicaras un poco una fila de un codigo expuesto anteriormente en esta conversacion..
If Target.Count > 1 Then Exit Sub

Hola hector,
Muy bien, ya he comprendido mas o menos todo el código de este
archivo.
Ahora le estaba dando vueltas a esta linea que me has puesto en este
último post para intentar comprenderla y haciendo pruebas ya he sabido
que hace y que toma de referencia el "a4" y el "a1".
Bueno grupo, como podéis ver el grabador de macros no 'adelgaza'
demasiado el código que crea, jejeje

Gracias hector