Sütundaki Kopyalanan Verileri Sütuna Yapıştırma Makrosu

[akmlyx]

Değerli Üstatlar Merhaba,
Ekteki makro, sütundaki kopyalanan verileri başka bir sayfada satıra yapıştırıyor, benim istediğim ise sütundaki kopyalanan verileri başka bir sayfada yine sütuna yapıştırmasıdır. Yardımlarınızı bekliyorum. Şimdiden Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Düğme1_Tıklat_Yeni()
    Dim Say_HH As Long, Say_FS As Long
    Say_HH = Worksheets("Hakediş Hesaplama").Cells(Rows.Count, "F").End(xlUp).Row
    Say_FS = Worksheets("Formül Sayfası").Cells(1, Columns.Count).End(xlToLeft).Column + 1
    If Worksheets("Formül Sayfası").Cells(1, "A") = "" Then Say_FS = 1
    Worksheets("Hakediş Hesaplama").Range("F1:F" & Say_HH).Copy Worksheets("Formül Sayfası").Cells(1, Say_FS)
End Sub

 

[veyselemre]

Sub Düğme1_Tıklat()

    Dim say As Integer
    Set s1 = Worksheets("Hakediş Hesaplama")
    Set s2 = Worksheets("Formül Sayfası")
    say = IIf(s2.Range("A1") = "", 1, s2.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
    s2.Select
    s1.Range("F1:F40").Copy
    s2.Cells(1, say).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
        
    MsgBox ("Hakedişiniz hesaplandı. Lütfen KAYDET butonuna basınız.")
End Sub

 

[akmlyx]

Muzaffer Ali Hocam ve Veysel Emre Hocam, emeğiniz için çok teşekkür ederim.
Veysel Emre Hocamın makrosunda küçük bir sorun var işlem bittikten sonra en son formül sayfasında kalıyor, ben Hakediş Hesaplama Sayfasına geri dönüş olsun istiyorum. Bunu da yapabilir misiniz.
Muzaffer Ali Hocamın makrosundaki hata, aktarma işlemi yaptıktan sonra sütunların ilk dört satırını seçiyor(önce A1 den A4 e kadar, butona tekrar basınca B1 den B4 e kadar bu şekilde sırayla seçerek devam ediyor.)

 

[akmlyx]

Veysel Emre Hocam, makrodaki "s2.Select" komutu yerine "s1.Select" komutu yazılması yeterli sanırım.
Emeğiniz için tekrar tekrar TEŞEKKÜR EDİYORUM hocam.

Sub Düğme1_Tıklat()

Dim say As Integer
Set s1 = Worksheets("Hakediş Hesaplama")
Set s2 = Worksheets("Formül Sayfası")
say = IIf(s2.Range("A1") = "", 1, s2.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
s1.Select
s1.Range("F1:F40").Copy
s2.Cells(1, say).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

MsgBox ("Hakedişiniz hesaplandı. Lütfen KAYDET butonuna basınız.")
End Sub

 

[Muzaffer Ali]

Kodda hücre seçme yapılmıyor. Yani hiç seçim yapılmadan direkt kopyalama yapılıyor.
Başka bir sorun var da yoksa yanlış m telaffuz ettiniz?
Dosya ekte deneyin.

 

[akmlyx]

Muzaffer Ali Hocam, öncelikle yazdığınız makro için TEŞEKKÜR EDERİM.
Benim bahsettiğim, makro verileri aktarma işlemi yaptıktan sonra ekteki resimde görüleceği üzere sütunları seçme işlemi yapıyor.
Yardımınız için tekrar teşekkür ederim.

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

Sub Düğme1_Tıklat_Yeni()
    Dim Say_HH As Long, Say_FS As Long, x As Range
    Set x = ActiveCell
    Say_HH = Worksheets("Hakediş Hesaplama").Cells(Rows.Count, "F").End(xlUp).Row
    Say_FS = Worksheets("Formül Sayfası").Cells(1, Columns.Count).End(xlToLeft).Column + 1
    If Worksheets("Formül Sayfası").Cells(1, "A") = "" Then Say_FS = 1
    Worksheets("Hakediş Hesaplama").Range("F1:F" & Say_HH).Copy Worksheets("Formül Sayfası").Cells(1, Say_FS)
    Application.CutCopyMode = False
    x.Select
End Sub