Somase em vba

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

4 Posts

3 Usuários

0 Reactions

921 Visualizações

RSS

robertonl

(@robertonl)

Posts: 121

Estimable Member

Topic starter

Bom dia.
Estou tentando utilizar a linha de código porém não estou conseguindo o retorno. necessito de uma ajuda para onde pode estar gerando o possível erro.
A ideia de funcionamento é está.
Digito a data no campo(textbox1) do formulário Resumo_Dia e a label(EntAcet) soma quando for existir entrada com data igual digitada no textbox1.
A guia onde encontra-se os valores de entrada está na guia Lancamentos, onde a data encontra-se na coluna A e os valores desejados na coluna D.

Private Sub EntAcet_Click()
EntAcet.Caption = WorksheetFunction.SumIf(lancamentos.Range("a2:a" & UltimaLinha), Format(TextBox1.Value, "DD/MM/YY"), wsLANCAMENTOS.Range("d2:d" & UltimaLinha), "lancamentos")
End Sub

Postado : 18/12/2017 3:37 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub CommandButton1_Click()
    Dim linha As Long
    Dim soma As Double
    soma = 0
    linha = 2
    While ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Value <> ""
        
        If CDate(ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Value) = CDate(UserForm1.TextBox1.Text) Then
            
            soma = soma + CDbl(ThisWorkbook.Sheets("Planilha1").Range("D" & linha).Value)
            
        End If
        
        
        linha = linha + 1
        
    Wend
    
    
    UserForm1.Label1.Caption = soma
End Sub

Postado : 18/12/2017 4:20 am

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Experimente:

Private Sub EntAcet_Click()
 EntAcet.Caption = Application.SumIf(Sheets("Lancamentos").[A:A], CDate(TextBox1.Value), Sheets("Lancamentos").[D:D])
End Sub

Osvaldo

Postado : 18/12/2017 5:38 am