userform'da combobox'a liste ekleme

[İhsan Tank]

selam arkadaşlar bu gönderdiğim çalışma sayfasında öncelikle istediğim şu combobox'a sayfa adlarını girerek sadece o sayfaya veri göndermek istiyorum gönderdiğim ( 15 sayfa olacak şekilde ) bir de textbox1'e tarih formatı atmak istiyorum yardımlarınızı bekliyorum

 

[İhsan Tank]

Sheets("1").Range("A" & Bos_Satir).Value = TextBox1.Text

arkadaşlar ayrıca burada yazan ("1") yere ne yazılacak

 

[İhsan Tank]

selam arkadaşlar ben soruyu anlatamadım mı_? acaba nerede sorun var sorumun bir bakar mısınız ek'i incelediğiniz zaman sanırım daha iyi olur gibi

 

[meslan]

Merhaba

Private Sub UserForm_Initialize()
For s = 1 To Sheets.Count
If Sheets(s).Name <> "GİRİŞ" Then ComboBox1.AddItem Sheets(s).Name
Next
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Text = Empty Then MsgBox "Tarih Giriniz.": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Açıklama Boş Geçilemez": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Alınan-Verilen Boş Geçilemez": Exit Sub
If TextBox4.Text = Empty Then MsgBox "Fatura Boş Geçilemez": Exit Sub
If ComboBox1.Value = Empty Then MsgBox "Sayf Seçimi Yapınız.": Exit Sub
Set S1 = Sheets(ComboBox1.Value)
Bos_Satir = S1.Range("A65536").End(xlUp).Row+1
S1.Range("A" & Bos_Satir).Value = TextBox1.Text
S1.Range("B" & Bos_Satir).Value = TextBox2.Text
S1.Range("C" & Bos_Satir).Value = TextBox3.Text
S1.Range("D" & Bos_Satir).Value = TextBox4.Text
'S1.Select
'Unload UserForm1
End Sub

 

[İhsan Tank]

hocam çok teşekkür ederim yalnız bir şey soracağım bu makroları nasıl öğrenebilirim hangi mantıkla yazılıyor

 

[İhsan Tank]

selam arkadaşlar benim aynı konu olduğu için buraya yazıyorum bu sefer ki sorun şu birinci sayfada en son hangi satırda kaldı ise ikinci sayfaya oaradan başlıyoır ve üzerine kayıt yapıyor benim istediğim ise o sayfayada en başta başlaması ve devam etmesi 15 sayfaya da aynı şekilde işlem yapması
ikincisi ise giriş yaptığımda ben istediğim kadar üstüste bilgi girişi yapabileyim bileyim sayfaya gitmeden ek'i gönderiyorum yardımlarınızı bekliyorum

 

[İhsan Tank]

arkadaşlar yardım edebilecek kimse yok mu_?

 

[meslan]

Merhaba

Set S1 = Sheets(ComboBox1.Value)
[COLOR="Red"]Son_Dolu_Satir = Sheets(ComboBox1.Value).Range("A65536").End(xlUp).Row + 1[/COLOR]
S1.Range("A" & Son_Dolu_Satir ).Value = TextBox1.Value
S1.Range("B" & Son_Dolu_Satir ).Value = TextBox2.Value
S1.Range("C" & Son_Dolu_Satir ).Value = TextBox3.Value
S1.Range("D" & Son_Dolu_Satir ).Value = TextBox4.Value
[COLOR="Red"]'S1.Select[/COLOR]
[COLOR="red"]'Unload UserForm1[/COLOR]

 

[İhsan Tank]

arkadaşım yardımların için teşekkür ederim ama arada satır atlıyor bir bakarsan

 

[meslan]

Merhaba
8. mesaja dosya ekledim.

 

[İhsan Tank]

Arkadaşım Tarih girilen yere değişiklik yapmısın bu şekilde giriş çok zor oluyor onu eski sisteme nasıl alabilirim

 

[İhsan Tank]

aynı şekilde gözüküyor

 

[İhsan Tank]

arkadaşlar yardım edecek kimse yok mu_?