3 Combobox Birbirinin Seçimlerine Göre Çalışırmı?

  • Konuyu başlatan Konuyu başlatan eyirdak
  • Başlangıç tarihi Başlangıç tarihi

eyirdak

Kullanıcı
Katılım
25 Şub 2021
Mesajlar
47
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar ve hepinizin geçmiş Bayramını Kutlarım...

Daha önceden sormuş olduğum konuyu biraz site içindeki örnekleri inceleyerek toparladım. Fakat bir kaç yerde hata alıyorum. 2 combobox birbiriyle ilişkili ama 3. cüyü adapta edemedim. Birde listbook kısmına comboxlardaki süzme sonucu veri çağırıyorum ve onu da seçerek Excel'e atıyordum. Artık onu da yapamıyorum.

Vakti olan bir arkadaşım beni aydınlatabilir mi?

Dosyam ektedir.

Şimdiden Teşekkürler..
 
ListView Userformun altında açılması
Klasörlerdeki kapalı Excel kitaplarına veri dağıtmak

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@eyridak

-- UserForm üzerine 2 adet yeni TextBox nesnesi ekleyin (birincisi başlangıç, ikincisi bitiş tarihi için)
-- UserForm'un kod bölümünde, CommandButton1_Click kod blokunda yeşil renklendirdiğim satırları ekleyin.

Dikkat: Daha evvel de belirttiğim gibi; Comboboxlarda gerekli seçimlerin yapılıp/yapılmadığına,
Textboxlara uygun veri yazılıp yazılmadığına dair kotrol yok,
nesnelerde mevcut görünen değerler neyse onlar ilgili hücrelere yazdırılır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

.
 
Oyla 0 Olumsuz oyla
Merhabalar,
Ömer Hocamın müsaadesi ile 15 ve 19 numaralı mesajlarındaki açıklamalarına istinaden kodlara küçük eklemeler yaptım.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
For sut = 1 To Me.ListBox1.ColumnCount .Cells(sat, sut).Value = ListBox1.List(i, sut - 1) Next .Cells(sat, 7) = Me.ComboBox4: .Cells(sat, 8) = Me.ComboBox5: .Cells(sat, 9) = Me.ComboBox6 .Cells(sat, 10) = Me.TextBox1: .Cells(sat, 11) = Me.TextBox2 .Cells(sat, 12) = Me.TextBox3: .Cells(sat, 13) = Me.TextBox4 End With
Genişletmek için tıklayın ...
Ömer Bey Merhaba,

Aşağıdaki hatayı alıyorum.
 

Ekli dosyalar

  • Adsız.webp
    Adsız.webp
    112.7 KB · Görüntüleme: 17
Oyla 0 Olumsuz oyla
@eyridak

Sadece yeşil renklendirdiğim satırları ekleyecektiniz.
Diğer satırları, yeşil satırların nereye ekleneceğinin anlaşılması için bırakmıştım.

AhmetRasim' Alıntı:
Merhabalar,
Ömer Hocamın müsaadesi ile 15 ve 19 numaralı mesajlarındaki açıklamalarına istinaden kodlara küçük eklemeler yaptım.
Genişletmek için tıklayın ...
Estağfurulah @AhmetRasim .
Önemli olan soru soran üyemizin ihtiyacının çözümüne katkı sağlanması..

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@eyridak

Sadece yeşil renklendirdiğim satırları ekleyecektiniz.
Diğer satırları, yeşil satırların nereye ekleneceğinin anlaşılması için bırakmıştım.


Estağfurulah @AhmetRasim .
Önemli olan soru soran üyemizin ihtiyacının çözümüne katkı sağlanması..

.
Genişletmek için tıklayın ...
Ömer bey,

Yardım ve destekleriniz için ne kadar teşekkür etsem azdır. Elinize emeğinize sağlık. Tekrar tekrar teşekkür ederim.

Herşey dediğiniz şekilde doğru oldu.

İyi akşamlar dilerim.

AhmetRasim' Alıntı:
Merhabalar,
Ömer Hocamın müsaadesi ile 15 ve 19 numaralı mesajlarındaki açıklamalarına istinaden kodlara küçük eklemeler yaptım.
Genişletmek için tıklayın ...
Ahmet Bey,

Size de desteğiniz için teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Merhabalar,

Tarih kısmına gelecek alanlara Datepicker ekledim. Fakat iki alana başlangıç ve bitiş tarihleri ekleyeceği için durum biraz karıştı. Kodlarım aşağıdaki gibidir. Nerede düzeltme yapmam lazım. Yardımcı olabilirseniz sevinirim.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(48 satır)
 
Oyla 0 Olumsuz oyla
@eyridak
-- Mevcut kodları tarayarak Calendar2 ile ilgili olan kodların tümünü silin.
-- Calendar1_Click kodunu ise aşağıdaki şekilde değiştirin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
 
Oyla 0 Olumsuz oyla
@eyridak

Ayrıca; UserForm2_Initalize kod blokunda,
End Sub satırının hemen üstüne aşağıdaki satırları eklerseniz,
ilgili Combobox nesnelerinde sadece, ilgili sütunlarda dolu olan satırlar görüntülenmiş ve yanlış veri girişi engellenmiş olur.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@eyridak

Ayrıca; UserForm2_Initalize kod blokunda,
End Sub satırının hemen üstüne aşağıdaki satırları eklerseniz,
ilgili Combobox nesnelerinde sadece, ilgili sütunlarda dolu olan satırlar görüntülenmiş ve yanlış veri girişi engellenmiş olur.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Genişletmek için tıklayın ...
Desteğiniz için çok teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt