Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Carregar dados da p...
 
Notifications
Clear all

Carregar dados da planilha pelo combobox na textbox

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
2 Posts
2 Usuários
0 Reactions
920 Visualizações
RSS
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Boa tarde pessoal, é o seguinte estou quebrando a cabeça aqui ... mas não consegui, o que preciso é que quando eu selecionar o ano no combobox seja carregados os dados no textbox de janeiro a dezembro do ano selecionado no combobox e estes dados estão na linha 36 das planilhas que são os totais de chuvas de cada mes . Por favor preciso desta ajuda. Grato.

 
Postado : 18/02/2018 2:12 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub ComboBox1_Change()
On Error Resume Next

Me.JAN.Text = Sheets(Me.ComboBox1.Value).Range("B36").Value
Me.FEV.Text = Sheets(Me.ComboBox1.Value).Range("C36").Value
Me.MAR.Text = Sheets(Me.ComboBox1.Value).Range("D36").Value
Me.ABR.Text = Sheets(Me.ComboBox1.Value).Range("E36").Value
Me.MAI.Text = Sheets(Me.ComboBox1.Value).Range("F36").Value
Me.JUN.Text = Sheets(Me.ComboBox1.Value).Range("G36").Value
Me.JUL.Text = Sheets(Me.ComboBox1.Value).Range("H36").Value
Me.AGO.Text = Sheets(Me.ComboBox1.Value).Range("I36").Value
Me.SETE.Text = Sheets(Me.ComboBox1.Value).Range("J36").Value
Me.OUT.Text = Sheets(Me.ComboBox1.Value).Range("K36").Value
Me.NOV.Text = Sheets(Me.ComboBox1.Value).Range("L36").Value
Me.DEZ.Text = Sheets(Me.ComboBox1.Value).Range("M36").Value


End Sub
 
Postado : 18/02/2018 2:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico