Sayfa Cogaltma

[pelin5353]

Merhabalar,

Ekteki dosyadada acikladigim gibi dosyada yer alan sayfalarin cogaltilmasi gerekiyor. ama makrolar dogru bi sekilde calismiyor. yani sayfalari move or copy seklinde cogalttigimiz zaman userform'daki bilgiler sadece 1. sayfaya kaydediliyor..

Bana bu konu hakkinda yardimci olabilirseniz cok sevinirim. Zaman ayiranlara simdiden tesekkurler

 

[bedersu]

mrb

Merhaba,
Sorununuzu doğru anladıysam çözğm basit.Sadece Userfor1'deki Accept Düğmesine yazmış olduğunuz makrodaki Sayfa1 kısımlarını Activesheet olarak değiştirin.

Private Sub CommandButton2_Click()
ActiveSheet.Select
For a = 28 To 50 Step 2
If Controls("c" & a).Value = True Then
ActiveSheet.Cells(a, "f") = TextBox1
Sayfa4.Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Text
ActiveSheet.Cells(a, "n") = TextBox3
Sayfa4.Range("A65536").End(xlUp).Offset(0, 1).Value = TextBox3.Text
ActiveSheet.Cells(a, "t") = ComboBox4
Sayfa4.Range("A65536").End(xlUp).Offset(0, 2).Value = ComboBox4.Text
ActiveSheet.Cells(a, "y") = TextBox6
Sayfa4.Range("A65536").End(xlUp).Offset(0, 3).Value = TextBox6.Text
ActiveSheet.Cells(a, "ah") = ComboBox3
Sayfa4.Range("A65536").End(xlUp).Offset(0, 4).Value = ComboBox3.Text
ActiveSheet.Cells(a, "al") = TextBox5
Sayfa4.Range("A65536").End(xlUp).Offset(0, 5).Value = TextBox5.Text
ActiveSheet.Cells(a, "ab") = ComboBox1
Sayfa4.Range("A65536").End(xlUp).Offset(0, 6).Value = ComboBox1.Text
ActiveSheet.Cells(a, "ae") = ComboBox2
Sayfa4.Range("A65536").End(xlUp).Offset(0, 7).Value = ComboBox2.Text
End If
Next
End Sub

Sayfaları 365 adet çoğaltmayı zaten yapıyormuşsunuz.Yukarıdaki gibi değişiklik yaptıktan sonra da kadedip sayfaları çoğaltın.

Kolay gelsin.

 

[pelin5353]

Evet Cok tesekkur ediyorum... tam olarak istedigim bu .. Bu kadar basit olabilecegini bilmiyordum emeginize saglik..

 

[bedersu]

Önemli değil.Bazen ufak ayrıntılar gözden kaçabiliyor böyle.Yardımcı olabildiysek ne mutlu.

 

[pelin5353]

Gercekten yardimci oldunuz tesekkurler..
Peki 2 ve daha fazla checkbox isaretledigimizde rezervasyon sayfasina check box sayisi kadar kayit yapıyor. Ben rezervasyon sayfasina sadece tek satirlik bir kayit girisi istiyorum.. bu mumkun mu ??

 

[bedersu]

Tekrar Merhaba,

Bu da mümkün tabi ki.Yapmanız gereken tek şey Rezervasyon sayfasına yani Sayfa4'e yapmış olduğunuz referansları NEXT döngüsünden sonraya koymak.Yani:


Private Sub CommandButton2_Click()
ActiveSheet.Select
For a = 28 To 50 Step 2
If Controls("c" & a).Value = True Then
ActiveSheet.Cells(a, "f") = TextBox1
ActiveSheet.Cells(a, "n") = TextBox3
ActiveSheet.Cells(a, "t") = ComboBox4
ActiveSheet.Cells(a, "y") = TextBox6
ActiveSheet.Cells(a, "ah") = ComboBox3
ActiveSheet.Cells(a, "al") = TextBox5
ActiveSheet.Cells(a, "ab") = ComboBox1
ActiveSheet.Cells(a, "ae") = ComboBox2
End If
Next
Sayfa4.Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 1).Value = TextBox3.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 2).Value = ComboBox4.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 3).Value = TextBox6.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 4).Value = ComboBox3.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 5).Value = TextBox5.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 7).Value = ComboBox2.Text

End Sub

Bunlar NEXT Döngüsü içinde yer alırsa ,döngü bitene kadar Excel veri yazmaya devam eder.

 

[pelin5353]

Sayin Bedersu,

Gercekten cok tesekkurler..cok iyi oldu..

 

[pelin5353]

Peki biliyorum basit ama daha once yapmadigim icin 1 sorum daha olacak.

Ekte de acikladigim uzere pembe hucre icinde yer alan tarihin userform'da gorulmesi ayrica bu tarihin ve checkboxlarla isaretlenen salon isimlerininde diger sayfaya kaydi gerekli.

Bu konularda da yardiminizi rica edebilirmiyim.?

 

[bedersu]

Tekrar merhaba,

1.Sorunuzun cevabı:

Userform1 içinde userform_initialize kısmına şu kodları ekleyin:

Label25.Caption = Sheets("Plan").Cells(20, "ae")

2.Sorunuzun cevabı:

Label'larda text değil caption kullanılır.text kısımları captio olarak değiştirin.

 

[pelin5353]

Sayin Bedersu,

Gercekten cok yardimci oldunuz.. Cok Tesekkur ederim !!