Combobox hakkında yardım

[Destiny]

Sormak istediğim bir adet comobox ve 3,4 tane textbox ekleyerek comboboxtan sececeğim ay ornegin ocak ile alt satırda açmış oldugum ocak ayına ait sheete blgi aktarımını user formdan yapailirmiyim text e yapmış oldguum yazılar bir sheete kaydedebiliyoru fakat coklu sheetlerde başarılı olamadım ekte aşşagıdadır
ornkete vb de yaptıgım ornek bi sablon var ordaki dönem kısmına ocak subat mart vs... giricem sheetlerdede o aylara ait isim olacak

 

[Destiny]

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B5:B" & Worksheets("Sayfa1").Range("A65536").End(xlUp).Row


End Sub
veya en azından bu sadece sayfa1 deki secenekleri alıyo buna nasıl sayfa 2 sayfa 3 ekleriz

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

Not:userformu açan buton ANASAYFA dadır.

 

[Destiny]

Sn leventm liste hakkında bi iki sorum olcak textleri gerekli hucrelere nasıl bagladnızı cozemedim yane ben bi satır sola kaydırmak istesem nasıl yapıcam bilgi verirseniz sevinirim.

 

[Levent Menteşoğlu]

Ben textboxlarınızı ardışık isimle devam edecek şekilde değiştirdim. Textboxlardaki verilere aşağıdaki kod aktarmaktadır. Sütun kaydırmak isterseniz, hücre içindeki sütunları ifade eden harfleri değiştireceksiniz.

[vb:1:87ce22f91c]Private Sub CommandButton1_Click()
On Error GoTo 10
Set s1 = Sheets(2006 & ComboBox3.Value)
say = s1.[a65536].End(3).Row + 1
s1.Cells(say, "a") = say - 2
s1.Cells(say, "b") = TextBox1.Value
s1.Cells(say, "d") = TextBox2.Value
s1.Cells(say, "e") = TextBox3.Value
s1.Cells(say, "c") = TextBox4.Value
s1.Cells(say, "g") = TextBox5.Value
s1.Cells(say, "f") = TextBox6.Value
s1.Cells(say, "h") = TextBox7.Value
s1.Cells(say, "m") = TextBox8.Value
MsgBox "VERİLER KAYDEDİLDİ"
Exit Sub
10 MsgBox "HATA! SAYFA BULUNAMADI"
End Sub[/vb:1:87ce22f91c]

 

[Destiny]

Private Sub CommandButton1_Click()
On Error GoTo 10
Set s1 = Sheets(2006 & ComboBox3.Value)
say = s1.[a65536].End(3).Row + 1
s1.Cells(say, "a") = say - 2
s1.Cells(say + 0, 2) = TextBox1.Value
s1.Cells(say + 0, 4) = TextBox2.Value
s1.Cells(say + 0, 5) = TextBox3.Value
s1.Cells(say + 0, 3) = TextBox4.Value
s1.Cells(say + 0, 7) = TextBox5.Value
s1.Cells(say + 0, 6) = TextBox6.Value
s1.Cells(say + 0, 8) = TextBox7.Value
s1.Cells(say + 0, 13) = TextBox8.Value
MsgBox "VERİLER KAYDEDİLDİ"
Exit Sub
10 MsgBox "HATA! SAYFA BULUNAMADI"
End Sub
Ben bu şekilde yapabilceğimi hatırladım leventm bey dediğinizide anladım .Yaklaşık olarak benle 4,00 saattir uğrastınız eğer biz bişeyler ogreniceksek bu sizin sayesinizde olacak.Saygılar....

 

[Levent Menteşoğlu]

Rica ederim. Yardımcı olabildiğime sevindim. Þunuda hatırlatayım.

Cells(1,1) ile cells(1,"a") aynı tanımlamadır, her ikiside A1 hücresini tanımlar, Eğer hücre tanımlamasında sütun değişken ise cells(1,1) şeklindeki yazım kullanılır, çünkü buradaki sütunu ifade eden rakamı değişken yapabilirsiniz. Ama harfi değişken yapmak akılcı değildir. Buna karşın sütun sabitse ben harf kullanmayı tercih ediyorum bunun tek sebebide harfin saysal karşılığının bulunması biraz zaman almaktadır. Ã?rneğin cells(1,"gh") yani GH1 hücresinin sütun değerinin sayısal karşılığını bulmak için zaman harcamak gerekir.