1. Sayfadaki satır adedinin 2. sayfaya aynen taşınması hk.

[Vhailor]

Arkadaşlar herkese iyi akşamlar.

Bir çalışma haftasını daha tamamlamış olduk. Site sakinlerinin hepsine iyi tatiller demek istiyorum. Bu tatile çok ihtiyacım vardı

Konuya gelince; ekte de görülebileceği üzere, 1 sayfada 5 satırdan oluşan bir tablo var. Bazı durumlarda bu tablodaki 5 satırın 5i de doldurulabilir, bazen de sadece 1 satırı doldurulabilir. Sorun: Eğer ki 1. sayfada 1 satır doldurulursa, 2. sayfaya da sadece 1 satır aktarılsın, yani 2. sayfada sadece 1. satır görünsün, diğer satırlar boş kalsın ve hücre kenarlıkları görünmesin. (İstenen hali 3. sayfaya manuel olarak koydum.)

Yardımlarınızı bekliyorum.

Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Cells.Clear
    If S1.Range("A2") = "" Then
        MsgBox "Veri bulunamadı !", vbCritical
        Exit Sub
    End If
    
    S1.Range("A1:N" & S1.Cells(Rows.Count, "A").End(3).Row).Copy S2.Range("A1")
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Vhailor]

Teşekkür ederim.