Sayfa1 deki verileri 2 kritere göre gruplayıp sayfa2 ye yazdırma

[programer]

Arkadaşlar merhaba forumda gruplama diye arattım ama istediğim gibi bir çözüme ulaşamadım. Bulduğum örnekler hep tek kritere göre gruplama yapıyor. Benim yapmak istediğim B ve C stunlarındaki değerlere göre gruplayıp sayfa2 ye yazdırmak.

 

[programer]

Arkadaşlar 4 gündür araştırıyorum ama istediğim gibi bişey bulamadım. Yardımcı olabilirmisiniz.

 

[programer]

Arkadaşlar ben halen bir sonuca ulaşamadım eğer bu şekilde bir gruplama yapamassak başka ne gibi bir alternatif bulabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub listele()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 2 To s1.[b65536].End(3).Row
If s1.Cells(a - 1, "b") & s1.Cells(a - 1, "c") <> s1.Cells(a, "b") & s1.Cells(a, "c") Then
c = c + 1
For b = 2 To 7
s2.Cells(c + 1, b - 1) = s1.Cells(a, b)
Next
End If
Next
End Sub

 

[programer]

Sayın leventm hocam çok teşekkür ederim bu kod baya işime yarayacak. çok sağolun.

 

[asad]

kardeşim birde bu dosyaya göz gezdir bakalım
çok özür dileyerek belirteyim dosya bu sitedeki arkadaşlardan
ama dosya sahibinin adını not etmemişim çok çok özür dilerim

 

[apoturka]

Acİl Yardim

merhaba arkadaşlar forum da yeniyim aramadan soru sormak istemdim ama baya aradım bir türlü bulamadım aynı tarihteki borçları otomatik olarak nasıl toplarım bide listeye hergün yeni alış tarihi, vadesini , ve fiyatını ekliyorum ben ekleyince aynı vadeli borçları nasıl toplarım mesele f sütununda her vade tarihi ayrı ayrı nasıl yazarım çok acil yardım lazım... her geçen gün liste kabarıyor şimdilik sadece veri>sıralama yapabildim...