Soru Süzülen Veriyi Aktarma

[Hsn55]

İyi akşamlar;
Ekli dosyada Sevk Pusulası Girişi sayfasındaki süzmüş olduğumuz verileri mutabakat sayfasında ki ilgili sütunlara makro ile yada formül ile aldırabilir miyiz ? Yardımcı olursanız sevinirim

İndir AKTAR xlsm

Dosyayı indir AKTAR xlsm

dosya.co

 

[Mdemir63]

Selam

Modül içine aşağıdaki kodları kopyalayıp deneyiniz

Sub Suz_Aktar()
Dim ws As Worksheet, ws1 As Worksheet
Dim Son, lr As Long
Set ws = ThisWorkbook.Worksheets("SEVK PUSULASI GİRİŞİ")
Set ws1 = ThisWorkbook.Worksheets("MUTABAKAT TUTANAĞI")
      ws.Activate
    Son = ws.Range("B65000").End(3).Row
    Range("B2:E" & Son).Select
    Selection.Copy
    ws1.Select
    lr = ws1.Range("C65000").End(3).Row + 1
    Range("C" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        
        MsgBox "Süzülen Bilgiler Aktarıldı", vbInformation, Application.UserName

End Sub

 

[Hsn55]

Hocam merhabalar;
Makro hata veriyor. Ayrıca kopyalama verileri nde istediğim aralıklar seçilmiyor.

 

[Mdemir63]

Selam

Makro AYVACIK süzüldüğünde hata veriyor. Sebebi Aktarılan sayfada süzülen satırlar kadar satır olmadığından, Ayrıca istediğiniz aralığı belirtmemiş siniz

 

[Hsn55]

Hocam istediğim aralık mutabakat sayfasındaki yerlere denk olan sütunlara gelecek şekilde sevk pusula sayfasından alınacak Peki hocam kendi son satıra kadar makro satır ekleyebilir mi. Alttaki veriler kalmak kaydıyla

 

[Hsn55]

Sayın Mdemir63 çok teşekkür ederim. Kod gayet güzel. Sadece 3 yerre düzenleme olaiblirse tamam olacak gibi.
1-Her aktarmada bir alt satıra kayıt yapıyor. Öncekini silecek. Onun yerine kayıt olacak.
2-Kaç adet veri aktarımı yapıldı ise , mutabakat sayfasında ki B sütununa sıra numarası verecek.
3-Mutabak sayfasında yeterli satır yoksa uyarı verecek .Eğer olabilirse makro aktarılan veri kadar satır oluşturablecek.