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