Boa noite,
Eu estou usando um sistema de cadastro de quantidade de peças produzidas em maquinas para manutenção preventiva, com um userform, onde eu uso um código para buscar outras informações e cadastrar o numero de peças realizadas. O código que eu busco e as informações
vem do seguinte programa:
Private Sub UserForm_Initialize()
Plan2.Select
Dim linha As Integer
linha = 3
Do While Range("B" & linha) <> ""
linha = linha + 1
Loop
Dim i As Range
For Each i In ThisWorkbook.Worksheets("Plan3").Range("A2:A277").Rows
Me.ComboBox1.AddItem Format(i.Cells(1, 1), "")
Next i
Me.TextBox1 = Now()
End Sub
Private Sub ComboBox1_Change()
Dim i As Integer
i = ComboBox1.ListIndex + 1
Select Case i
Case i
TextBox5.Value = Plan3.Cells(i, 2).Value
TextBox6.Value = Plan3.Cells(i, 3).Value
TextBox7.Value = Plan3.Cells(i, 4).Value
TextBox8.Value = Plan3.Cells(i, 5).Value
End Select
End Sub
Estes códigos vão para BD, que esta linkado a uma planilha dinamica, eu preciso retornar este código da tabela dinamica onde mostra a soma em um testbox.Por favor me ajudem.
Obrigado