none
evento click RRS feed

  • Pergunta

  • como consigor usar um valor da variavel de um evento click que não e do mesmo botão

     

    Private Sub CommandButton1_Click()


        Dim numeroRegistros As Integer

        Dim i As Integer
       
        Dim ii As PublishObject
        
               
        For i = 1 To 5000

              If Worksheets("Plan1").Cells(i, 1).Value = "" Then
                   Cells(i, 1).Value = "i"
                 
                           
                  
              Else: Worksheets("Plan1").Cells(i, 1).Value = "d"
             
              Cells(i, 1).Value = "ds"
                       
              End If
            
             

        Next i


     
    End Sub

     

    gostaria de usar o valor da variavel  "i" no evento de um segundo botão

    segunda-feira, 23 de outubro de 2006 19:59

Respostas

  • Neste caso, o escopo da variável está errado. Declare-a na seção geral do módulo:

     

    Option Explicit

    Private i as Integer

    Private Sub CommandButton1_Click()

    For i = 1 To 5000

    'etc...

    End Sub

     

    Private Sub CommandButton2_Click()

    'pode usar i aqui

    End Sub

    domingo, 5 de novembro de 2006 13:14
    Moderador