Vídeo recomendado
https://youtu.be/diWPPPhW-9E

abrir abas especificas com combobox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

abrir abas especificas com combobox

Mensagem por anjosilva »

bom dia !
gostaria de uma ajuda, tenho uma planilha de cadastro que seleciono a abar onde vou gravar as informações pelo combobox, nesse caso aparecem todas as abas e eu queria que aparecessem só as abas classes 1, 2 e 3
na mesma planilha tenho uma pesquisa só que ela só pesquisa na aba especifica e também gostaria de pesquisar nas abas classes 1 2 e 3
desde já agradeço a ajuda
Anexos
Planilha-de-Controle-de-Presencas-e-Faltas.rar
(72.95 KiB) Baixado 797 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: abrir abas especificas com combobox

Mensagem por Reinaldo »

"...aparecessem só as abas classe..."

frmCadastro, uma possibilidade; altere as rotinas conforme abaixo

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To Sheets.Count
    If Sheets(I).Name Like "CLASSE*" Then
        Me.ComboBox1.AddItem Sheets(I).Name
    End If
 Next I

End Sub
e tambem

Código: Selecionar todos

Private Sub ComboBox1_Change()
Dim X As Integer
Dim strName As String
X = Me.ComboBox1.ListIndex + 1
strName = Me.ComboBox1.List(X - 1, 0)
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""

Sheets(strName).Activate

End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: abrir abas especificas com combobox

Mensagem por Reinaldo »

"...ela só pesquisa na aba especifica..."

Não entendi a demanda.


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: abrir abas especificas com combobox

Mensagem por anjosilva »

Reinaldo escreveu: Qua Mai 03, 2023 6:54 am "...ela só pesquisa na aba especifica..."

Não entendi a demanda.
ME EXPRESSEI MAU, PRA ESSA PESQUISAR SER EM TODAS AS ABAS. POIS SÓ CONSIGO COLOCAR PARA UMA .
QUERO PESQUISAR O ALUNO TANTO DA CLASSE 1 OU 2 TIPO ISSO
OBRIGADO


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: abrir abas especificas com combobox

Mensagem por anjosilva »

anjosilva escreveu: Qua Mai 03, 2023 11:52 am
Reinaldo escreveu: Qua Mai 03, 2023 6:54 am "...ela só pesquisa na aba especifica..."

Não entendi a demanda.
ME EXPRESSEI MAU, PRA ESSA PESQUISAR SER EM TODAS AS ABAS. POIS SÓ CONSIGO COLOCAR PARA UMA .
QUERO PESQUISAR O ALUNO TANTO DA CLASSE 1 OU 2 TIPO ISSO
OBRIGADO
coloquei o codigo para mudança de planilha e na hora de salvar deu erro no comando de salvar (With Sheets(n))


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: abrir abas especificas com combobox

Mensagem por anjosilva »

CONSEGUI SALVAR NA PLANILHA ATIVA
Private Sub BtnSalvar_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim Lin As Integer
With ActiveSheet


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: abrir abas especificas com combobox

Mensagem por anjosilva »

anjosilva escreveu: Qua Mai 03, 2023 12:53 pm
anjosilva escreveu: Qua Mai 03, 2023 11:52 am
Reinaldo escreveu: Qua Mai 03, 2023 6:54 am "...ela só pesquisa na aba especifica..."

Não entendi a demanda.
ME EXPRESSEI MAU, PRA ESSA PESQUISAR SER EM TODAS AS ABAS. POIS SÓ CONSIGO COLOCAR PARA UMA .
QUERO PESQUISAR O ALUNO TANTO DA CLASSE 1 OU 2 TIPO ISSO
OBRIGADO (frmpesquisa)

coloquei o codigo para mudança de planilha e na hora de salvar deu erro no comando de salvar (With Sheets(n))


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder