Userform u başka sayfadan çağırma

[ThEeNCi]

Selamlar başka sayfadan userformu çağırınca çağrılan sayfaya kaydediyor bunu nasıl düzeltebilirim çok teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Save butonu kodlarına kırmızı ile belirttiğim kısımları ilave edin.

[COLOR="Green"]'...[/COLOR]
If Not IsNumeric(TextBox12.Text) Then
        MsgBox "Please enter a Numeric Value.", vbExclamation
        TextBox12.SetFocus
        Exit Sub
    End If
sonsat = Sheets("Data").[a65536].End(3).row + 1
[COLOR="DarkRed"]With Sheets("Data")[/COLOR]
[COLOR="DarkRed"].[/COLOR]Cells(sonsat, 1) = TextBox1
[COLOR="DarkRed"].[/COLOR]Cells(sonsat, 2) = TextBox2
.Cells(sonsat, 3) = TextBox3
.Cells(sonsat, 4) = TextBox4
.Cells(sonsat, 5) = TextBox5
.Cells(sonsat, 6) = TextBox6
.Cells(sonsat, 7) = TextBox7
.Cells(sonsat, 8) = TextBox8
.Cells(sonsat, 9) = TextBox9
.Cells(sonsat, 10) = TextBox10
.Cells(sonsat, 11) = TextBox11
.Cells(sonsat, 12) = TextBox12
[COLOR="DarkRed"]End With[/COLOR]

MsgBox "Registration is successful"
ListBox1.List = Sheets("Data").Range("a2:l" & [a65536].End(3).row).Value 'For refresh listbox
TextBox14.Value = ListBox1.ListCount
End Sub

. . .

 

[ThEeNCi]

hüseyin bey kırmızı olan yerleri ekledim fakat yine çağırdığım sayfaya ekledi

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir...

. . .

 

[ThEeNCi]

Çok teşekkür ederim elinize sağlık