Combobox ta değişiklik olanlar.

[tamer42]

Merhaba,
Bir UserForm' da 10 adet Combobox mevcut (Combobox1, Combobox2,......, Combobox10)

Userform açıldıktan sonra, kapatılana kadar bunların hangisinde değişiklik yapıldı? Hangilerinde bir değişiklik yapılmadığını öğrenmenin pratik bir yolu var mıdır?

Özetle: "Combobox1", "Combobox2", "Combobox5", "Combobox8" 'de değişiklik yapıldı, diğerlerine dokunulmadı diye bir rapor almak istiyorum.

Class Module ile bu işlem öğrenilebilir mi?

Private Sub ComboBox1_Change()
 x=ComboBox1.value
End Sub

Teşekkürler,

iyi Pazarlar.

 

[YUSUF44]

Userforma bir textbox ekleyip, initialize kodlarında bu textbox içeriğini boşaltıp, sonra da örneğini verdiğiniz gibi combobox_change olaylarına bu textbox içeriğini değiştirme satırını ekleyebilirsiniz:

Private Sub ComboBox1_Change()
Textbox1.Text = Textbox1.Text & chr(10) & "Combobox1: " & ComboBox1.value
End Sub

İsterseniz bu textbox'ı gizler, userform kapama işleminden sonra textbox içeriğini msgbox olarak gösterebilirsiniz.

 

[tamer42]

Userforma bir textbox ekleyip, initialize kodlarında bu textbox içeriğini boşaltıp, sonra da örneğini verdiğiniz gibi combobox_change olaylarına bu textbox içeriğini değiştirme satırını ekleyebilirsiniz:

Private Sub ComboBox1_Change()
Textbox1.Text = Textbox1.Text & chr(10) & "Combobox1: " & ComboBox1.value
End Sub

İsterseniz bu textbox'ı gizler, userform kapama işleminden sonra textbox içeriğini msgbox olarak gösterebilirsiniz.

Yusuf bey teşekkürler,
bu şekilde tüm Combobox' lara bu kodları yazmak gerekecek, bunun pratik bir yolu var mı diye araştırıyordum

iyi çalışmalar.

 

[Korhan Ayhan]

Buradaki amaç nedir?

 

[Orion1]

Merhaba,
Bir UserForm' da 10 adet Combobox mevcut (Combobox1, Combobox2,......, Combobox10)

Userform açıldıktan sonra, kapatılana kadar bunların hangisinde değişiklik yapıldı? Hangilerinde bir değişiklik yapılmadığını öğrenmenin pratik bir yolu var mıdır?

Özetle: "Combobox1", "Combobox2", "Combobox5", "Combobox8" 'de değişiklik yapıldı, diğerlerine dokunulmadı diye bir rapor almak istiyorum.

Class Module ile bu işlem öğrenilebilir mi?

Private Sub ComboBox1_Change()
x=ComboBox1.value
End Sub

Teşekkürler,

iyi Pazarlar.

Öğrenilir.

 

[Erdem Akdemir]

Merhaba,

Sizin için küçük bir örnek çalışma hazırladım.
Kendi çalışmanıza uyarlayabilirsiniz.

 

[tamer42]

Buradaki amaç nedir?

Sayın Korhan Ayhan, hangi comboox' a dokunuldu, hangilerine dokunulmadı, bunları tespit etmek.

selamlar, saygılar.

 

[tamer42]

Merhaba,

Sizin için küçük bir örnek çalışma hazırladım.
Kendi çalışmanıza uyarlayabilirsiniz.

Sn Erdem çok teşekkürler,

ekli hata mesajını alıyorum.

iyi çalışmalar.

 

[Erdem Akdemir]

Kodun çalışması için module üzerinden çalıştırmanız gerekli.
Class module1'de ki makro'da oluşuyor. Userform ekranından çalıştırırsanız hata verir.

 

[tamer42]

Kodun çalışması için module üzerinden çalıştırmanız gerekli.
Class module1'de ki makro'da oluşuyor. Userform ekranından çalıştırırsanız hata verir.

Dosya açılırken userform zaten otomatik açılıyor,

Sub auto_open()

ile çalıştırdım yine hata verdi.

 

[Erdem Akdemir]

Debug yaparak hatanın nerede oluştuğunu paylaşabilir misiniz.

Çalışmayı indiren diğer üyelerde hata varsa paylaşabilir misiniz.

Bende sorun görünmüyor.

 

[YUSUF44]

Debug yaparak hatanın nerede oluştuğunu paylaşabilir misiniz.

Çalışmayı indiren diğer üyelerde hata varsa paylaşabilir misiniz.

Bende sorun görünmüyor.

Bende ilk indirdiğimde hiç açılmamıştı ancak şu anda açıldı ve sıkıntısız çalışıyor.

 

[asdsxx]

Arkadaşlar benim sizden bir ricam var ekteki dosyada combobox ile veri süzme yapılıyor ama combobox'a liste gelirken sütunda tüm veriler değilde tekrarlar teke indirilip listelenebilir mi?
Yani comboboxlerın hemen altındaki yani 2. satırdaki gibi Excel veri süz de olan şekilde olacak. Peki buna ne gerek var diyebilirsiniz ama bu comboboxları userform da kullanacağım. şu haliyle userformda tüm satırlarda bulunan bütün tekrarlar geliyor. aynı kelimeden 2 tanede olsa 50 tane de olsa combobox da 1 görünecek o kelimeyi seçince kelimenin geçtiği tüm satırları süzecek.
Biraz uzun anlattım ama derdimi tam anlatabilmek için yazdım. Kısaca ekteki dosyada 2. satırdaki Veri süz işlemininin aynısını comboboxlar la yapmak

 

[asdsxx]

şu online olan Erdem ve Yusuf Bey benim çalışmam ile ilgili yardımcı olabilirmisiniz acaba

 

[tamer42]

Debug yaparak hatanın nerede oluştuğunu paylaşabilir misiniz.

Çalışmayı indiren diğer üyelerde hata varsa paylaşabilir misiniz.

Bende sorun görünmüyor.

Ekran görüntüsü ektedir.

iyi çalışmalar.

 

[Haluk]

"System.Collections" nesnesini VBA'de kullanabilmek için PC'de iyi, kötü bir .Net Framework kurulu olması gerekmektedir.

\%windir%\Microsoft.NET\FrameWork

.

 

[Erdem Akdemir]

şu online olan Erdem ve Yusuf Bey benim çalışmam ile ilgili yardımcı olabilirmisiniz acaba

Aşağıdaki kodu kendi çalışmanıza uyarlayın.

Private Sub ComboBox1_GotFocus()
Set s = CreateObject("Scripting.Dictionary")

son = Cells(Rows.Count, 1).End(3).Row
For i = 3 To son

If Not s.Exists(Cells(i, 1).Value) Then
s.Add Cells(i, 1).Value, Nothing
End If

Next i

ComboBox1.List = s.keys

End Sub

 

[Erdem Akdemir]

Ekran görüntüsü ektedir.

iyi çalışmalar.

Tamer bey,

İlgili kısım kısa yoldan alfabetik sıralamayı yapıyordu.
Yeni dosya ektedir.

 

[tamer42]

Tamer bey,

İlgili kısım kısa yoldan alfabetik sıralamayı yapıyordu.
Yeni dosya ektedir.

Tamamdır, çok teşekkürler,

 

[asdsxx]

Aşağıdaki kodu kendi çalışmanıza uyarlayın.

Private Sub ComboBox1_GotFocus()
Set s = CreateObject("Scripting.Dictionary")

son = Cells(Rows.Count, 1).End(3).Row
For i = 3 To son

If Not s.Exists(Cells(i, 1).Value) Then
s.Add Cells(i, 1).Value, Nothing
End If

Next i

ComboBox1.List = s.keys

End Sub

Erdem bey ilginize teşekkürler. yazdığınız kod benim eklediğim dosyadaki excel sayfasında gayet güzel çalıştı. Ama o kodları Userform üzerindeki combobox'a uygulamak istedim ama Combobox_GotFocuc() seçeneği yok. Userform da bu özelliğin görevini yapacak bir seçenek var mı

Excel sayfasındaki combobox kod seçenekleri penceresi


Ama Userform daki combobox da bu seçenek yok