Soma de valores em vários texbox

2024 - VBA & Macros

Post Recente por davisao 11 anos atrás

3 Posts

2 Usuários

0 Reactions

1,136 Visualizações

RSS

davisao

(@davisao)

Posts: 28

Eminent Member

Topic starter

Para soma valores de uma planilha em um textbox uso o seguinte código: (a soma só é realizada no textbox e não na planilha)

Private Sub UserForm_Activate()
Dim Ultl As Long
Dim i As Long
Dim Pago As Long
On Error Resume Next

Ultl = Worksheets("materiais").Range("F" & Rows.Count).End(xlUp).Row
TextBox1.Value = 0

For i = 2 To Ultl
Pago = Range("F" & i).Value * 1
TextBox1.Value = TextBox1.Value + Pago
Next i

TextBox1.Value = Format(TextBox1.Value, "R$ #,##0.00")

End Sub

Agora, e para somar os valores de duas ou mais planilhas em dois ou mais textbox em um só Userform? Quais códigos usar?
Outra coisa, como impedir que os texbox acima não recebam mais o cursor do mouse e só apareça o resultado da soma?

Obrigado

soma .rar

Postado : 07/07/2013 4:05 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Davi, teriamos varias formas de realizar o que pretende, uma vez que já tem a rotina que preenche um TextBox referente a uma aba seria o caso de construir mais 2 e só a justar os ranges e nomes das abas e textbox.

Vale uma obs, em sua rotina na linha :
TextBox1.Value = TextBox1.Value + Pago
É preenchido o textbox com cada valor no loop e só no final o Total, então é preferivel criar uma variavel que irá armazenando a Soma e só depois lançar no textbox o total.

Agora levando em conta o modelo que anexou, criei um Array das abas e construi um Select Case uma vez que as Colunas com valores são diferentes em cada aba, veja se seria isto.

Lançar Totais de Somas em Textbox Variados

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 07/07/2013 7:03 pm