Excel Makro İle Tablo Özetleme

Excel içinde visual basic arayüzü ile hazırlanmıştır. Kodlar aşağıdaki gibidir. Çok karmaşık olarak anlatmamaya özen gösterdim. Daha basit ve kısa kodlar var ancak anlaşılabilir olması ve mantığın kavranması adına bu şekilde kodlamayı daha uygun gördüm.

Aşağıdaki videodan içeriği izleyebilirsiniz.

Faydalı olması dileğiyle…

Private Sub CommandButton1_Click()
Range("H2:I1000").ClearContents

Dim ilk
Dim son
Dim tarih
Dim dongu
Dim dongu2

ilk = 2
son = 31
tarih = Cells(2, 7)

For dongu = ilk To son
dongu2 = WorksheetFunction.CountIf(Range("H2:H1000"), "<>") + 2
If Cells(dongu, 2) = tarih Then Cells(dongu2, 8) = Cells(dongu, 1)
If Cells(dongu, 2) = tarih Then Cells(dongu2, 9) = Cells(dongu, 3)

Next dongu

End Sub

Videoyu YouTube’da izleyin

Video'da yer alan excel dosyasını indirmek için tıklayınız.