Merhaba arkadaşlar.
Aşağıdaki kod ile A sütunundaki tarihlerden (Kırmızı renkli kodlar olmadan) benzersiz olanları Combobox'a listeliyor. Kırmızı renkli olan kodları ekleyince "Cells" kodunu seçip, "Expected list seperator or" hatası veriyor. Combobox'a benzersiz tarihlerin sadece yılını...
Haklısınız ama ben hiçbirşey bilmeden yapıyorum.ustadların yardımı ile .neyi nerede kullanacağımı neyi nasıl arayacağımı bile bilmiyorum.
yardım ederseniz örneklendirirseniz memnun olurum.
ilginiz için teşekkür ederim
Hüseyin Bey neden 2 combobox, neden 2 Listbox kullanıp kendinizi boş yere yoruyorsunuz?
Benzersiz isimleri Combobox1'e getirip orada istediğiniz aramayı yaptırıp, Listbox'a filtrelenmiş veriyi getirirsiniz.
Siz işi uzatıyor ve kod kalabalığında boğuluyorsunuz.
Size yardımcı olmanın en iyi yolu...
Merhaba arkadaşlar combobox um sayfa1 de verilerim sayfa2 de aşağıdaki kodla combobox a verileri nasıl alabilirim.
Private Sub ComboBox1_Change()
Call adet
End Sub
Sub benzersiz()
Dim a&, sayi$, y, x
With CreateObject("Scripting.Dictionary")
y = Range("L2:L" & Cells(Rows.Count...
selamlar.
Bir sayfadan combobox ile veri listeliyorum. Liste içerisinde Ay ve Yıl sutunu var. kayıtlarda örneğin 150 tana Agustos ay var ise combobox a tıkladığımda sadece bir tanesi gelsin istiyorum. yani benzersiz ler gelsin her ay dan ve her yıldan sadece biri gelsin seçimi ona göre yapayım...
3 Combobox içine Add yöntemi ile aynı veri girilirse (Sayfada veri kaydederek listede seçim olmadan)
1.comboboxta seçilen veri 2. Comboboxta seçilmesin. Seçilir ise uyarı versin.
2.comboboxta seçilen veri 3. Comboboxta seçilmesin. Seçilir ise uyarı versin.
1.comboboxta seçilen veri 3. Comboboxta...
Dim objDict As Object, myRng As Range, xRng As Range
Set objDict = CreateObject("Scripting.Dictionary")
Set myRng = Range("M2:M" & Cells(65536, "A").End(xlUp).Row)
For Each xRng In myRng
If xRng.Value <> "" Then objDict(xRng.Value) = 1
Next...
Merhaba,
Ekli örnek dosyada şunu yapmaya çalışıyorum. Tedarikçilerden alınan ürünlerinin hangi tarihlerde hangi fiyatlardan alındığını ve diğer bazı bilgilerin olduğu bir detaylı tablom var. Userform üzerine textbox, combobox, listwiev ve listbox nesneleri koydum. Bu nesneler ile yapmaya...
Merhabalar.Userform'daki Combobox1'e "Kayıt" sayfası "A" sutununda bulunan benzersiz verileri alfabetik olarak sıralamak istiyorum.Aşağıdaki kodu buldum ama hem hata verdi hemde çalıştıramadım.Yardımlarınızı bekliyorum.
Private Sub UserForm_Activate()
Set s = Sheets("Kayıt")
ComboBox1.Clear'...
Merhaba,
Nesneleri doğru kullanmak önemlidir.
TextBox (Metin Kutusu);
Bu nesne çoğunlukla veri girişi ve arama işlemlerinde kullanılmaktadır. Sayısal veri girişlerinde biçimlendirme (formatlama) yapmanız gerekir. Arama işlemlerinde ise sonuçlar genellikle ListBox ya da ListView nesnesine...
Bu seferde bu şekilde bir hata mesajı veriyor.
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("TABLO").Select
b = WorksheetFunction.CountA(Sheets("tablo").Range("A:A"))
Sheets("tablo").Range("a" & b + 1).Select
ActiveCell = TextBox7.Value
ActiveCell.Offset(0, 1) =...
Combobox VERİ dosyasındaki yedek alınan sayfadaki B sütunundaki benzersiz tarihleri gösterir.
Hata görüntüsünde DEBUG tuşuna tıklayın. VBA ekranındaki görüntüyü paylaşın.
Sayın @EmrExcel16
Ben hangi aşamada olduğumu görmeniz açısından dosyamı paylaşıyorum.
Neler yaptım kısaca anlatayım:
1- Userformda combobox ile sheet1 den filtreleme yapıyorum
2- Filtrelediğim alanı tmp1 sheetine alıyorum ve listbox1 de gösteriyorum
Tam da burada listbox1 de gösterirken...
Merhaba üstatlarım,
Yine içinden çıkamadığım günlerdir uğraştığım bir sorunla karşı karşıyayım. İstediğim şey normalde olabili birşey mi onu bilmiyorum açıkçası Siz üstatlarımdan yardım rica ediyorum.
Bir userformum var. Combobox seçime göre "benzersiz olarak" önce ktg sonra kimlik kolonunu...
konu ile ilgili çok fazla araştırma yaptım fakat cevap bulamadım.
Userformun initalize kısmına aşağıdaki kodları yazarak combobox a ilgili sayfasındaki e sutununda bulunan verileri benzersiz şekilde listeleyebiliyorum.
Private Sub UserForm_Initialize()
sonsatir =...
Merhabalar,
Ekte Mantığı Basit ama vba'da acemi olanlar için oldukça zor bir durum söz konusu,
Ben sadece başlangıcını yapabildim ve ComboBox'a benzersiz değer getirdim.
Taleplerim,
1- Mümkün mü bilmiyorum combobox'da birden fazla seçim yapabilmek istiyorum.
2- Comboboxda seçilen ana...
Merhaba,
Userform'a eklediğim bir combobx'ta benzersiz bir listenin gelmesi için aşağıdaki kodu buldum internetten. Fakat ben verileri GEÇMİŞ adında farklı bir sayfadan çekiyorum,
o sayfaya gitmeden nasıl getirtebilirim?
Yani Userform Talep girişi sayfasında olacak, verileri Geçmiş adlı...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.