Userform combobox içinde değişim

[tamer42]

Merhaba,
Combobox içine yazdığım metin ifadesine göre filtre yapması için aşağıdaki kodu oluşturmuştum.
Bu kod combobox içine bir şeyler yazınca çalışıyor, yalnız burada yazılı metinden karakter silmeye başlayınca bir değişiklik olmuyor

Nasıl bir çözüm önerebilir siniz?

Private Sub CmStokAd_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim str As String
'''If Me.CmStokAd = "" Then Exit Sub
Me.CmStokAd.Clear
str = CStr(Trim(Me.CmStokAd.Value))
islem = 1
call KodTest str
End Sub

teşekkürleri
iyi Çalışmalar.

 

[Muzaffer Ali]

Merhaba.
Şu kodu kullanın.

Private Sub ComboBox1_Change()
Dim str As String
'''If Me.CmStokAd = "" Then Exit Sub
Me.CmStokAd.Clear
str = CStr(Trim(Me.CmStokAd.Value))
islem = 1
call KodTest str
End Sub

 

[Korhan Ayhan]

Merhaba,

İlgili nesnenin Change olayını deneyiniz.

 

[tamer42]

Merhaba.
Şu kodu kullanın.

Private Sub ComboBox1_Change()
Dim str As String
'''If Me.CmStokAd = "" Then Exit Sub
Me.CmStokAd.Clear
str = CStr(Trim(Me.CmStokAd.Value))
islem = 1
call KodTest str
End Sub

Hocam bu Change olayını başka bir prosedürde kullanıyorum.

Burada yazdığım metine göre Combobox' a yükleme yapıyor. Comboboxta değişiklik yaptığımda onu başka bir TextBox' a yazdırıyordum.
o nedenle Change olayını kullanmak istemiyorum

Set Sht= Sayfa1
Set rng = Sht.Range("B2:B" & X)
k = Application.WorksheetFunction.Match(Ad, rng, 0)
ki = k + 1
Me.txtStokKod.Value = Sht.Range("A" & ki).Value

 

[Muzaffer Ali]

Change kodlarının sonuna ekleyebilirsiniz.

 

[tamer42]

Change kodlarının sonuna ekleyebilirsiniz.

Hocam change Koduna şimdilik dokunmak istemiyorum,

KeyPress aslında 80-90% işimi görüyor aslında, tam görse çok iyi olacaktı.

 

[Muzaffer Ali]

Yada KeyDown içinde olabilir.

Private Sub CmStokAd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim str As String
'''If Me.CmStokAd = "" Then Exit Sub
Me.CmStokAd.Clear
str = CStr(Trim(Me.CmStokAd.Value))
islem = 1
call KodTest str
End Sub

 

[tamer42]

Change kodlarının sonuna ekleyebilirsiniz.

change olayı içinde;
Şu şekilde bir çözüm olabilir mi?
İmleç combobox içinde iken şunu yap...
imleç combobox içinde değilse şunu yap....

gibi....

 

[Muzaffer Ali]

Sanırım KeyDown işinizi görür.

 

[tamer42]

Sanırım KeyDown işinizi görür.

Hocam bu işlemi yaparken, Change olayı çalışmasın istiyorum
her harekette Change olayını döndürmeye çalışıyor
Aşağıdaki gibi bir deneme yaptım ama olmadı,

Private Sub CmStokAd_Change()

If Me.CmStokAd.SetFocus = True Then
       Exit Sub
End If
.............................
..................................................

End Sub

 

[Korhan Ayhan]

Ben bu tarz işlemler için bir modülün en tepesine PUBLIC bir değişken tanımlıyorum.

Bunun gibi;

Public Kontrol As Boolean

Bu değişkeni işlem yaptığım kodun sonuna Kontrol = True şeklinde ekliyorum.

Daha sonra mesela bir nesnede işlem yapmayacaksam bu nesnenin örneğin Change olayının ilk satırına aşağıdaki sorguyu yazarak işlem yapmasını engelliyorum. (Blok içinde ihtiyacınıza göre Kontrol = False satırını silebilirsiniz.)

If Kontrol = True Then
   Kontrol = False
   Exit Sub
End If

 

[Muzaffer Ali]

Hocam bu işlemi yaparken, Change olayı çalışmasın istiyorum
her harekette Change olayını döndürmeye çalışıyor
Aşağıdaki gibi bir deneme yaptım ama olmadı,

Private Sub CmStokAd_Change()

If Me.CmStokAd.SetFocus = True Then
       Exit Sub
End If
.............................
..................................................

End Sub

Change olayının her zaman çalışmasını istemiyorsunuz bunu anladım.
Peki Change olayının ne zaman çalışmasını istiyorsunuz?

 

[tamer42]

Ben bu tarz işlemler için bir modülün en tepesine PUBLIC bir değişken tanımlıyorum.

Bunun gibi;

Public Kontrol As Boolean

Bu değişkeni işlem yaptığım kodun sonuna Kontrol = True şeklinde ekliyorum.

Daha sonra mesela bir nesnede işlem yapmayacaksam bu nesnenin örneğin Change olayının ilk satırına aşağıdaki sorguyu yazarak işlem yapmasını engelliyorum. (Blok içinde ihtiyacınıza göre Kontrol = False satırını silebilirsiniz.)

If Kontrol = True Then
   Kontrol = False
   Exit Sub
End If

Korhan Hocam teşekkürler,
ben aslında başa döndüm, change olayı içinde iki durumuda çözmeye çalışıyorum.
Şöyle ki imleç ile combobox içinde bir şeyler değiştirirken bir proses çalışacak, bu olay combobox' ın listesini düzenliyor zaten
daha sonra combobox liste' sinden bir değeri seçtiğimde başka bir olay çalışacak.

Private Sub CmStokAd_Change()

If Me.CmStokAd.SetFocus = True Then
      Proses-1
else
   Proses-2
End If
End Sub

 

[Korhan Ayhan]

Küçük bir örnek dosya paylaşabilirmisiniz.

 

[tamer42]

Küçük bir örnek dosya paylaşabilirmisiniz.

Örnek dosya ektedir Korhan Hocam

 

[tamer42]

Örnek dosya ektedir Korhan Hocam

Arkadaşlar Cümleten iyi bayramlar
Korhan Hocam dosyaya bakma imkanınız oldu mu?
Herkese Sevdiklerinizle birlikte sağlıklı, huzurlu, mutlu nice bayramlar dilerim.

 

[Korhan Ayhan]

Deneyiniz.

 

[tamer42]

Deneyiniz.

Teşekkürler Korhan Hocam
Bu arada "Key_Press" olayında alternatif çözümler üretme peşindeydim, bu çözüm pratik oldu.
tekrar teşekkürler, iyi bayramlar dilerim.