Userform-Düseyara baska sayfaya aktarmak

[Yakut]

slm

Userform üzerinden düseyara bilgileri tekrar baska sayfaya aktarmanin yolu acaba nasil olur ?

buradan bir dosya örnek almistim .

 

[fedeal]

Private Sub CommandButton1_Click()
Sheets("SAYFA3").Range("A" & 5).Value = ComboBox1
Sheets("SAYFA3").Range("B" & 5).Value = TextBox1
Sheets("SAYFA3").Range("C" & 5).Value = TextBox2
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
End Sub

 

[Orion1]

Private Sub CommandButton1_Click()
Dim sat As Long
With Sheets("Sayfa3")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "Satır doldu kayıt yapılmadı..!!", vbCritical, "UYARI"
        Exit Sub
    End If
    .Cells(sat, "A").Value = ComboBox1.Value
    .Cells(sat, "B").Value = TextBox1.Text
    .Cells(sat, "C").Value = TextBox2.Text
End With
End Sub

 

[Yakut]

ustalarim fedeal ve Evren Gizlen, sizlere tesekkür ederim, kursun gibisiniz .

saygilar

 

[Orion1]

ustalarim fedeal ve Evren Gizlen, sizlere tesekkür ederim, kursun gibisiniz .

saygilar

Rica ederim.
İyi çalışmalar.