Sayfalara taşıma

[casanovatrb]

A B C D E F G
grup1 L4 FM E 259 2018 FARUK ÖZTÜRK
grup1 L1 GNL E 915 1257 MUHAMMED YÜKSEL
grup1 L1 GNL E 912 1027 MEHMET KANKAL
grup2 L1 GNL E 911 1100 CÜNEYT KIDIK
grup4 L1 GNL E 910 1504 YAVUZ DEMÜR
grup1 L1 GNL E 907 1002 İSMAİL KANKAL
grup1 L1 GNL E 905 1048 FURKAN AKYOL
grup1 L1 GNL E 174 179 AHMET KILIÇ



ARKADAŞLAR ÖRNEKTEKİ GİBİ UZAYAN BİRLİSTE VAR ELİMDE

BU LİSTEDE Kİ GRUPLARI AYRI AYRI SAYFALARA TAŞIMAM GEREKİYO
GRUP1 SAYFA1 E GRUP2 SAYFA 2 YE

LİSTE SÜREKLİ DEĞİŞECEK
SAYFALAR BU LİSTE İÇERİSİNDEN GRUBUNA AİT OLAN LARI ALACAK

 

[YUSUF44]

Örnek dosya olmadığından tahminen hazırladığım kodlar aşağıdadır. Kodları bir modüle ekleyip deneyiniz:

Sub aktar()
[h1] = Cells(Rows.Count, 1).End(3).Row
For i = 1 To Cells(Rows.Count, 1).End(3).Row
sıra = Replace(Cells(i, 1), "grup", "")
    For j = 1 To Sheets.Count
        If Replace(Sheets(j).Name, "Sayfa", "") = sıra Then
            yeni = Sheets("Sayfa" & sıra).Cells(Rows.Count, 1).End(3).Row + 1
            If Sheets("Sayfa" & sıra).[A1] = "" Then yeni = 1
            Range(Cells(i, "A"), Cells(i, "G")).Cut Sheets("Sayfa" & sıra).Cells(yeni, "A")
        End If
    Next
Next

End Sub

 

[turist]

Makro ile çözümlü dosyanız aşağıdaki linkte eklidir.
İ N D İ R

 

[casanovatrb]

çok tş ederim makbule geçti

kandiliniz mübarek olsun