Combobox değişimden önceki değere ulaşma

[tamer42]

Merhaba,
Userform üzerinde Combobox değiştiği zaman aşağıdaki kod ile yeni değere ulaşabiliyoruz,
değişimden önce combobox' ta ne ne yazılı olduğu nasıl öğrenebiliriz?

Özetle değişmeden önceki değeri hafızaya alıp, değişimden sonra bunu bir şekilde almak...

teşekkürler,
iyi Çalışmalar.

Private Sub cmTest_Change()
         deger = Me.cmTest.value
End Sub

 

[maliex]

merhaba
userform aktif edildiğinde değeri kaydetme ile olabilir sanırım


Private Sub UserForm_Initialize()
ilkdeger = Me.cmTest.value
End Sub

 

[tamer42]

merhaba
userform aktif edildiğinde değeri kaydetme ile olabilir sanırım


Private Sub UserForm_Initialize()
ilkdeger = Me.cmTest.value
End Sub

Hocam bu yöntemi düşündüm ama ; userform aktif edildikten sonra bir çok sefer değişiklik yapılıyor.

 

[alicimri]

Aşağıdaki kod işinize yarar mı?

Dim a
Private Sub ComboBox1_Change()
MsgBox a
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = ComboBox1.Value
End Sub

 

[tamer42]

Aşağıdaki kod işinize yarar mı?

Dim a
Private Sub ComboBox1_Change()
MsgBox a
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = ComboBox1.Value
End Sub

Hocam merhaba,
ekli dosyada kodu denemdim, yalnız hespinde boş değer geliyor.

teşekkürler,

 

[alicimri]

Tekrar denedim doğru çalışıyor.
İlk defada boş gelir, sonra doğru çalışır.

 

[tamer42]

Tekrar denedim doğru çalışıyor.
İlk defada boş gelir, sonra doğru çalışır.

Tamam Hocam teşekkürler,

Dim a

ben bu satırı atlamışım