Descricao: |
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

Publicidade Compre com segurança, garantia e ótimos preços

|