Home Excel - Dicas Microsoft Excel VBA Excel VBA - Navegacao pelas planilhas Excel planiha vba navegar criar planilhas combobox

Excel planiha vba navegar criar planilhas combobox

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Aplicativo Microsoft Excel VBA(Visual Basic Application), 

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), contendo objetos userform, combobox, voce poderá criar planilhas digitando o nome desejado na própria combobox e ou navegar pelas planilhas, como a propriedade ShowModal do Objeto Userform foi definida como False, você poderá navegar também pelas células de planilhas editar, copiar, colar, etc... 
Observe que inserí a prorpriedade Sendkeys, que abrirá a relação das planihas na combobx na inicialização do objeto Userform.
Espero que exemplo de planiha possa ajudá-los. Fiquem com Deus, E_Marcondes
 

Private Sub UserForm_Initialize()
  For Each sb In ActiveWorkbook.Sheets
    Me.ComboBox1.AddItem sb.Name
  Next
  Me.ComboBox1.SetFocus
  SendKeys "%{down}"
End Sub

Private Sub ComboBox1_BeforeUpdate
(ByVal Cancel As MSForms.ReturnBoolean)
 vDados = Me.ComboBox1.Value
  On Error Resume Next
  Sheets(Me.ComboBox1.Value).Select
  If Err > 0 Then
    If MsgBox("Deseja adicionar a planilha? [" & ComboBox1.Value & " ]", vbYesNo + vbInformation, "Saberexcel") = vbYes Then
      Sheets.Add after:=Sheets(Sheets.Count)
      ActiveSheet.Name = vDados
      Me.ComboBox1.AddItem vDados
    End If
  End If
End Sub

Private Sub ComboBox1_Click()
  Sheets(Me.ComboBox1.Value).Select
  Frame1.Caption = "Planilha selecionada [ " & ActiveSheet.Name & " ]"
End Sub

 

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planiha contendo os procedimentos acima
Excel vba navegar criar planilhas combobox (71.81 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Dom, 14 de Agosto de 2011 07:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4443
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29103
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42832
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465661
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA