ComboBox RowSource olayı

[Yesilyurtlu]

ComboBox4.RowSource kısmına kod kısmına manuel belirleyeceğim
örnek:
12/A
12/B
12/C
Gibi görülecek ve buton ile A10 dan itibaren seçtiğim şubeler altalta kayıt olacak
Yardımcı olabilir misiniz?

 

[snx111]

ComboBox4.RowSource kısmına kod kısmına manuel belirleyeceğim
örnek:
12/A
12/B
12/C
Gibi görülecek ve buton ile A10 dan itibaren seçtiğim şubeler altalta kayıt olacak
Yardımcı olabilir misiniz?

listeniz sayfada olmalıdır rowsource kısmına
a1:a50 aralıgında farzedersek

ComboBox4.RowSource = "Sayfa1!a1:a50"

genel bilgi: http://www.excel.web.tr/f48/combobox1-rowsource-t82134.html

 

[Yesilyurtlu]

comboboxa aldım.
Ancak;
Commandbutton ile a11:a18 aralığına comboboxtan seçtiğim şubeyi aktar dediğim zaman altalta aktaracak aktardığı an userform kapanacak.
Bu kod için yardımcı olabilirmisiniz?

 

[snx111]

comboboxa aldım.
Ancak;
Commandbutton ile a11:a18 aralığına comboboxtan seçtiğim şubeyi aktar dediğim zaman altalta aktaracak aktardığı an userform kapanacak.
Bu kod için yardımcı olabilirmisiniz?

örnek dosya gerekiyor dosyanızı yükleyin yardım edeyim

 

[Yesilyurtlu]

Bildiğim kadarı ile tanzim ettim. Kodlara bir bakın
a ) a11:a19 arasına sınırlandırmayı yapamadım.
b ) userformun sürekli E6:G9 aralığında açılmasını yapamadım.

 

[snx111]

sayfadaki ;

Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub

userformdaki;

Private Sub CommandButton1_Click()
Dim si As Worksheet
Set si = Sheets("Sayfa3")
aa = si.[a65536].End(3).Row + 1

If ComboBox1 <> "" Then
si.Cells(aa, 1) = ComboBox1
Else
End If
''''
aa = si.[a65536].End(3).Row + 1
If ComboBox1 <> "" Then

Else
End If
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
UserForm1.Top = 150
UserForm1.Left = 300
End Sub

 

[Yesilyurtlu]

snx111 ;

Yardımların için teşekkür ederim. Allah razı olsun