Combobox dan veri okuma

[qqaazz]

Aşağıdaki kodlarla, bir komut düğmesi tıklayarak açtığım Deneme ismni verdiğim Userform
içindeki Combobox1 aracılığla Sheet1 deki listeden seçim yapabiliyorum, buraya kadar sorun yok.
Yaptığım seçimi neden elde edemiyorum?

Komut düğmesinde:
Private Sub CommandButton2_Click()
VBA.UserForms.Add(ThisWorkbook.MyValue).Show vbModeless
End Sub

Thisworkbook ta :
Private A As Variant
Public Property Get MyValue() As Variant
MyValue = A
End Property
Private Sub Workbook_open()
A = "Deneme"
End Sub

Combobox1 in olayında :
Private Sub ComboBox1_AfterUpdate()
Dialog
End Sub

Module1 de :
Public Sub Dialog()
Set obj = VBA.UserForms.Add(ThisWorkbook.MyValue)
B = obj.ComboBox1.Value
MsgBox B
End Sub

 

[Muzaffer Ali]

Merhaba.
Örnek dosya ekler misiniz?
Dosyanızı dosya.tc adlı siteye ekleyip indirme linkini paylaşabilirsin.

 

[Korhan Ayhan]

Public bir değişken tanımlayıp sanki veriyi alabilirsiniz diye düşünüyorum.