programer
Altın Üye
- Katılım
- 26 Mayıs 2005
- Mesajlar
- 603
- Excel Vers. ve Dili
- Office 2022 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2025
Arkadaşlar herkese iyi geceler.
Yukarıdaki kodu kullanarak verileri 2 koşula göre gruplayıp sayfa2'ye alabiliyorum.
Yapmış olduğum Satis Çikiş Formunda bul deyip koşulları seçtikten sonra BUL butonuna tıkladığım zaman verileri ListView'e alıyorum. Ama tekrar eden aynı kayıtlar var. Bu tekrar eden kayıtları Belge No1, Belge No2 ve Fiş Türü Satis_Cikis_Fisi olanları gruplamak istiyorum.
Kod:
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
Yapmış olduğum Satis Çikiş Formunda bul deyip koşulları seçtikten sonra BUL butonuna tıkladığım zaman verileri ListView'e alıyorum. Ama tekrar eden aynı kayıtlar var. Bu tekrar eden kayıtları Belge No1, Belge No2 ve Fiş Türü Satis_Cikis_Fisi olanları gruplamak istiyorum.