Ir ao conteúdo
  • Cadastre-se

Elieber Gonçalves

Membro Júnior
  • Posts

    4
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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
  2. 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?
  3. Basole, muito obrigado pela rápida resposta. Essa dica atendeu minha necessidade. Tópico Resolvido! Tks!
  4. 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

×
×
  • Criar novo...