Kod Revizyon Yardımı !!!!

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst