sıralama yardımı,

[mehmetozp]

merhaba arkadaşlar,

Excelde bir konuda yardım istiyorum.Her ay sıralaması ve müşteri adları değişen yukarıdaki gibi yaklaşık 1000 satırlık bir listemiz var ve bu liste haftalık değişiyor. Bu listeden diğer sayfa adları olan bazı ürünlerin kendi sayfalarına sayfalarda göründüğü gibi her hafta dağılması gerekiyor.
Müşteri sayısı değişklik gösteriyor, yani ekte göründüğü gibi 4 tane değil.

Bu işlem belki makro olmadan formüllerlede yapılabilir ancak dosya çok kullanıcılı olduğu için formul bozulmasına karşı makro ile olması daha iyi olacaktır.
Örnek dosya ektedir.


Bunu kolay bir şekilde yapacak bir makro yapımı konusunda yardımcı olabilir misiniz?

 

[Metin Karaağaç]

Bu şekilde işinizi görmüyor mu?

 

[hikmet]

sn.mehmetozp,
alternatif dosya ektedir. umarım işinizi görür.kolay gelsin.

 

[mehmetozp]

ilgine ve yadımına çok teşekkürler Hikmet, gönderdiğin dosya tam istediğim gibi olmuş.

Ancak bu konularda çok yeni olduğum için tam olarak nasıl çalıştığını anlayamadım.
Benim bu makroyu yeni dosyalara aktarıp o dosyaların kendi içindeki bilgilere göre ayarlamam gerekli( aktarma hücere değişikliği, aktarılacak yerlerin değişmesi, gibi...).

Yazmış olduğun alttaki makronun satırlarının ne işe yaradığını yazarsan gerekli modifiyeyi kendim yapabilirim sanırım.

Şimdiden teşekkürler,


Sub aktar()
On Error Resume Next
For sayfa = 2 To Sheets.Count
If Sheets(sayfa).Name <> "DATA" Then Sheets(sayfa).[a2:O65536].ClearContents
Next
For a = 3 To [a65536].End(3).Row
Set s1 = Sheets("" & Cells(a, "a").Value)
say = s1.[a65536].End(3).Row + 1
For b = 1 To 16
s1.Cells(say, b) = Cells(a, b)
Next: Next
MsgBox "aktarma işlemi tamamlandı"
End Sub

 

[Metin Karaağaç]

Sn hikmet'in çalışması alternatif değil, tam sizin istediğiniz şey.
Acaba bunu bi adım ileri götürebilirmisiniz?
Yani sayfa isimlerini de kendi verip gerektiği kadar sayfayı kendisi açsa?
Belki de daha önce böyle bir çalışma yapılmıştır ama bi sorayım dedim..

 

[Metin Karaağaç]

Buldum