combobox ta her zaman değer

[cihangirkara]

günaydın

combobox ta bir değer seçip işlem yapıyoruz sonra dosyayı kapatıp açtığımızda combobox taki değer kayboluyor tekrar seçmek gerekiyor sabit kalabilmesi için ne yapılır

 

[Levent Menteşoğlu]

Bunun için userformun_initialize olayına comboboxa veri yazan bir kod ilave etmelisiniz. Yada comboboxınız sabit bir hücreye veri aktarıyorsa, comboboxın controlsource özelliğine bu hücrenin adını yazabilirsiniz.

 

[cihangirkara]

Private Sub UserForm_Initialize()
For i = 1 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("c2:c" & i), Sheets("Sayfa1").Cells(i, 3)) = 1 Then
For j = 1 To 18
Controls("ComboBox" & j).AddItem Sheets("Sayfa1").Cells(i, 3)
Next
End If
Next i
TextBox1 = "."
TextBox1 = ""
End Sub

kod bu ne eklemeliyim?

 

[Mahmut Kök]

günaydın

combobox ta bir değer seçip işlem yapıyoruz sonra dosyayı kapatıp açtığımızda combobox taki değer kayboluyor tekrar seçmek gerekiyor sabit kalabilmesi için ne yapılır

Dosyayı kapatıp geri açıyorsanız, seçtiğiniz değer orada sabit olarak kalmaz; ancak seçtiğiniz değeri (indeks numarasını veya metnini) herhangi bir sayfanın, hernangi bir hücresine kaydederseniz, daha sonra kullanabilirsiniz.

Küçük bir örnek ekliyorum.