[حل شده] استفاده از متغییر ها در دو برنامه

[a_s47_1]

سلام
من دوتا sub دارم که تو یکیشون یه متغییر پر میشه ولی این متغییر تو sub بعدی نمیشه استفاده کرد

چه جوری میشه این مشکلو حل کرد؟

Private Sub CommandButton2_Click()
myval = Application.GetOpenFilename()
End Sub

Private Sub CommandButton3_Click()           
                  If myval <> "" Then     
           Sheet1.Range("af2") = myval        
    End If
end sub 

[rasools13]

سلام وقتی یک متغیر را در داخل یک متد تعریف میکنید فقط در محدوده آن متد قابل استفاده است
برای اینکه یک متغیر در تمام متد ها قابل استفاده باشد بایستی آن را بالاتر و خارج از همه متدها تعریف کنید
کد ذیل:

Public myval As Variant
Private Sub CommandButton2_Click()
myval = Application.GetOpenFilename()
End Sub

Private Sub CommandButton3_Click()           
                  If myval <> "" Then     
           Sheet1.Range("af2") = myval        
    End If
end sub 

[iranweld]

با سلام

از دستور public برای تعریف متغییر استفاده کنید

Public myval As String

Private Sub CommandButton1_Click()

myval = Application.GetOpenFilename()

End Sub

Private Sub CommandButton2_Click()

 If myval <> "" Then
 
           Sheet1.Range("af2") = myval
           
    End If
    
End Sub 

[a_s47_1]

ممنون از جواب هاتون حل شد مشکلم