baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Merhaba arkadaşlar, aşağıda üstat Cost Control'ün yazdığı müthiş güzel bir kod var. Bu koda ile liste halinde olan verileri, şehrilerine ayrı sayfalarda, kod ve tarihlerin kesiştiği yerlere miktar getirebiliyoruz. Bunu bir aşama daha geliştirmek için aynı şehirde, aynı tarihte ve aynı kodların toplanarak tek bir rakam halinde kod/tarih kesişme hücresine yazmak için aşağıdaki nasıl değiştirmek gerekir :
Sub aktar()
On Error Resume Next
For a = 2 To [a65536].End(3).Row
ad = Cells(a, "a")
Set s1 = Sheets(ad)
sat = WorksheetFunction.Match(Cells(a, "b"), s1.[c:c], 0)
sut = WorksheetFunction.Match(Cells(a, "c"), s1.[4:4], 0)
s1.Cells(sat, sut) = Cells(a, "d")
Next
MsgBox "Islem tamamlandi."
End Sub
Sub aktar()
On Error Resume Next
For a = 2 To [a65536].End(3).Row
ad = Cells(a, "a")
Set s1 = Sheets(ad)
sat = WorksheetFunction.Match(Cells(a, "b"), s1.[c:c], 0)
sut = WorksheetFunction.Match(Cells(a, "c"), s1.[4:4], 0)
s1.Cells(sat, sut) = Cells(a, "d")
Next
MsgBox "Islem tamamlandi."
End Sub