Tek buton ile iki ayrı sekmeye veri kaydedilmesi (koşullu)

[CILEKESH]

Kaydet butonuna bastığımda

CheckBox1 İŞARETLİ DEĞİL ise;
Sayfa1 e normal kodun içindekiler gibi kaydedilsin


CheckBox1 İŞARETLİ İSE;

Sayfa1 e normal kodun içindekiler gibi kaydedilsin + SAYFA2'ye de


TextBox14 = SAYFA2 (B) SÜTUNUNA
TextBox16 = SAYFA2 (C) SÜTUNUNA
TextBox15 = SAYFA2 (E) SÜTUNUNA
Frame1'in içindeki ComboBox10 DA = SAYFA2 (A) SÜTUNUNA
kaydedilsin istiyorum

Böylece Kırmızı renkle işaretlediklerim hem sayfa1 e hemde sayfa2' ye kaydedilmiş olacak.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub CommandButton24_Click()
Dim ts, Erkan
If TextBox14 = "" Or ComboBox8 = "" Or ComboBox9 = "" Or TextBox15 = "" Or TextBox16 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "© 2011 Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Sayfa1")
Erkan = ts.Range("B" & Rows.Count).End(xlUp).Row
ts.Range("B" & Erkan + 1) = TextBox14
ts.Range("C" & Erkan + 1) = ComboBox8
ts.Range("D" & Erkan + 1) = TextBox16
ts.Range("E" & Erkan + 1) = ComboBox9
ts.Range("F" & Erkan + 1) = TextBox15
ts.Range("a3") = 1
ts.Range("a3:a" & Erkan + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
If CheckBox1 = True Then
    son = Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row + 1
    Sayfa2.Cells(son, "a") = ComboBox10
    Sayfa2.Cells(son, "b") = TextBox14
    Sayfa2.Cells(son, "c") = TextBox16
    Sayfa2.Cells(son, "e") = TextBox15
End If
TextBox14 = ""
ComboBox8 = ""
ComboBox9 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox10 = ""
End Sub

 

[CILEKESH]

Bu şekil deneyiniz.

Private Sub CommandButton24_Click()
Dim ts, Erkan
If TextBox14 = "" Or ComboBox8 = "" Or ComboBox9 = "" Or TextBox15 = "" Or TextBox16 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "© 2011 Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Sayfa1")
Erkan = ts.Range("B" & Rows.Count).End(xlUp).Row
ts.Range("B" & Erkan + 1) = TextBox14
ts.Range("C" & Erkan + 1) = ComboBox8
ts.Range("D" & Erkan + 1) = TextBox16
ts.Range("E" & Erkan + 1) = ComboBox9
ts.Range("F" & Erkan + 1) = TextBox15
ts.Range("a3") = 1
ts.Range("a3:a" & Erkan + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
If CheckBox1 = True Then
    son = Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row + 1
    Sayfa2.Cells(son, "a") = ComboBox10
    Sayfa2.Cells(son, "b") = TextBox14
    Sayfa2.Cells(son, "c") = TextBox16
    Sayfa2.Cells(son, "e") = TextBox15
End If
TextBox14 = ""
ComboBox8 = ""
ComboBox9 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox10 = ""
End Sub

Teşekkür ederim Hocam.