M sütununda sayı yazıyorsa A'dan L'ye kadar kopyala

[bthn35]

Merhaba,
EK'teki excel'de örnek olarak belirttiğim gibi Gelen_Malzeme sekmesinde M sütununda sayı yazıyorsa A'dan L'ye kadar olan satırı kopyalayıp GIRIS-CIKIS sekmesinde en alttaki boş satıra yapıştırsın istiyorum. Mümkün mü acaba?

 

[Necdet]

Merhaba,

Bu işlemi 1 kere mi yapacak? tekrarlanan aktarma işleminde mükerrer kayıtlar oluşmaz mı?. Bunun için bir öneriniz var mı?

 

[bthn35]

Bu işlemi sürekli yapacağım, isimler/tarihler vs değişerek sürekli olarak devam edecek, onun için GIRIS-CIKIS sekmesine kopyalarken A sütununda en alttaki itibaren kopyalama yapması lazım

 

[Necdet]

Merhaba,

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

Sub Makro1()

    Dim i   As Long, _
        j   As Long, _
        ShGC As Worksheet, _
        ShGM As Worksheet
    
    Set ShGC = Sheets("GIRIS-CIKIS")
    Set ShGM = Sheets("Gelen_Malzeme")
    
    ShGM.Select
    
    Application.ScreenUpdating = False
    
    If ShGM.AutoFilterMode = True Then ShGM.Rows(1).AutoFilter
    
    i = ShGM.Cells(Rows.Count, "A").End(3).Row
    j = ShGC.Cells(Rows.Count, "A").End(3).Row + 1
    
    ShGM.Range("$A$1:$O$" & i).AutoFilter Field:=13, Criteria1:="<>"
    
    ShGM.Range("A2:L" & i).SpecialCells(xlCellTypeVisible).Copy ShGC.Range("A" & j)
    
    Selection.AutoFilter
    
    Application.ScreenUpdating = True
    
    MsgBox "İŞLEM TAMAMLANMIŞTIR...."
    
End Sub

 

[bthn35]

Oldu, çok teşekkür ederim