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
Postado : 07/07/2013 4:05 pm