• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kayıt ettikten sonra comboboxların güncellenmesi

O

ockucukay

Katılım
29 Aralık 2005
Mesajlar
862
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba arkadaşlar

Ekteki dosyayı forumdaki uzman arkadaşlarımızın yardımlarıyla oluşturdum ve firma içinde kullanıma açtım. Yaklaşık 1 aylık bir "test sürüşü"nden sonra aşağıdaki konularda eksiklikler çıktı. Aşağıdaki konularda yardımlarınızı rica ediyorum.

1- Comboboxlar: kayıt satırı çok olduğu zaman (1500 gibi) dosyayı kapatıp açsamda son kaydı comboboxlara aldıramıyorum. son kayıttan bir önceki kaydı en son kayıt olarak ekrana getiriyor.Nasıl düzeltebilirim?
2-Comboboxlar dosya ilk açıldığında yükleniyorlar. Ama dosya kullanılırken comboboxlar için yeni bilgiler ekleniyor ve dosyayı yeniden açmadan bu güncellemeyi yapamıyorum.Dosyayı yeniden açmadan comboboxların içeriğinin güncellenmesini nasıl sağlarım?

sayfa koruma şifresi: airwolf
 

Ekli dosyalar

Kayıt yaptığınız butonların sonuna userformun initialize olayındaki comboboxlara veri leri aldığınız kodu yazınız.Tabii ki önce comboboxı temizleyiniz.Veya comboboxa kayıt yaptığınız veriyi direk add item yolu ile kayıttan hemn sonra ekleyiniz.:cool:
 
Evren Gizlen' Alıntı:
Kayıt yaptığınız butonların sonuna userformun initialize olayındaki comboboxlara veri leri aldığınız kodu yazınız.Tabii ki önce comboboxı temizleyiniz.Veya comboboxa kayıt yaptığınız veriyi direk add item yolu ile kayıttan hemn sonra ekleyiniz.:cool:
Genişletmek için tıkla ...

Anlamadım hocam ??? Dosyada userform kullanmıyorum. Biraz daha detaylı açıklarmısınız?
 
ockucukay' Alıntı:
Anlamadım hocam ??? Dosyada userform kullanmıyorum. Biraz daha detaylı açıklarmısınız?
Genişletmek için tıkla ...
Userform kullanmıyorsanızda comboboxa ilk anda verileri ne zaman alıyorsanız o nu baz alınız.Aotu openmi artık shets activatemi onu siz biliyorsunuz.Kodları siz yazdınız.:cool:
 
Evren Gizlen' Alıntı:
Userform kullanmıyorsanızda comboboxa ilk anda verileri ne zaman alıyorsanız o nu baz alınız.Aotu openmi artık shets activatemi onu siz biliyorsunuz.Kodları siz yazdınız.:cool:
Genişletmek için tıkla ...

Öncelikle kodları birebir yazan ben değilim, kodları yazan siz uzman arkadaşlarımsınız, ben sadece kendi dosyama göre uyarladım. Bende böyle duruma göre kod yazmaya çalışıyorum zaten...

1-Sorumu biraz daha detaylandırayım. Dosya ilk açıldığında tüm giriş sayfalarındaki Müşteri Grubu comboboxlarını yüklüyorum. Aşağıdaki kod ile de (giriş sayfalarında benzer kodlar kullanıyorum) 1.comboboxa göre 2.comboboxa (müşteri combobox) veri aldırıyorum. Yapamadığım şey bu 2.comboboxın güncellenememesi. Aşağıda yetkili giriş sayfasının kodlarını örnek olarak koydum. Yapmam gereken değişikliği burada gösterirmisiniz?

Private Sub TyComboBox1_Change()
Dim i As Long
Sheets("Yetkili Giriş").TyComboBox2.Clear
For i = 2 To Sheets("MUSTERI").Cells(65536, "B").End(xlUp).Row
If Sheets("MUSTERI").Cells(i, "B").Value = Sheets("Yetkili Giriş"). _
TyComboBox1.Value Then
Sheets("Yetkili Giriş").TyComboBox2.AddItem Sheets("MUSTERI").Cells(i, "C").Value
End If
Next i
If Sheets("Yetkili Giriş").TyComboBox2.ListCount > 0 Then _
Sheets("Yetkili Giriş").TyComboBox2.ListIndex = 0
End Sub

