none
Exibir valor de tabela dinamica em textbox RRS feed

  • Pergunta

  • 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

    quinta-feira, 15 de agosto de 2013 20:39