Boa tarde davisao,

Segue um exemplo.

Qualquer coisa da o grito.

Boa noite!!

Lembre se de usar a pesquisa do fórum!!

viewtopic.php?f=23&t=5761
viewtopic.php?f=10&t=6995
viewtopic.php?f=10&t=6790
viewtopic.php?f=10&t=6765
viewtopic.php?f=23&t=5637

Att

Seguinte, estou enviando uma cópia do que estou fazendo, no UserForm Caixa de Edição está o que preciso , quando abrir o primeiro UserForm clique em Editar e você verá que aparece "Gasto Final". É nessa única caixa que preciso somar valores que estão na planilha só que a soma não será feita em nenhum outro lugar a não ser no UserForm Caixa de Edição. Pode até colocar o código lá e enviar.

Obrigado.

Boa noite davisao,

no código do ufEditar acrescente isso:

Private Sub UserForm_Activate()
Dim UltL As Long
Dim i    As Long
Dim Pago As Long

On Error Resume Next

UltL = Worksheets("Cadastro").Range("G" & Rows.Count).End(xlUp).Row - 2
TextBox8.Value = 0

    For i = 2 To UltL
        Pago = Range("G" & i).Value * 1
        TextBox8.Value = TextBox8.Value + Pago
    Next i
End Sub

Qualquer coisa da o grito.
Abraço

Boa noite,

Fiz algumas pequenas modificações, vê se ajuda.

Estou indo dormir. Boa noite!

Qualquer coisa da o grito.
Abraço

Muito bom, é isto mesmo que eu queria. Parabéns por tanto profissionalismo, estou impressionado. Agora vou estudar o código.