firma isimlerine göre satırları başka sayfaya kayıt

[ozlem.cg]

bir tabloda bulunan ürünler çeşitli firmalardan alınmaktadır. her firmanın kendi sayfalarında ürünlerini listelemek istiyorum. örnek tabloyu ekte yolluyorum teşekkürederim.

 

[hurkanpisirici]

bu dosyayı bir inceleyin isterseniz

umarım işinize yarar kendinize gör uyarlayabilirsiniz.

 

[ozlem.cg]

ilginiz için teşekkürederim ama benim tablom size yolladığım gibi ,ben o tablo üzerindeki satır ve sutunlara göre aynı şekilde ama sadece firmayı baz alarak sayfalanmasını istiyorum mesela A sayfasında aynı dizaynda, sadece A firmasından alınan ürünlerin sıralanması gibi....

 

[AS3434]

Sayın ozlem.cg

Aşağıdaki linkte 3 aktarma tarzı var. Birini kendinize uyarlayın.

http://excel.web.tr/showthread.php?t=32612

 

[hurkanpisirici]

hımm uğraşalıum o zaman

 

[Halit TÜRK]

dosya eklidir... kolay gelsin...

 

[veyselemre]

Örneğinizi inceleyin,

 

[ozlem.cg]

:roll: teşekkürederim. ama ben hala bi çözüme ulaşamadım benim dosyamın üzerinde bir çözüm sağlarsanız sevinirim

 

[AS3434]

Sayın ozlem.cg
Dosyanız ve açıklaması ekte.

 

[AS3434]

Sayın veyselemre ben dosya üzerinde açıklama yazarken cevap vermiş görmedim. Özür.

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnekte ben yaptım.

Sub test()
Set s1 = Sheets("DATA")
For i = 2 To Sheets.Count
Sheets(i).[A2:B10000].Clear
For sayfa = 2 To s1.[a65536].End(3).Row
If Range("a" & sayfa) = Sheets(i).Name Then
Range(Range("a" & sayfa).Offset(0, 1), Range("a" & sayfa).Offset(0, 2)).Copy
s = WorksheetFunction.CountA(Sheets(i).[a1:a65536])
Sheets(i).Range("a" & s + 1).PasteSpecial
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[Halit TÜRK]

6. mesaj sizin dosyanıza uygulanmıştı... kontrol edermisiniz...

 

[hurkanpisirici]

bu sefer oldu

200 satırlık yaptım az olursa haber verin yada olmuşsa tabikji düzeltmeleri yapalım

 

[hurkanpisirici]

dosyanız hazır

200 satır size yetermi bilmiyorum ama sadece 200 satır giriş yapabilirsiniz yetezse arttırırız

 

[ozlem.cg]

arkadaşlar çok teşekkür ederim ama sorunumu çözemedim. AS3434 bicli arkadaşım sizinki bana uygun fakat o veri aktar karesini ben kendi sayfamda nasıl kullanıcam onu bilemiyorum ???? yardımcı olursan sevinirim.
Makro ile ilgili formul yazılımlarını bilmiyorum

 

[AS3434]

Sayın ozlem.cg

Konu ile ilgili inceleyin.

http://www.excel.web.tr/showthread.php?t=3815