Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
abrir abas especificas com combobox
abrir abas especificas com combobox
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
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
- Reinaldo
- 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
"...aparecessem só as abas classe..."
frmCadastro, uma possibilidade; altere as rotinas conforme abaixo
e tambem
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
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
- Reinaldo
- 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
"...ela só pesquisa na aba especifica..."
Não entendi a demanda.
Não entendi a demanda.
Re: abrir abas especificas com combobox
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
Re: abrir abas especificas com combobox
coloquei o codigo para mudança de planilha e na hora de salvar deu erro no comando de salvar (With Sheets(n))
Re: abrir abas especificas com combobox
CONSEGUI SALVAR NA PLANILHA ATIVA
Private Sub BtnSalvar_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim Lin As Integer
With ActiveSheet
Private Sub BtnSalvar_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim Lin As Integer
With ActiveSheet
Re: abrir abas especificas com combobox
anjosilva escreveu: ↑Qua Mai 03, 2023 12:53 pm
coloquei o codigo para mudança de planilha e na hora de salvar deu erro no comando de salvar (With Sheets(n))