Verİlerİn AyriŞtirilmasi

[qwertylion]

selam arkadaşlar;


sorunum örnekte anlaşılacağı üzere bir tane ana listem var. bu listedeki verilerin aylar itibariyle doğrudan 2007 ocak 2007 şubat sayfalarına yapıştırmak. bunun için herhangi bir formül varmıdır. yarıdmcı olursanız sevinirim. (Süz kes kopyala çok zaman alıyor)

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim I, SUT, SON As Long
For I = 2 To Sheets.Count
Sheets(I).[A2:H1000].Clear
For SUT = 1 To Sheets("ANA LİSTE").UsedRange.Rows.Count
SON = Sheets(I).UsedRange.Rows.Count + 1
If Sheets(I).Name = Cells(SUT, "A") & " " & Cells(SUT, "B") Then
Sheets("ANA LİSTE").Cells(SUT, "A").EntireRow.Copy
Sheets(I).Cells(SON, "A").PasteSpecial
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[qwertylion]

Sayin N.zİya HİÇdurmaz Çok TeŞŞekkÜr Ederİm

 

[N.Ziya Hiçdurmaz]

Bişey değil

 

[qwertylion]

bir şey daha sorabilirmiyim acaba yazdığınız formülde en son 1000. satıra kadarmı tarıyor acaba ?eğer öyleyse ben buraya 65536 yazarsam bir sorun oluşmaz herhalde doğrumuyum ?

 

[N.Ziya Hiçdurmaz]

Hayır veri olan son satıra kadar tarıyor 1000 Veri dağıtılan sayfaları temizlemek için

 

[qwertylion]

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak formülle hazırladığım ekteki örnek dosyayı incelermisiniz. Sayfalarda sarı renkle belirttiğim hücreler parametre olarak kullanılmıştır.

 

[qwertylion]

TeŞekkÜrler