Automation Error

2024 - VBA & Macros

Post Recente por skulden 8 anos atrás

3 Posts

3 Usuários

0 Reactions

919 Visualizações

RSS

Ferny12

(@ferny12)

Posts: 3

New Member

Topic starter

Bom dia pessoal. Tenho um projeto em VBA onde será feita reserva de materiais, onde as pessoas irão analisar um calendário de disponibilidade. Este calendário é anual, ou seja, tem todos os dias do ano (não conta anos bissextos), um label para cada dia, cada um referenciado a uma célula da planilha onde contem a quantidade de material disponível para aquela data, porém, quando eu abro o programa este erro é exibido:

runtime error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.

Não sei mais o que fazer :cry: :cry: :cry:

O erro está aqui:

'Janeiro
CalendarioMala2.j1.Caption = Range("N2")
CalendarioMala2.j2.Caption = Range("N3")
CalendarioMala2.j3.Caption = Range("N4")
CalendarioMala2.j4.Caption = Range("N5")
CalendarioMala2.j5.Caption = Range("N6")
CalendarioMala2.j6.Caption = Range("N7")
CalendarioMala2.j7.Caption = Range("N8")
CalendarioMala2.j8.Caption = Range("N9")
CalendarioMala2.j9.Caption = Range("N10")
CalendarioMala2.j10.Caption = Range("N11")
CalendarioMala2.j11.Caption = Range("N12")
CalendarioMala2.j12.Caption = Range("N13")
CalendarioMala2.j13.Caption = Range("N14")
CalendarioMala2.j14.Caption = Range("N15")
CalendarioMala2.j15.Caption = Range("N16")
CalendarioMala2.j16.Caption = Range("N17")
CalendarioMala2.j17.Caption = Range("N18")
CalendarioMala2.j18.Caption = Range("N19")
CalendarioMala2.j19.Caption = Range("N20")
CalendarioMala2.j20.Caption = Range("N21")
CalendarioMala2.j21.Caption = Range("N22")
CalendarioMala2.j22.Caption = Range("N23")
CalendarioMala2.j23.Caption = Range("N24")
CalendarioMala2.j24.Caption = Range("N25")
CalendarioMala2.j25.Caption = Range("N26")
CalendarioMala2.j26.Caption = Range("N27")
CalendarioMala2.j27.Caption = Range("N28")
CalendarioMala2.j28.Caption = Range("N29")
CalendarioMala2.j29.Caption = Range("N30")
CalendarioMala2.j30.Caption = Range("N31")
CalendarioMala2.j31.Caption = Range("N32")

Pessoal, o problema está na atribuição do valor de uma célula a uma label.
Com apenas UMA label com valor atribuído já dá esse erro...

Postado : 16/02/2017 5:15 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Apenas por uma parte da rotina, não é possivel adivinhar o que ocorre. Muito provavelmente o erro não é na atribuição do valor ao label

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/02/2017 3:50 am

skulden

(@skulden)

Posts: 170

Estimable Member

O que dá célula você tá atribuindo ao Label? Endereço, Endereço Local, linha, coluna, Fórmula, Formato...? Você precisa dizer o que você quer dá célula.

Então pra todos os labels ai, experimente colocar o ".Value" no final.

Ex: CalendarioMala2.j1.Caption = Range("N2").value

Abraços.

Se a resposta lhe foi útil, clique no joinha!

Postado : 17/02/2017 6:40 am