Dúvidas Gerais de VBA no Excel

Peskz disse:

Como minhas duvidas sobre o assunto são interimináveis, criei este tópico, com um título mais sugestivo para que outras pessoas possam se interessar, ler e postar tb.

___________________________________


Quero saber se tem como fazer o mesmo formulario VBA abrir mais de uma vez na planilha ! O meu caso é q eu tenho um formulario q gera codigos, eu quero selecionar um destes codigos gerados e abrir o mesmo formulario com referencia no codigo escolhido, e assim por diante ...

Peskz disse:

Humm .. Entao ta..
Entao mudando o foco...
vc conhece algum objeto VBA que gere uma arvore?
tipo w.explorer?

Peskz disse:

Cara, achei um controle que pode ser o que eu queria

MICROSOFT TREEVIEW CONTROL

me ajuda a fazer funcionar colonizadore !?

Peskz disse:

Cara, achei um controle que pode ser o que eu queria

MICROSOFT TREEVIEW CONTROL

me ajuda a fazer funcionar colonizadore !?

Flashcooler disse:

O Tree View é uma ferramenta meio complicada de mexer, faz tempo que eu não uso ela mas vou dar uma revisada aqui e posto como usa-la assim que possivel.

T mais

Flashcooler disse:

PesKz como eu te disse a TreeView é um controle complicadinho de mexer, nada que te assute mas precisa de um poco mais de atenção.

Abra o VBA Coloque um Form, Coloque uma TreView Chamada "OrgTree" e coloque um botão e chame a função "tess" abaixo, coloque o código abaixo no Form, e ai a sua TreeView vai ser montada.
No outro Código é para você chamar de forma simples o objeto na Treeview, se você der dois Cliques ele vai fazer o que esta no laço IF...OK
Da uma olhadinha ai.

Sub tess()
Dim aa As Node
Dim bb As Node
Dim cc As Node
Set aa = OrgTree.Nodes.Add(, , "EEvaporador", "Evaporador&quot
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "GEngineering", "Engineering&quot
Set cc = OrgTree.Nodes.Add(bb, tvwChild, "GEngineerg", "Efeitos&quot
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "LBombas", "Bombas&quot
Set aa = OrgTree.Nodes.Add(, , "CheckFilter", "Filters Checks&quot
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "TTubulação", "Valvulas&quot
Set cc = OrgTree.Nodes.Add(bb, tvwChild, "GSprys", "Spray Dryer&quot
End Sub

Private Sub OrgTree_dblClick()
If OrgTree.SelectedItem.Index = 1 Then
MsgBox "Começando"
ElseIf OrgTree.SelectedItem.Index = 2 Then
MsgBox "Caracas"
ElseIf OrgTree.SelectedItem.Index = 3 Then
MsgBox "Terceiro Item"
ElseIf OrgTree.SelectedItem.Index = 4 Then
MsgBox "Manhatam"
ElseIf OrgTree.SelectedItem.Index = 6 Then
MsgBox "To Fazendo"
End If
End Sub

T mais

Flashcooler disse:

PesKz como eu te disse a TreeView é um controle complicadinho de mexer, nada que te assute mas precisa de um poco mais de atenção.

Abra o VBA Coloque um Form, Coloque uma TreView Chamada "OrgTree" e coloque um botão e chame a função "tess" abaixo, coloque o código abaixo no Form, e ai a sua TreeView vai ser montada.
No outro Código é para você chamar de forma simples o objeto na Treeview, se você der dois Cliques ele vai fazer o que esta no laço IF...OK
Da uma olhadinha ai.

Sub tess()
Dim aa As Node
Dim bb As Node
Dim cc As Node
Set aa = OrgTree.Nodes.Add(, , "EEvaporador", "Evaporador")
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "GEngineering", "Engineering")
Set cc = OrgTree.Nodes.Add(bb, tvwChild, "GEngineerg", "Efeitos")
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "LBombas", "Bombas")
Set aa = OrgTree.Nodes.Add(, , "CheckFilter", "Filters Checks")
Set bb = OrgTree.Nodes.Add(aa, tvwChild, "TTubulação", "Valvulas")
Set cc = OrgTree.Nodes.Add(bb, tvwChild, "GSprys", "Spray Dryer")
End Sub

Private Sub OrgTree_dblClick()
If OrgTree.SelectedItem.Index = 1 Then
MsgBox "Começando"
ElseIf OrgTree.SelectedItem.Index = 2 Then
MsgBox "Caracas"
ElseIf OrgTree.SelectedItem.Index = 3 Then
MsgBox "Terceiro Item"
ElseIf OrgTree.SelectedItem.Index = 4 Then
MsgBox "Manhatam"
ElseIf OrgTree.SelectedItem.Index = 6 Then
MsgBox "To Fazendo"
End If
End Sub

T mais

Flashcooler disse:

O Click não fica muito Bom, ele pode ser usado sim, mas na pratica o Double Click (DblClick) é melhor...mas tudo depende de como o comando vai ser usado.

T mais