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