Elieber Gonçalves
Membro Júnior-
Posts
4 -
Cadastrado em
-
Última visita
Reputação
0-
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
-
Inserir Face Id no comando Show Popup (VBA)
Elieber Gonçalves postou um tópico em Programação - outros
Pessoal, boa tarde. Tenho uma planilha onde utilizo um comando para acessar as abas. Quando clico no botão no menu principal o excel exibe uma caixa com as abas que podem ser acessadas através desse botão, conforme imagem anexada. Segue o Código utilizado: Sub Menu_DATABASE() Sheets("MENU LOGIN").Visible = 0 Sheets("CYCLIC COUNTS - DASHBOARD").Visible = 0 & FaceId = 48 Sheets("ILA & IRA - DASHBOARD").Visible = 0 Sheets("OCCUPATION - DASHBOARD").Visible = 0 Sheets("DAMAGE - DASHBOARD").Visible = 0 Sheets("ALLOWANCE - DASHBOARD").Visible = 0 Sheets("FORMULÁRIO DE NI").Visible = 0 Sheets("RESUMO DE CONTAGENS").Visible = 0 Sheets("RESUMO DE OCUPAÇÃO").Visible = 0 Sheets("RELATÓRIO DE ALLOWANCE").Visible = 0 Sheets("REQUISIÇÃO PARA AJUSTE").Visible = 0 Sheets("FORMULÁRIO DE CADASTRO").Visible = 0 Sheets("GERENCIAMENTO DE USUÁRIOS").Visible = 0 Sheets("TABELA DE FERIADOS").Visible = 0 Sheets("TABELA DE PRODUTOS").Visible = 0 Sheets("TABELAS").Visible = 0 Sheets("HISTÓRICO DE ALTERAÇÕES").Visible = 0 Application.CommandBars("Workbook tabs").ShowPopup 5, 100 Application.ScreenUpdating = False Sheets("MENU LOGIN").Visible = 1 Sheets("CYCLIC COUNTS - DASHBOARD").Visible = 1 Sheets("ILA & IRA - DASHBOARD").Visible = 1 Sheets("OCCUPATION - DASHBOARD").Visible = 1 Sheets("DAMAGE - DASHBOARD").Visible = 1 Sheets("ALLOWANCE - DASHBOARD").Visible = 1 Sheets("FORMULÁRIO DE NI").Visible = 1 Sheets("RESUMO DE CONTAGENS").Visible = 1 Sheets("RESUMO DE OCUPAÇÃO").Visible = 1 Sheets("RELATÓRIO DE ALLOWANCE").Visible = 1 Sheets("REQUISIÇÃO PARA AJUSTE").Visible = 1 Sheets("FORMULÁRIO DE CADASTRO").Visible = 1 Sheets("GERENCIAMENTO DE USUÁRIOS").Visible = 1 Sheets("TABELA DE FERIADOS").Visible = 1 Sheets("TABELA DE PRODUTOS").Visible = 1 Sheets("TABELAS").Visible = 1 Sheets("HISTÓRICO DE ALTERAÇÕES").Visible = 1 End Sub Minha Dúvida é se posso inserir um Face Id em cada opção de aba dentro desse mesmo código. Alguém pode me ajudar? -
Lista de seleção de abas no excel
Elieber Gonçalves respondeu ao tópico de Elieber Gonçalves em Microsoft Office e similares
Basole, muito obrigado pela rápida resposta. Essa dica atendeu minha necessidade. Tópico Resolvido! Tks! -
Lista de seleção de abas no excel
Elieber Gonçalves postou um tópico em Microsoft Office e similares
Pessoal, boa tarde. Tenho o seguinte Código, que está associado a um botão. Quando eu clico nesse botão o Excel exibe uma lista com todas as abas da Planilha (Ex.: Plan1, Plan2, Plan3, Plan4, Plan5, Plan6...) para que eu possa selecionar para qual aba vou. Sub Menu_CONTEXTUAL() Application.CommandBars("Workbook tabs").ShowPopup 110, 240 End Sub Minha dúvida é se posso melhorar esse código para que eu possa indicar quais Abas devem aparecer na minha Lista (Ex.: Plan1, Plan3, Plan5). Desde já agradeço!
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais