añadir validación vía vba salta error 1004
Publicado por Alfredo (2 intervenciones) el 21/07/2016 12:20:15
Buenos días.
Lo primero, trabajo sobre excel 2010. Llevo ya un par de días pegándome con unas líneas que no consigo solucionar.
La hoja esta desprotegida, al igual que las celdas. Estoy intentando meter una validación de datos en una serie de celdas para que el usuario solo pueda introducir uno de dos (cuatro en realidad) caracteres. A, a, R, r.
El problema es que salta error 1004 en cuanto alcanza la línea de añadir la validación:
La verdad es que estoy bastante perdido, cualquier ayuda será de utilidad.
Lo primero, trabajo sobre excel 2010. Llevo ya un par de días pegándome con unas líneas que no consigo solucionar.
La hoja esta desprotegida, al igual que las celdas. Estoy intentando meter una validación de datos en una serie de celdas para que el usuario solo pueda introducir uno de dos (cuatro en realidad) caracteres. A, a, R, r.
El problema es que salta error 1004 en cuanto alcanza la línea de añadir la validación:
1
2
3
4
5
6
7
8
9
10
wsDestiny.UnprotectwsDestiny.Range("m" & j & ":m" & j + limite).Validation.Delete
wsDestiny.Range("m" & j & ":m" & j + limite).Validation.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=IF(OR(M" & j + vi & "=""R"";M" & j + vi & "=""r"";M" & j + vi & "=""a"";M" & j + vi & "=""A"");;M" & j + vi & "="""")"
wsDestiny.Range("m" & j & ":m" & j + limite).Validation.InputTitle = "R/A"
wsDestiny.Range("m" & j & ":m" & j + limite).Validation.ErrorTitle = "R/A"
wsDestiny.Range("m" & j & ":m" & j + limite).Validation.InputMessage = "Introduce R o A"
wsDestiny.Range("m" & j & ":m" & j + limite).Validation.ErrorMessage = "Debes introducir R o A"
wsDestiny.ProtectLa verdad es que estoy bastante perdido, cualquier ayuda será de utilidad.
Valora esta pregunta
0