Foro Excel

buenas a todos.

tengo la siguiente macro en la cual requiero sea dinamico el rango de la lista a desplegar, el script es el siguiente:

pero al momento de ejecutar me manda el siguiente error en tiempo de ejecucion 1004
"error definido por la aplicacion o el objeto"

Sub prueba()
'
' prueba Macro
'
'
ActiveCell("G152").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DESREF($AZ$152,,,CONTARA($AZ:$AZ)-1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Alguna idea de como resolverlo ?
Grcs.

Hola,

Me parece una solución fantástica. Sólo una pregunta, cada vez que despliego la lista, el curso se posiciona por defecto en el último valor, que además es un blanco. Hay alguna forma de que la lista al desplegarse se sitúe en el primer valor?

Muchas gracias,

saludos,

Adrian escribió:Hola, que post viejo; yo veo un depliegue y no se poseciona el el último valor.

Si!!!!

Ya lo recién solucioné. Estaba teniendo en cuenta las cabeceras y el Nro-1 me dejaba cómo ultima celda el valor en blanco. Lo solucioné cambiandolo por Nro-2.

Gracias