2 sayfaya kayit girme

[pelin5353]

Selamlar,

Ekte yer alan dosyada da acikladigim gibi, kaydet buttonuna basinca ilgili bilgilerin hem sayfa 1.e hemde 2. ye ayni anda kaydolmasi gerekiyor. Sizlerden bu konu hakkinda yardim rica edecegim.. Tesekkurler..

 

[emrexcel123]

bu kodu dene bakalım

private sub commandbutton1_click ( )
d = [a65536].end(3).row + 1
sheets("rezervasyon").range(d,"a") = textbox1.text
sheets("rezervasyon").range(d,"b") = textbox2.text
sheets("rezervasyon").range(d,"c") = textbox3.text
sheets("rezervasyon").range(d,"d") = textbox4.text
sheets("rezervasyon").range(d,"e") = textbox5.text
sheets("rezervasyon").range(d,"f") = textbox6.text
sheets("rezervasyon").range(d,"g") = textbox7.text
sheets("rezervasyon").range(d,"h") = textbox8.text
end sub
bu kod sayfa2 yani rezervasyon sayfasına da kayıt yapar...

 

[pelin5353]

Oncelikle zaman ayirdiginiz icin tesekkur ederim. Verdiginiz makroyu ilave ettim .. ama olmadi...
Ama saniyorum istedigimi de tam olarak anlatamadim. Ben 2 sayfaya da ayni anda tek tusla kayit yapabilir miyim onu ogrenmek istiyorum..

 

[pelin5353]

En azindan yapılamazsa, olmayacagini soyleyebilirseniz bile bana yardim etmis sayilirsiniz... tesekkurler

 

[Qene]

İlk sayfaya kayıt başarılı ise..
Sayfa2.Range("A1")=Sayfa1.Range("A1") gibi bir örnek yapabilirsiniz..

 

[baba_karabatak]

for next döngüsün altına Sheets("rezervasyon").select diyerek
d = [a65536].end(3).row + 1
sheets("rezervasyon").range(d,"a") = textbox1.text
sheets("rezervasyon").range(d,"b") = textbox2.text
sheets("rezervasyon").range(d,"c") = textbox3.text
sheets("rezervasyon").range(d,"d") = textbox4.text
sheets("rezervasyon").range(d,"e") = textbox5.text
sheets("rezervasyon").range(d,"f") = textbox6.text
sheets("rezervasyon").range(d,"g") = textbox7.text
sheets("rezervasyon").range(d,"h") = textbox8.text
yazınız

 

[Qene]

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