Instruções VBA e Macros

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Instruções VBA e Macros

Mensagempor ACG » Qua Ago 14, 2019 6:09 pm

Boa tarde!
Sou principiante na programação VBA Excel, e estou elaborando um projeto
onde possui vários formulários VBA Excel com conexão a banco de dados Access 2010.
Em minha elaboração no projeto encontrei alguns entraves descritos abaixo:

A - Gostaria que um ComboBox do formulário VBA liste uma coluna da tabela especifica
do banco de dados Access, tentei diretamente dentro do form VBA assim.

With cboTipo
.AddItem "Rio de Janeiro"
.ListIndex = 1
End With


Contudo esta instrução gera um erro "Procedimento muito grande", pois são todas as cidades
do Brasil representam mais de 5000 linhas que vem a travar a execução.

B - Em outro ponto gostaria de saber se há possibilidade de criar um modulo onde
o mesmo execute instruções para formatação de todos os ComboBox, TextBox e outros sem a
necessidade de inserção dos procedimentos diretamente no formulário VBA Excel.

C – Qual seria a instrução para que um Textbox totalize uma coluna de tabela Access e
que obedeça a um determinado critério em uma outra coluna da mesma tabela.

Ex.: Somar coluna C ($ vendas) se a coluna A (Mês) for igual a Março.

Desde já agradeço qualquer ajuda, pois já procurei muito no Google e nada.
Fiquem com Deus.
Att.:
Avatar do usuário
ACG
Membro
Membro
 
Mensagens: 2
Registrado em: Sex Nov 10, 2017 3:49 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: Instruções VBA e Macros

Mensagempor rlm » Qua Ago 14, 2019 10:35 pm

Para melhor compreender sua demanda/necessidade o interessante e anexar um modelo de projeto (planilha e tabela) somente dados não confidencias. Disponibilize-os em algum site de compartilhamento (SendSpace/Google Drive/Dropbox/Mega..) e informa aqui no forum o link
Quanto ao Item A -
Não tenho nada de access montado, mas supondo que as cidades estejam na coluna "D" de uma planilha chamada "Plan1"
poderia ser carregado assim (+5500 linhas, sem problema)
Código: Selecionar todos
Private Sub UserForm_Initialize()
Dim x As Long
For x = 4 To 5573
With cbotipo
    .AddItem Sheets("Plan1").Cells(x, 4).Value
    .ListIndex = 0
End With
Next
End Sub

Para extrair do Access deve montar uma clausula SQL tipo :Select * From [cidades]

Item B á priori possível é, mas também dependo do que se quer formatar em que momento se há criterios envolvidos....

Item c A priori um TextBox não executa "nada", apenas mostra "algo".
Como sua base e uma Tabela Access, para a totalização também deve "montar" e "executar" uma clausula SQL algo =/- assim:
Código: Selecionar todos
SELECT sum(Vendas) as TotV From [SuaTabela) where mes="Março"
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author rlm thanked:
EdsonBR (Qui Ago 15, 2019 2:53 am)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 284
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 18 times
Have thanks: 133 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 4 visitantes