Macro validación de datos con formula INDIRECTO
Publicado por LUIS H (12 intervenciones) el 19/04/2022 00:44:25
Hola a todos
Pido de su ayuda con el siguiente tema
Quiero hacer una macro que me permita añadir una validación de datos utilizando la formula "INDIRECTO" en la celda resaltada en color verde, la idea es que la macro tome la celda de la parte izquierda como referencia:
Esto lo se hacer de forma manual dirigiéndome al menú "Validación de Datos", por lo que supuse que al grabar la macro esto no me generaría mayor inconveniente:
Haciéndolo de este modo el resultado es el esperado, una lista desplegable que varia de acuerdo al valor de la celda que esta al lado izquierdo, la cual es una lista fija
El problema es el siguiente:
Se supone que si ejecuto el código que grabe anteriormente este se debería ejecutar sin problemas, pero cuando lo voy a hacer me sale el siguiente mensaje:
El código que se grabo en VBA es el siguiente:
Requiero de su colaboración con el código de tal forma que Excel reconozca la función que le estoy indicando en la lista desplegable, mil gracias
Pido de su ayuda con el siguiente tema
Quiero hacer una macro que me permita añadir una validación de datos utilizando la formula "INDIRECTO" en la celda resaltada en color verde, la idea es que la macro tome la celda de la parte izquierda como referencia:
Esto lo se hacer de forma manual dirigiéndome al menú "Validación de Datos", por lo que supuse que al grabar la macro esto no me generaría mayor inconveniente:
Haciéndolo de este modo el resultado es el esperado, una lista desplegable que varia de acuerdo al valor de la celda que esta al lado izquierdo, la cual es una lista fija
El problema es el siguiente:
Se supone que si ejecuto el código que grabe anteriormente este se debería ejecutar sin problemas, pero cuando lo voy a hacer me sale el siguiente mensaje:
El código que se grabo en VBA es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Macro1()
'
' Macro1 Macro
'
'
Range("E2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECTO(D2)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Requiero de su colaboración con el código de tal forma que Excel reconozca la función que le estoy indicando en la lista desplegable, mil gracias
Valora esta pregunta
0