Sütundaki Bilgileri Sekmelere Taşıma

[wowow]

Merhaba,

Sütunda tekrar eden ID'lere ait farklı bilgilerim var(aynı şube kodundaki farklı müşterilerin farklı bilgileri gibi). İhtiyacım olan ise her bir ID'ye ait bilgileri ayrı ayrı sayfalarda göstermek(her şubenin müşterilerini ubeye ait ayrı ayrı sayfalara bölmek istiyorum). Office 2007'de bunun için bir fonksiyon vardı diye hatırlıyorum ama ne kadar aradıysam da bulamadım. Yardımcı olur musunuz?

 

[Levent Menteşoğlu]

Sorunuz için bir örnek dosya eklermisiniz.

 

[wowow]

Sorunuz için bir örnek dosya eklermisiniz.

Örnek olabilecek bir dosyayı ekledim. Her bir şube kodu için şube kodunu gösteren yeni bir sayfaya o şube kodundaki bilgileri yazsın istiyorum. Başka bir deyişle dosyayı şube kodlarına göre bölebilmek istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kodu bir modüle kopyaladıktan sonra sayfa1'de bir butona bağlayın. Ayrıca dosyanızıda xlsm uzantılı olarak kaydetmeyi unutmayın.

Sub sayfalaraaktar()
Application.ScreenUpdating = False
Set s1 = Sheets("sayfa1")
For a = 2 To s1.[c65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("c2:c" & a), s1.Cells(a, "c")) = 1 Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = s1.Cells(a, "c")
Set s2 = Sheets("" & s1.Cells(a, "c"))
s2.[a1] = s1.[a1]
s2.[b1] = s1.[b1]
s2.[a:b].EntireColumn.AutoFit
Else
Set s2 = Sheets("" & s1.Cells(a, "c"))
End If
son = s2.[a65536].End(3).Row + 1
s2.Cells(son, "a") = s1.Cells(a, "a")
s2.Cells(son, "b") = s1.Cells(a, "b")
Next
End Sub

 

[wowow]

işe yarıyor Çok teşekkür ederim.