Aktar

[mcetinkaya65]

Bir excel dosyasında (Liste Yapma) sayfasından B3 K250 Arasına veriler girilmekte.E stununa göre filtreleyip dolu olanlarını Boş liste adlı sayfanın B3 K226 temizleyip b3 hücresinden başlayarak aktarmasını sağlayacak bir makro yazılabilirmi.(Her aktarım boş liste sayfasının B3 hücresinden başlayacak.)
Saygılarımla..

 

[YUSUF44]

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

Sub süzaktar()
    Sheets("boş liste").Select
    Range("B3:K226").ClearContents
    Range("B3").Select
    
    Sheets("Liste yapma").Select

    ActiveSheet.Range("$B$2:$K$250").AutoFilter Field:=4, Criteria1:="<>"
    Range("B3:K3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("boş liste").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.

sayfanın kod bölümüne;

Sub süzülenleri_aktar()
Set s1 = Sheets("Liste Yapma")
Set s2 = Sheets("Boş liste")
Sheets("Boş liste").Range("b3:k250").ClearContents
s1.Select
i = s2.Cells(Rows.Count, "B").End(3).Row + 1
Range("B2").CurrentRegion.Copy s2.Range("B2")
End Sub

 

[mcetinkaya65]

Hepinizden Allah razı Olsun.