O negócio é assim: Tenho um vetor que contém os itens para uma lista suspensa no excel. O código logo embaixo cria listas suspensas nas células d5 até d108 em 12 abas do vetor mês. O vetor despesa contém os itens para essa lista suspensa.
Mas na linha indicada dá o seguinte erro:
erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição de objeto.
Dim mes(12) As String
mes(1) = "Janeiro"
mes(2) = "Fevereiro"
mes(3) = "Março"
mes(4) = "Abril"
mes(5) = "Maio"
mes(6) = "Junho"
mes(7) = "Julho"
mes(8) = "Agosto"
mes(9) = "Setembro"
mes(10) = "Outubro"
mes(11) = "Novembro"
mes(12) = "Dezembro"
Dim despesa(19) As String
despesa(1) = "ÁGUA"
despesa(2) = "CONTABILIDADE"
despesa(3) = "DESPESA FIXA"
despesa(4) = "DEVOLUÇÃO"
despesa(5) = "DIARISTA"
despesa(6) = "DIVERSOS"
despesa(7) = "ENERGIA"
despesa(8) = "IPTU"
despesa(9) = "MANUTENÇÃO"
despesa(10) = "MAT. CONSUMO"
despesa(11) = "MAT. CURSOS"
despesa(12) = "MAT. ESCRITÓRIO"
despesa(13) = "MAT. LIMPEZA"
despesa(14) = "MOVIMENTAÇÃO INTERNA"
despesa(15) = "SERVIÇOS GERAIS"
despesa(16) = "SITE"
despesa(17) = "TAXA BANCÁRIA"
despesa(18) = "TEL/INTERNET"
despesa(19) = "VIGILANCIA"
For i = 1 To 12
With Sheets(mes(i)).Range("d5:108").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:=xlEqual, Formula1:=Join(despesa, ",") 'erro nesta linha!!!!
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next i
O negócio é que até agora não entendi o esquema dos parâmetros e da sintaxe para o método validation. Se alguém puder gastar uns 5 minutos comigo para me dar uma breve explicação eu vou ficar duplamente agradecido!
Qualquer termo que tenha usado de forma errado, eu também vou agradecer qualquer correção educada que puderem fazer!