combobox problemi

[turkayayten]

meraba
combobox listesiyle ilgili bir sorunum var. sayfa1 de sayfa2 nin ilk kolonundan veri alan bir combobox var. veri almak için aşağıdaki kodu kullanıyorum.

color=darkblue]Private[/color] Sub CommandButton1_Click()
adkutusu.Clear

For i = 1 To 1000
If Sayfa2.Cells(i, 1) = "" Then
j = i
i = 1000
End If
Next i
For i = 1 To j
adkutusu.AddItem (Sayfa2.Cells(i, 1))
Next i
End Sub

veri alma konusunda bir problem yok ama her dosyayı açışımda komut düğmesini kullanmak zorunda kalıyorum listeyi tekrar oluşturabilmek için. bu combobox listesini kaydetmenin bir yolu yokmu? birde dosyayı açıp kapadığımda kaprken geçerli olan seçimimin açıldığında aktif olmasını istiyorum. varmıdır bir yol?
teşekkürler
Türkay

 

[Haluk]

Böyle bir şey olur mu ?

http://www.mrexcel.com/board2/viewtopic.php?t=114712

 

[ALPEN]

sayfa1 in activate olayına

Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "sayfa2!a1:a" & Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row
End Sub

 

[Haluk]

sayfa1 in activate olayına

heh heh.... ComboBox1 sayfanın üstündeymiş, sonradan uyandım ben de.... :mrgreen:

 

[ALPEN]

walla bende tam özür yazıyordum "gönderdikten sonra gönderdiğini gördüm "diye.

 

[turkayayten]

teşekkürler arkadaşlar
kodları özümsemeye çalışıyorum. bikaç tane daha combobox var onlarada uyarlıycam bi sorun çıkmıycak gibi görünüyor. çok teşekkür ederim. mükemmlesiniz