Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Pegar valor da ComboBox e selecionar Celulas.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
victorsamvs



Mensagens : 6
Data de inscrição : 05/04/2014

MensagemAssunto: Pegar valor da ComboBox e selecionar Celulas.   Qua Abr 16, 2014 3:49 am

Tenho uma ComboBox1 com as opções que ativa as planilhas "JAN" e "FEV"

Usei esse código pra ativar as planilhas:

Código:
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 1).Activate 'Função mudar meses(Plan)
End Sub
Private Sub UserForm_Initialize()

Dim Plan As Worksheet  'Referencias as planilhas SELECT
For Each Plan In ActiveWorkbook.Worksheets
ComboBox1.AddItem Plan.Name
Next Plan  'FiM referencias as planilhas
End Sub


E tenho uma Combobox com "Semana1" e "Semana2",

Em Semana1 tenho duas colunas A2 e B2

Em Semana2 tenho duas colunas D2 e E2

No caso quero que quando eu selecionar a planilha ativa na "Combobox1" e selecionar semana1 no "Combobox2" seja preenchido as selulas

A2 e B2
e quando selecionar semana2 é preechido as celulas D2 e E2

Exemplo: https://dl.dropboxusercontent.com/u/1656630/VBA%20-%20Outros/testes.xlsm

e assim aconteça o mesmo quando eu selecionar outra  planilha

precisando de ajuda.

att victor
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Pegar valor da ComboBox e selecionar Celulas.   Qua Abr 16, 2014 9:29 pm

Boa tarde!!

Por favor, indique a postagem cruzada!
http://www.planilhando.com.br/forum/posting.php?mode=edit&f=10&p=59573


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Pegar valor da ComboBox e selecionar Celulas.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Atualizar valor da combobox com base no último registro inserido na tabela
» Pegar o texto entre tags!
» [RESOLVIDO]Valor de step
» Modo se selecionar retangulo rato !
» Engine de pegar com o mouse e soltar

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: