Merhaba hocalarım ve arkadaşlarım;
Sheets("veri").Select
On Error Resume Next
For Sayfa = 2 To Sheets.Count
If Sheets(Sayfa).Name <> "veri" Then Sheets(Sayfa).[aa2:ax65536].ClearContents
Next
For a = 3 To [c65536].End(3).Row
Set s1 = Sheets("" & Cells(a, "c").Value)
say = s1.[c65536].End(3).Row + 1
For b = 1 To 16
s1.Cells(say, b) = Cells(a, b)
Next: Next
MsgBox "Aktarma işlemi tamamlandı"
yukarıdaki kod bir sayfadaki c hücresinde ismi aynı olan satırları aynı isimde açılmış sayfaya yan yana sütunlara aktarıyor. benim yapmak istediğim veri kaynağında yan yana olan satırları alt alta sıralatmak. örneğin adı telefonu faxı e-mail i yan yana sıralı bir firmanın bu bilgilerini firmanın isminin olduğu sayfaya alt alta sıralatmak. lütfen bu konuda değerli fikirlerinizi paylaşırmısınız benimle.
Sheets("veri").Select
On Error Resume Next
For Sayfa = 2 To Sheets.Count
If Sheets(Sayfa).Name <> "veri" Then Sheets(Sayfa).[aa2:ax65536].ClearContents
Next
For a = 3 To [c65536].End(3).Row
Set s1 = Sheets("" & Cells(a, "c").Value)
say = s1.[c65536].End(3).Row + 1
For b = 1 To 16
s1.Cells(say, b) = Cells(a, b)
Next: Next
MsgBox "Aktarma işlemi tamamlandı"
yukarıdaki kod bir sayfadaki c hücresinde ismi aynı olan satırları aynı isimde açılmış sayfaya yan yana sütunlara aktarıyor. benim yapmak istediğim veri kaynağında yan yana olan satırları alt alta sıralatmak. örneğin adı telefonu faxı e-mail i yan yana sıralı bir firmanın bu bilgilerini firmanın isminin olduğu sayfaya alt alta sıralatmak. lütfen bu konuda değerli fikirlerinizi paylaşırmısınız benimle.