GNormandes

Pessoal gostaria de criar um arquivo TXT e usá-lo como referência para uma ListBox ou uma ComboBox, assim, quando eu tivesse que incluir um novo ramo de atividade apenas atualizaria o TXT e quando o Excel fosse aberto ele já teria esse novo ramo. Agradeço as colaborações.

Bom dia amigos, Estou ficando louco de raiva com a maldita função de soma do VBA para excel, pois criei um form para digitar os dados de uma compra, mas não consigo fazer a soma de todos os totais parciais. Meu código é: *********** Private Sub QTD1_PED_AfterUpdate() If Me.LOTE1_PED <> Null Or Me.LOTE1_PED <> Empty And Me.PRECO1_PED <> Null Or Me.PRECO1_PED <> Empty Then Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00") End If End Sub Private Sub LOTE1_PED_AfterUpdate() If Me.QTD1_PED <> Null Or Me.QTD1_PED <> Empty And Me.PRECO1_PED <> Null Or Me.PRECO1_PED <> Empty Then Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00") End If End Sub Private Sub PRECO1_PED_AfterUpdate() Me.PRECO1_PED = Format(Me.PRECO1_PED, "#,##0.00") If Me.QTD1_PED <> Null Or Me.QTD1_PED <> Empty And Me.LOTE1_PED <> Null Or Me.LOTE1_PED <> Empty Then Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00") End If End Sub Private Sub QTD2_PED_AfterUpdate() If Me.LOTE2_PED <> Null Or Me.LOTE2_PED <> Empty And Me.PRECO2_PED <> Null Or Me.PRECO2_PED <> Empty Then Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00") End If End Sub Private Sub LOTE2_PED_AfterUpdate() If Me.QTD2_PED <> Null Or Me.QTD2_PED <> Empty And Me.PRECO2_PED <> Null Or Me.PRECO2_PED <> Empty Then Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00") End If End Sub Private Sub PRECO2_PED_AfterUpdate() Me.PRECO2_PED = Format(Me.PRECO2_PED, "#,##0.00") If Me.QTD2_PED <> Null Or Me.QTD2_PED <> Empty And Me.LOTE2_PED <> Null Or Me.LOTE2_PED <> Empty Then Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00") End If End Sub Private Sub TOTALP1_PED_AfterUpdate() If Me.TOTALP1_PED <> Null Or Empty And Me.TOTALP2_PED <> Null Or Empty Then Me.TOTALG_PED = Format(CDbl(CDbl(Me.TOTALP1_PED) + CDbl(Me.TOTALP2_PED)), "#,##0.00") End If End Sub Private Sub TOTALP2_PED_AfterUpdate() If Me.TOTALP1_PED <> Null Or Empty And Me.TOTALP2_PED <> Null Or Empty Then Me.TOTALG_PED = Format(CDbl(CDbl(Me.TOTALP1_PED) + CDbl(Me.TOTALP2_PED)), "#,##0.00") End If End Sub *********** Pelo amor de Deus, alguém me informe também o que é o maldito "erro 13" que essa a mensagem apresentada. Agradeço antecipadamente pelas respostas!

Macedo, valeu pela dica! Mas não consigo somar as casas decimais, por exemplo: ....QTD......LOTE......preço.....TOTALP 1=...2...........1...........2,55..........5,10 2=...1...........1...........2,50..........2,50 .............................................______ ...............................TOTALG=....7,60 Coloquei os campos entre o Cdbl(), menos os TOTALP (1,2,3,...), e ele me mostra como resposta 7,00 sem contar as decimais.

Bom dia pessoal. Estou tentando fazer um form no VBA do Excel para somar os dados de um pedido, por exemplo: (QTD1 * LOTE1 * PRECO1) = TOTAL_PARCIAL1 (QTD2 * LOTE2 * PRECO2) = TOTAL_PARCIAL2 TOTAL_GERAL = (TOTAL_PARCIAL1 + TOTAL_PARCIAL2) Quando tento somar os campos com + não consigo pois ele concatena os valores, converti os campos para VAL(NOME_CAMPO) e ele não soma as decimais. Preciso de um HELP urgente!