Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Somase em vba
 
Notifications
Clear all

Somase em vba

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
4 Posts
3 Usuários
0 Reactions
910 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: 857
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
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Favor marcar o tópico como resolvido.

 
Postado : 18/12/2017 6:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico