Userden Sayfalara aktar

[beykatip]

Ekte gönderdiğim dosyamdaki şahıs bilgilerini yani 1. sıradaki şahısı 2.sayfaya- 2. sıradakini 3.sayfaya-4. sıradakine ait bilgileri 5. sayfaya aktarmak istiyorum herkese iyi tatiller

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton6_Click()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Son_Satır As Long, Satır As Long
    
    If TextBox1 = "" Then
        MsgBox "Aktarmak için ilk önce ilgili kayıdı bulmalısınız !" & Chr(10) & _
        "İşleminiz iptal edilmiştir.", vbCritical
        Exit Sub
    End If
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa" & ComboBox1.ListIndex + 2)
    Son_Satır = S2.Cells(Rows.Count, 1).End(3).Row + 1
    Satır = ActiveCell.Row
    
    S2.Range("B" & Son_Satır & ":E" & Son_Satır).Value = S1.Range("B" & Satır & ":E" & Satır).Value
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[beykatip]

Korhan bey teşekkür ederim