degisken tanimlama hakkinda

[cerberus77]

form altinda tanimladigim bir degiskenin aldigi degeri , sayfa1 icinde yazdigim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

altinda kullanmak istiyorum. fakat degiskenin orada aldigi deger burada sifirlaniyor. degiskeni nerede tanimlamaliyim ?

tesekkurler.

 

[Ömer]

Merhaba,

Değişken adı: sat olsun.

Standart bir module

Public sat

yazıp(Türünü bilmediğim için boş geçtim), Selection komutu içinde kullanabilirsiniz.

 

[cerberus77]

merhaba ,
olmadi. gece gunduz ugrasiyorum su kadr basit sey icin !!!! en basit olarak soyle ozetleyim :
userform1 olusturdum. icinde de button var.

Private Sub CommandButton1_Click()
Dim password As String
password = 5
end sub


bir de sayfa1 icinde su kodlar var :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox a
End Sub

msgbox bos deger veriyor.halbuki 5 degeri vermeil. publicle denedim staticle denedim. ne yaparsaym yapayim bos donduruyor.olayim bu.

tesekkurler.

 

[mancubus]

standart bir modülün en tepesine:

Public password As String

click olayına:

Private Sub CommandButton1_Click()
    password = 5
End Sub

sayfanın kod modülüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox password
End Sub

 

[cerberus77]

uzgunum .aynen dediginiz gibi yapiyorum fakat msgbox bombos deger getiriyor. yanlis nerede olabilir ?

 

[mancubus]

ek dosyaya bakınız.

 

[cerberus77]

Allah razi olsun . sorunu cozdum sayenizde

 

[mancubus]

amin; hepimizden.