Carregar textbox ao inicializar[RESOLVIDO]

[Luciano021273]

Boa noite, a todos!

estou precisando de ajuda, para carregar as textbox que vou enviar formulário em anexo, achei esse código e adaptei as minhas necessidades, ao fazer um filtro na listview ele carrega os valores conforme valores...Porem, ele estava carregando uma textbox que é a soma total, mas precisaria carregar mais 3 (qtd Pedido ) (Valor da Entrada) e (Valor da Parcela), só que não estou conseguindo adaptar o codigo para carregar as outras textbox que necessito..
Se alguém puder me ajudar agradeço...

Atenciosamente
Luciano.

[Mauro Coutinho]

Não vou entrar em questão referente a aalguns erros que encontrei, mas acredito ser devido às versões e controles que não carregou qdo executei, mas para alimentar os textbox, você só tem de seguir o mesmo raciocinio que utiliza para somar o Total a Pagar, sendo assim faça o seguinte :

Adicione novas Variáveis abaixo de Dim soma as Double :

Código: Selecionar todos

Dim sTT_Qde As Double
Dim sSomaQde As Double

Dim sTT_Parcelas As Double
Dim sSomaParcelas As Double

Dim sTT_Entradas As Double
Dim sSomaEntradas As Double

Troque a as instruções Do Until ...... pela a abaixo :

Código: Selecionar todos

Do Until Sheets("Plan1").Cells(linha, 1) = ""
    
    valor = Plan1.Cells(linha, 5)
    soma = soma + valor
        
    sTT_Qde = Plan1.Cells(linha, 4)
    sSomaQde = sSomaQde + sTT_Qde
        
    sTT_Parcelas = Plan1.Cells(linha, 7)
    sSomaParcelas = sSomaParcelas + sTT_Parcelas
        
    sTT_Entradas = Plan1.Cells(linha, 6)
    sSomaEntradas = sSomaEntradas + sTT_Entradas
    
    linha = linha + 1
Loop

e depois da linha Me.txt_total = FormatNumber(soma, 2), acrescente estas :

Código: Selecionar todos

Me.TextBox3 = sSomaQde
Me.TextBox4 = FormatNumber(sSomaParcelas, 2)
Me.TextBox2 = FormatNumber(sSomaEntradas, 2)

Faça os testes e veja se é isto.

Se for, não esqueça de setar como RESOLVIDo e clicar na mãozinha ao lado direito da sua tela agradecendo. No canto superior.

[]s

[Luciano021273]

Bom dia, Mauro!!

Fiz os ajustes, conforme me orientou, mas esta dando erro de tempo de execução 9, subcrito fora do intervalo...
Segue em anexo para sua analise

grato pela atenção...

[Mauro Coutinho]

Luciano, como eu disse antes a versao 2007 que uso aqui no serviço deve ser diferente pois da erro e não aparecem os controles ListView e não tenho como instalar bibliotecas que o setor de TI não permite.
Mas quanto ao "erro de tempo de execução 9, subcrito fora do intervalo" significa que está fazendo referência a algum objeto que não existe, e comparando este modelo Formulario com o anterior, neste você deu nomes as abas e no anterior eram nomes padrão, então tem de ajustar os nomes das abas na rotina, por exemplo :
Alterar todas as referências a "Plan2" que não existe para "Sheets("Pedido")"

Altere todas as referências e faça novo teste se é só isto.

[]s