Aşağıdaki soru hakkında da fikrinizi belirtirseniz çok sevineceğim...

2- Comboboxlar: kayıt satırı çok olduğu zaman (1500 gibi) dosyayı kapatıp açsamda son kaydı comboboxlara aldıramıyorum. son kayıttan bir önceki kaydı en son kayıt olarak ekrana getiriyor.Nasıl düzeltebilirim?
 
arkadaşlar, yardımcı olabilecek kimse var mı acaba?
 
son kez soruyorum, cevap gelmezse vazgeçeceğim, bilgisi olan varsa yardımını rica ediyorum...
 
ockucukay' Alıntı:
Artık pes ediyorum.... :(
Genişletmek için tıkla ...

madül2 de dosyakayıt makrosunun en altına End Sub un hemen üstüne aşağıdaki kodu ekleyiniz

tabi bu dediğim teklif giriş sayfasındaki yetkili bölümüne ait combobox3 için geçerli
Kod: 
Set s3 = Sheets("Teklif Giriş")
Set s4 = Sheets("YETKILI")
s3.ComboBox3.Clear
For i = 4 To s4.[f65536].End(3).Row
If WorksheetFunction.CountIf(Range(s4.Cells(1, 6), s4.Cells(i - 1, 6)), s4.Cells(i, 6)) <= 0 Then
Sheets("Teklif Giriş").ComboBox3.AddItem s4.Cells(i, 6)
End If
Next
 
sayın halit

Öncelikle cevap verdiğiniz için allah razı olsun. Ekteki dosyada verdiğiniz kodu hem dosyakayıt makrosuna hemde teklifgiriş makrosuna uyguladım. Teklif giriş sayfasındaki combobox2 hemen güncelleniyor, bu çok güzel. Ama combobox3 aynı şekilde güncellenmiyor. acaba combobox1 change olayına yazdığımız gibi bir makroyu combobox2 içinde yazamazmıyız? Ben combobox1 makrosunu değiştirip kullandım ama olmadı, combobox3 güncellenmedi. Aşağıda gerçekleşen ve gerçekleşmeyenleri açıklamaya çalıştım.Yapmak istediğimi anlatabildim umarım.

Combobox1 müşteri grubu seçildikten sonra combobox2'de gruba ait müşteriler gelecek.-> OK
Combobox2'de müşteri seçildikten sonra o müşterinin yetkilileri combobox3'e gelecek.-> Olmuyor.
Yeni müşteri girildiğinde combobox2 güncellenecek.-> OK
Yeni yetkili girildiğinde combobox3 güncellenecek.-> olmuyor

yardımlarınız için tekrar çok teşekkür ederim.
 

Ekli dosyalar

bu kodların güncellenmesi ile ilgili kodlarınız ThisWorkbook un içinde Workbook Open açılış makro kodunun içinde var buradan hangisinin güncellenmesini istiyorsanız o kodu alıp kullanacaksınız
 
hocam teklif giriş sayfasına aşağıdaki kodu yazdım ve istediğimi yapabildim. yardımlarınız için teşekkürler.

Private Sub ComboBox2_Change()
Dim i As Long
Sheets("Teklif Giriş").ComboBox3.Clear
For i = 4 To Sheets("YETKILI").Cells(65536, "F").End(xlUp).Row
If Sheets("YETKILI").Cells(i, "C").Value = Sheets("Teklif Giriş"). _
ComboBox2.Value Then
Sheets("Teklif Giriş").ComboBox3.AddItem Sheets("YETKILI").Cells(i, "F").Value
End If
Next i
If Sheets("Teklif Giriş").ComboBox3.ListCount > 0 Then _
Sheets("Teklif Giriş").ComboBox3.ListIndex = 0
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst