Sabit verileri yazmadan makro yardımı ile yapıştırma

[yyhy]

Sabitler sayfasında AK6:AK22 hücre aralığında verilerim var. Bu verileri veri sayfasında N sütununda en son boş hücreye makro ile değerleri yapıştırabilir miyiz? Makro yazmaya çalıştım, yapamadım. Yardımcı olan arkadaşlara teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s = Sheets("Sabitler")
Set v = Sheets("Veri")
son = v.Cells(Rows.Count, "N").End(3).Row + 1
If v.[n1] = "" Then son = 1

    s.Select
    Range("Ak6:Ak22").Select
    Selection.Copy
    Selection.Copy
    Sheets("Veri").Select
    Cells(son, "N").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells(son + 22, "N").Select
    Sheets("Sabitler").Select
    Application.CutCopyMode = False
End Sub

 

[yyhy]

Sayın YUSUF44 teşekkürler.