Referencia de UserF...
 
Notifications
Clear all

Referencia de UserForm

2 Posts
2 Usuários
0 Reactions
720 Visualizações
(@vzanetti)
Posts: 1
New Member
Topic starter
 

Boa Tarde Pessoal,

Estou com um problema.
Tenho uma planilha com varios tipos de controles e cadastros.
São 12 Userforms ao total, no qual o cabeçalho de todos eles serve para seleciona um funcionario.
Criei um outro form "Universal" que seria acessado atraves de um botão onde o usuario iria realizar uma pesquisa de funcionario para preencher o cabeçalho do form que estiver utilizando.

Para tanto teria de criar a referencia do form ao qual estou usando para retornar em determinado textbox que tem o mesmo nome em todos os demais userforms para que seja retornado o valor selecionado no form de pesquisa.

Como transfiro as informações de um listbox de um form para um textbox de outro form referenciado atraves de seu nome?

Private Sub ListBox3_Click()

Dim fr As Control
Dim form As UserForm
Dim frnome As String

frnome = Worksheets("Menu").Range("A2").Value

Set form = UserForms.Add(frnome)

For Each fr In form.Controls

If TypeName(fr) = "TextBox" Then

If fr.Name = "txt_mat" Then
MsgBox fr.Name
form.fr.Text = "Oi"

End If

End If

Next

End With

End Sub

 
Postado : 14/01/2014 12:49 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

VZanetti,

Boa Tarde

Pelo menos para mim, sua explicação está altamente confusa. O que eu entendi:

Como transfiro as informações de um listbox de um form para um textbox de outro form referenciado atraves de seu nome?

Se for isso, tente assim:

UserForm2.TextBox1.Text = UserForm1.ListBox1.Value

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 14/01/2014 1:07 pm