Form üzerindeki Combobox

[Mdemir63]

Arkadaşlar merhaba

Userform üzerindeki Combobox içine bilgileri aldırıyorum. Userform açılıp kapanınca yeni girdiğim bilgilerde geliyor.
Buraya kadar sıkıntı yok. Ben formu kapatıp açmadan Combobox güncellensin istiyorum. Bunun için nasıl bir kod yazmak
gerekir yada mevcut kodlarıma nasıl bir ekleme yapmak gerekir.

Saygılar

 

[Muzaffer Ali]

Merhaba.
Hangi yöntemle ComboBoxa veri aldığınıza göre değişir.
ComboBoxa veri alma kodlarını yada dosyanızı paylaşırsanız çözüm bulunabilir.

 

[Mdemir63]

@Muzaffer Ali Hocam
kodlar aşağıdaki gibi

Private Sub UserForm_Initialize()
Dim dizim() As Variant
Dim i, SonSatır As Integer
SonSatır = Worksheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizim(1 To SonSatır)
For i = 1 To SonSatır
    dizim(i) = Worksheets("Sayfa1").Cells(i, 1)
Next i
Me.ComboBox1.List = dizim
End Sub

 

[Muzaffer Ali]

ComboBox1.AddItem ComboBox1.Text

Bu kodu ComboBox'a yazdığınızı metni Sayfa1'e aktardığınız kod içine ekleyiniz.

 

[Mdemir63]

ComboBox1.AddItem ComboBox1.Text

Bu kodu ComboBox'a yazdığınızı metni Sayfa1'e aktardığınız kod içine ekleyiniz.

özür dilerim Anlayamadım hocam

 

[Muzaffer Ali]

Comboboxa bir şey yazıp kaydediyorsunuz ya. İşte o Kaydet kodları içine eklemelisiniz.

 

[Mdemir63]

Hocam ben eksik anlattım , Şimdi form yüklendiğinde Sayfa1 A sütunundaki değerleri Combobox a yüklüyorum.
Aynı form üzerinde Textbox1 değerini sayfa1 A sütununa kaydediyorum. Tekrar formu kapatıp açmadan Yeni eklediğim değeri de otomatik combobox içine eklemesini yaptıramadım.

 

[Necdet]

Merhaba,
Textbox değerini A sütununa yazdırdığınız kodun içine aşağıdaki kodu ekleyiniz.

    i = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
    ComboBox1.RowSource = Sheets("Sayfa1").Range("A1:A" & i).Address

Son satır için i değerini kullandım, son satır için kullandığınız değişkeni combobox1 satırında kendinize göre uyarlayabilirsiniz.

 

[Mdemir63]

Merhaba,
Textbox değerini A sütununa yazdırdığınız kodun içine aşağıdaki kodu ekleyiniz.

    i = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
    ComboBox1.RowSource = Sheets("Sayfa1").Range("A1:A" & i).Address

Son satır için i değerini kullandım, son satır için kullandığınız değişkeni combobox1 satırında kendinize göre uyarlayabilirsiniz.

Teşekkürler @Necdet hocam

 

[Necdet]

Merak ettim, dosyadaki gibi mi bir şey yapıyorsunuz.
Combobox ta olmayan bir değeri yazıp Enter a basarsanız Sayfa1 A sütununa ekleme yapar ve Comboboxta bu değer görülür.

 

[Mdemir63]

Merak ettim, dosyadaki gibi mi bir şey yapıyorsunuz.
Combobox ta olmayan bir değeri yazıp Enter a basarsanız Sayfa1 A sütununa ekleme yapar ve Comboboxta bu değer görülür.

@Necdet Hocam
öncelikle geç cevap verdiğim için özür dilerim.
Gönderdiğiniz dosyayı indirememiştim. Altın üyeliğim bitmişti.
şimdi indirdim baktım öyle yapmıyorum.

 

[htsumer]

Hocam ben eksik anlattım , Şimdi form yüklendiğinde Sayfa1 A sütunundaki değerleri Combobox a yüklüyorum.
Aynı form üzerinde Textbox1 değerini sayfa1 A sütununa kaydediyorum. Tekrar formu kapatıp açmadan Yeni eklediğim değeri de otomatik combobox içine eklemesini yaptıramadım.

Deneyin bakalım

Private Sub CommandButton1_Click() ' Diyelim ekleme butonu bu
    Dim ws As Worksheet
    Dim SonSatır As Long
    Set ws = Worksheets("Sayfa1")
    
    ' Sayfa1 A sütununda son boş satırı bul
    SonSatır = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' TextBox1 değerini sayfaya ekle
    ws.Cells(SonSatır, 1).Value = Me.TextBox1.Value
    
    ' ComboBox1'e de ekle
    Me.ComboBox1.AddItem Me.TextBox1.Value
    
    ' TextBox temizle
    Me.TextBox1.Value = ""
    
End Sub

 

[Mdemir63]

Deneyin bakalım

Private Sub CommandButton1_Click() ' Diyelim ekleme butonu bu
    Dim ws As Worksheet
    Dim SonSatır As Long
    Set ws = Worksheets("Sayfa1")
   
    ' Sayfa1 A sütununda son boş satırı bul
    SonSatır = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
   
    ' TextBox1 değerini sayfaya ekle
    ws.Cells(SonSatır, 1).Value = Me.TextBox1.Value
   
    ' ComboBox1'e de ekle
    Me.ComboBox1.AddItem Me.TextBox1.Value
   
    ' TextBox temizle
    Me.TextBox1.Value = ""
   
End Sub

Selam,
Kodlar çalışıyor ama kontrol etmiyor Aynı bilgiyi girince onu tekrar sayfaya yazıyor ve Combobox içine tekrar ekliyor. @Necdet hocamın kodlarında tekrar edenleri eklemiyor.

Teşekkürler