bir sütundaki son 50 hücreyi seçip kopyalamak

[karakaçan]

A Sütunundaki son 50 adet (sayı dğişebilir) hücreyi (yanındaki sütunlarla beraber )seçip başka bir yere kopyalamak istiyorum yardımcı olurmusnuz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod Sayfa1 A sütunundaki dolu satırlara göre isteğe bağlı satır kadar 10 sütun genişliğinde alanı kopyalar.

Option Explicit
 
Sub SEÇİMLİ_SATIR_KOPYALA()
    Dim SATIR As Long
    
    SATIR = Application.InputBox("Lütfen kopyalamak istediğiniz satır sayısını giriniz !", , 50)
    If SATIR = 0 Or SATIR > 65536 Then Exit Sub
    
    If WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A")) < SATIR Then
        MsgBox "Sayfada " & SATIR & " adet veri bulunamadı !" & Chr(10) & "İşleminiz iptal edilmiştir.", vbCritical
        Exit Sub
    End If
    
    Sheets("Sayfa1").Range("A65536").End(3).Offset(-SATIR - 1).Resize(SATIR, 10).Copy
End Sub

 

[karakaçan]

ilginiz için teşekkürler yanlız ben A sütununda son dolu hücreden başlayarak belirli satır ve sütun sayısınca veriyi seçip başka bir yere kopyalamak istiyorum.

 

[levo26]

Sayın Karakaçan;

Sn. Korhan beyin kodları tam size göre, ekteki dosyayı inceleyin.