• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayfalara taşıma

Katılım
25 Aralık 2010
Mesajlar
62
Excel Vers. ve Dili
türkçe
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
 
Örnek dosya olmadığından tahminen hazırladığım kodlar aşağıdadır. Kodları bir modüle ekleyip deneyiniz:

Kod:
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
 
Makro ile çözümlü dosyanız aşağıdaki linkte eklidir.
İ N D İ R
 
çok tş ederim makbule geçti

kandiliniz mübarek olsun
 
Geri
Üst