Pessoal, boa tarde!
Criei um Formulário no Excel para realizar alguns cálculos, esse formulário possui vários CheckBox (Mês, Dia, Tipo de Material, etc.) e um ComboBox (Nome do Funcionário).
O que eu quero fazer é o seguinte:
Criar um código em VBA atrelado a um botão que quando for clicado faça o cálculo das informações que preciso da base de dados utilizando os CheckBox e o ComboBox como parâmetro desse cálculo.
No código abaixo, consegui calcular as horas com a fórmula SUMIFS, porém utilizei só um CheckBox como variável, o do mês de Maio (mon5), as outras variáveis inseri manualmente no código.
Alguém consegue me ajudar?
Desde já agradeço!
'Código para Cálculo de Horas Diretas com String do Mês (Status: Funcionando)
Private Sub CommandButton1_Click()
Dim Mes As String
If mon5.Value = True Then
Mes = CStr("Mai")
ElseIf mon5.Value = False Then
Mes = CStr("")
End If
Range("AD18").Value = WorksheetFunction.SumIfs(Sheets("DB_Lançamento").Range("$O$4:$O$20000"), Sheets("DB_Lançamento").Range("$C$4:$C$20000"), "ELIEBER GONCALVES", Sheets("DB_Lançamento").Range("$D$4:$D$20000"), "CHOCOLATE", Sheets("DB_Lançamento").Range("$E$4:$E$20000"), "DOCA WAFER", Sheets("DB_Lançamento").Range("$F$4:$F$20000"), "SEPARAÇÃO / PICKING", Sheets("DB_Lançamento").Range("$G$4:$G$20000"), "MOVIMENTAÇÃO INTERNA", Sheets("DB_Lançamento").Range("$H$4:$H$20000"), "DIRETO", Sheets("DB_Lançamento").Range("$I$4:$I$20000"), "M.E.", Sheets("DB_Lançamento").Range("$Microsoft4:$Microsoft20000"), "15", Sheets("DB_Lançamento").Range("$N$4:$N$20000"), Mes, Sheets("DB_Lançamento").Range("$P$4:$P$20000"), "1º T")
End Sub