DUVIDA PROGRAMA?ÃO VISUAL BASIC

GILBAPG 30/07/2014 17:31:19
#440053
Bom dia galera
Estou com uma duvida numa parte de programaçao

Resumindo estou fazendo uma planilha de cadastro de ensaios
E tenho um userform que chama o outro
No userform1 tenho:
Private wsRegister As Worksheet (planilha relativa)
Public indexRegister As String (indice relativo por onde atualizo a planilha)
Set wsRegister = ThisWorkbook.Worksheets([Ô]Database[Ô]) (por exemplo)
E assim trabalho com os arquivos relativo a planilha Database sem problema
Porém ao pressionar um botao vou para uma outra userform, a userform2
E eu preciso importar nesta nova userform o valor do indexRegister da userform1
Isto quer dizer trocar de userform porém continua usando exatamente a mesma variavel que esta presente na userform1
Exemplo, na userform2:
Private Sub LoadRegisterEnsaios()
With wsRegister

Me.cboxexemplo.Text = .Cells(indexRegister, colexemplo).Value

End with
End Sub
Porém isto nao da certo
Sei que é simples porem nao consigo avançar mais
Obrigado,

Gilberto
PEGUDO 31/07/2014 21:41:13
#440096
Cara, trabalhe com objetos para trocar informações entre Forms:

 Public Class Class1
    Implements iDisposable
    Private vIndex As String

   Public Property Index As String
        Get
            Return vIndex
        End Get
        Set(Value As String)
            vIndex = Value
        End Set
    End Property
End Class


Para atribuir um valor:
Private wsRegister As Worksheet (planilha relativa)
Public indexRegister As String (indice relativo por onde atualizo a planilha)
Set wsRegister = ThisWorkbook.Worksheets([Ô]Database[Ô])

Using objClass As New Class1
    objClass.Index = indexRegister
End Using


No Form2:
Private Sub LoadRegisterEnsaios()
    Using objClass As New Class1
        Me.cboxexemplo.Text = objClass.Index
    End Using
End Sub
Faça seu login para responder
Voltar