UserFormdan aynı anda 2 sayfaya kaydetmek

[ahatbek]

Merhaba arkadaşlar
uzun aradan sonra tekrar selamlar
ekte sunduğum çalışmayı inceleyerek yardımcı olursanız sevinirim
Saygılarımla

 

[İhsan Tank]

merhaba
benden size tavsiye tüm sorularınızı tek tek sorun ve sonra hepsini birleştirin.

 

[ahatbek]

iki sayfaya birden kaydetmek

Tekrar merhaba hocam...
Tevsiyenize uyarak bu sefer sorumu ikiye indirdim
1-form1 deki bilgileri kaydet dediğimde her iki sayfaya yazılması
2- ListBox1'e ikinci yani Data2 sayfasından veri çekmesi

Dosya ektedir

Saygılarımla

 

[İhsan Tank]

Tekrar merhaba hocam...
Tevsiyenize uyarak bu sefer sorumu ikiye indirdim
1-form1 deki bilgileri kaydet dediğimde her iki sayfaya yazılması
2- ListBox1'e ikinci yani Data2 sayfasından veri çekmesi

Dosya ektedir

Saygılarımla

merhaba
commanbutton2'ye kodunu bununla değiştirin.
Not : Çift Sayfaya Kayıt Yapar.
bu açtığınız konunun yanıtıdır. diğer sorularınızı ayrı ayrı konu başlıkları altında tek tek sorunuz.

Private Sub CommandButton2_Click()
Dim ts, kaplan, data1, data2, trabzonspor
If TextBox1 = Empty Then MsgBox "Adı Boş": TextBox1.SetFocus: Exit Sub
If TextBox2 = Empty Then MsgBox "Soyadı Boş": TextBox2.SetFocus: Exit Sub
If TextBox3 = Empty Then MsgBox "Doğum Tarihi Boş": TextBox3.SetFocus: Exit Sub
If ComboBox1 = Empty Then MsgBox "Cinsiyet Boş": ComboBox1.SetFocus: Exit Sub
If ComboBox2 = Empty Then MsgBox "Uyrugu Boş": ComboBox2.SetFocus: Exit Sub
If ComboBox3 = Empty Then MsgBox "Süre Boş": ComboBox3.SetFocus: Exit Sub
If TextBox4 = Empty Then MsgBox "Başlangıç Tarihi Boş": TextBox4.SetFocus: Exit Sub
If TextBox5 = Empty Then MsgBox "Aidat Boş": TextBox5.SetFocus: Exit Sub
trabzonspor = MsgBox("Verileri 2 Sayfaya Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
data1 = Sheets("Data1").Range("C65536").End(xlUp).Row
data2 = Sheets("Data2").Range("C65536").End(xlUp).Row
ts = data1 + 1
kaplan = data2 + 1
Sheets("Data1").Range("C" & ts).Value = TextBox1.Value
Sheets("Data2").Range("C" & kaplan).Value = TextBox1.Value
Sheets("Data1").Range("D" & ts).Value = TextBox2.Value
Sheets("Data2").Range("D" & kaplan).Value = TextBox2.Value
Sheets("Data1").Range("E" & ts).Value = TextBox3.Value
Sheets("Data2").Range("E" & kaplan).Value = TextBox3.Value
Sheets("Data1").Range("F" & ts).Value = ComboBox1.Value
Sheets("Data2").Range("F" & kaplan).Value = ComboBox1.Value
Sheets("Data1").Range("G" & ts).Value = ComboBox2.Value
Sheets("Data2").Range("G" & kaplan).Value = ComboBox2.Value
Sheets("Data1").Range("H" & ts).Value = ComboBox2.Value
Sheets("Data2").Range("H" & kaplan).Value = ComboBox3.Value
Sheets("Data1").Range("I" & ts).Value = TextBox4.Value
Sheets("Data2").Range("I" & kaplan).Value = TextBox4.Value
Sheets("Data1").Range("K" & ts).Value = TextBox5.Value
Sheets("Data2").Range("K" & kaplan).Value = TextBox5.Value
Sheets("Data1").Range("A2") = 1: Sheets("Data2").Range("A2") = 1
Sheets("Data1").Range("A2:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
Sheets("Data2").Range("A2:A" & kaplan).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
MsgBox "Veriler Kaydedildi", vbInformation, "Bitiş"
End Sub

 

[ahatbek]

ListBox'a veri çekmek ve çift tıklandığında Form2 açılması

Teşekkürler hocam hızlı yanıtınızdan dolayı...

 

[İhsan Tank]

Teşekkürler hocam hızlı yanıtınızdan dolayı...

rica ederim
:yazici: