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