Sondan başa doğru dolusatırdan itibaren 2 satır aktarılması

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada yapmak istediğim şöyle bir uygulama lâzım. Ayın kaç gün çektiğine bağlı olarak A sütununda ayın son gününden yukarı doğru eğer 31. gün dolu ise 31. ve 30., eğer 31. gün boş 30. gün dolu ise 30. ve 29., eğer 30. gün boş 29. gün dolu ise 29. ve 28., eğer 29.gün boş 28.gün dolu ise 28.gün ve 27. güne ait 2 satır A:AX aralığı sayfa1 de karşılıkgelen A2:AX3 alanına hücre değeri olarak (biçimler aktarılmayacak) aktarılacak.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    SON_SATIR = Sheets("AYLIKLİSTE").[C65536].End(3).Row
    If SON_SATIR < 5 Then
    MsgBox "AKTARILACAK VER&#304; BULUNAMAMI&#350;TIR !", vbCritical, "UYARI !"
    Exit Sub: End If
    Sheets("Sayfa1").Range("A2:AX3").Value = Sheets("AYLIKL&#304;STE").Range("A" & SON_SATIR - 1 & ":AX" & SON_SATIR).Value
    MsgBox "VER&#304;LER AKTARILMI&#350;TIR.", vbInformation
End Sub

 

[ASMET67]

Sn. Cost_Control hocamız benden özce cevap vermiş
Çeşit olması açısından.

Dosyanızı denermisiniz.

 

[kelkitli]

Sayın COST_CONTROL,
Sayın ASMET67, Çok çok teşekkür ederim.