Notifications

Clear all

Erro de Tempo de execução 380 ComboBox /TexteBox

2024 - VBA & Macros

Post Recente por Eufrásio 7 anos atrás

7 Posts

5 Usuários

0 Reactions

4,948 Visualizações

RSS

Eufrásio

(@eufrasio)

Posts: 23

Eminent Member

Topic starter

Olá Amigos Boa noite!

Preciso de um auxilio no código abaixo: tenho um comboBox para preencher alguns texteBox (mais que 10), ocorre que quando chega no décimo texebox dá erro tempo de execução 380 Não foi possível definir a propriedade list valor de propriedade inválido. Já revisei o texteBox relacionado e está tudo ok. o mesmo acontece se eu colocar 11,12,13... etc.

Tem algo a ver com números de coluna?

Agradeço a atenção!

Private Sub UserForm_Initialize()

CarregarComboBox

End Sub

Public Sub CarregarComboBox()
Dim LIN  As Integer
LIN = 4
Do Until Plan3.Range("B" & LIN).Value = ""
ComboBox.AddItem Plan3.Range("B" & LIN).Value


ComboBox.List(LIN - 4, 2) = Plan3.Range("B" & LIN).Value
ComboBox.List(LIN - 4, 3) = Plan3.Range("C" & LIN).Value
ComboBox.List(LIN - 4, 4) = Plan3.Range("D" & LIN).Value
ComboBox.List(LIN - 4, 5) = Plan3.Range("E" & LIN).Value
ComboBox.List(LIN - 4, 6) = Plan3.Range("F" & LIN).Value
ComboBox.List(LIN - 4, 7) = Plan3.Range("G" & LIN).Value
ComboBox.List(LIN - 4, 8) = Plan3.Range("H" & LIN).Value
ComboBox.List(LIN - 4, 9) = Plan3.Range("I" & LIN).Value
ComboBox.List(LIN - 4, 10) = Plan3.Range("J" & LIN).Value 'apartir daqui da erro


LIN = LIN + 1

Loop

End Sub

Private Sub ComboBox_Change()

txtMarcaMotor.Text = ComboBox.List(ComboBox.ListIndex, 2)
txtModeloMotor.Text = ComboBox.List(ComboBox.ListIndex, 3)
txtFamiliaMotor.Text = ComboBox.List(ComboBox.ListIndex, 4)
txtSérieMotor.Text = ComboBox.List(ComboBox.ListIndex, 5)
txtTensãoMotor.Text = ComboBox.List(ComboBox.ListIndex, 6)
txtCorrenteMotor.Text = ComboBox.List(ComboBox.ListIndex, 7)
txtFrequênciaMotor.Text = ComboBox.List(ComboBox.ListIndex, 8)
txtPotênciaMotor.Text = ComboBox.List(ComboBox.ListIndex, 9)
txtRotaçãoMotor.Text = ComboBox.List(ComboBox.ListIndex, 10) 'apartir daqui da erro
  
   
End Sub

Postado : 14/09/2017 10:08 pm

joebsb

(@joebsb)

Posts: 44

Eminent Member

Eufrásio... bom dia....

Anexe a planilha p gente poder dar uma olhada..... vc indicou 2 lugares em que aparece o erro, seria mais fácil depurar o problema diretamente no código em execução.

Abraço

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

Postado : 15/09/2017 10:21 am

Eufrásio

(@eufrasio)

Posts: 23

Eminent Member

Topic starter

Boa noite, Obrigado pela disponibilidade!

Amigo na verdade o erro parece está somente no código de preenchimento da ComboBox pois quando incluo mais uma linha de código da o erro

segue anexo projeto para análise ainda estou montando a tela por isso não repare alguns detalhes.

Muito obrigado pela gentileza.

Postado : 15/09/2017 10:02 pm

avgsantos

(@avgsantos)

Posts: 28

Eminent Member

Boa tarde, Eufrásio

Segue o modelo editado conforme solicitado.

avgsantos

Postado : 16/09/2017 11:10 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde Eufrásio

Percebi que não conhece as regras do fórum, pois anexou arquivos sem compactar.
Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

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

Postado : 16/09/2017 2:02 pm

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Experimente o código abaixo no lugar do existente. Coloquei até a coluna M (Range("B4:M"). altere se necessário.

Public Sub CarregarComboBox()
 Dim r As Range
  Set r = Sheets("Plan3").Range("B4:M" & Sheets("Plan3").Cells(Rows.Count, 2).End(3).Row)
   With ComboBox
    .ColumnCount = r.Columns.Count
    .RowSource = r.Address
    .ColumnHeads = True
   End With
End Sub

Osvaldo

Postado : 16/09/2017 3:21 pm