Multipage ve Sekmeler

[CILEKESH]

page1 deki textbox'un "Gelirler" sekmesine
Page2 deki textbox'un "Giderler" sayfasına aktarılmasını istiyorum

Kodları buraya da yazsanız olur dosyaya da uygulasanız olur.

Şimdiden Teşekkür Ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, txtbx As Object
If MultiPage1.Value = 0 Then
    Set sh = Sheets("Gelirler")
    Set txtbx = TextBox1
    ElseIf MultiPage1.Value = 1 Then
    Set sh = Sheets("Giderler")
    Set txtbx = TextBox2
End If
sat = sh.Range("A" & Rows.Count).End(xlUp).Row + 1
sh.Cells(sat, "A").Value = WorksheetFunction.Max(sh.Range("A:A")) + 1
sh.Cells(sat, "B").Value = txtbx
Set sh = Nothing: Set txtbx = Nothing
    
End Sub

 

[CILEKESH]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, txtbx As Object
If MultiPage1.Value = 0 Then
    Set sh = Sheets("Gelirler")
    Set txtbx = TextBox1
    ElseIf MultiPage1.Value = 1 Then
    Set sh = Sheets("Giderler")
    Set txtbx = TextBox2
End If
sat = sh.Range("A" & Rows.Count).End(xlUp).Row + 1
sh.Cells(sat, "A").Value = WorksheetFunction.Max(sh.Range("A:A")) + 1
sh.Cells(sat, "B").Value = txtbx
Set sh = Nothing: Set txtbx = Nothing
    
End Sub

Hızınız İçinde ayriyetten teşekkür ederim. Kodların mantığını çözmeye çalışacağım.

 

[CILEKESH]

Dosyamı Revize ettim.
Sizin gönderdiğiniz Kod sistemini asıl uygulamama uyduramadım malesef.

Benim Page1 ' e uyguladığım kod sisteminin aynısını Page2 ye uyarlayabilirseniz bende kendi dosyama rahatlıkla uygulayabilirim.

 

[CILEKESH]

Bu arada Sayın Orion1 Benim çalışmamda iki adet buton var. Siz tek butona bağlamışsınız.