Excel VBA Kodlama - COUNTIF

preview_player
Показать описание
Excel VBA kodlama
Excel VBA COUNTIF

Kodlar:

Sub kodlama1()

Sheet1.Range("d3").Value = _
Application.WorksheetFunction.CountIf(Range("a2:a50"), Range("d1"))

End Sub

Function eğersay2(alan1 As Range, kriter As Range)

eğersay2 = _
Application.WorksheetFunction.CountIf(alan1, kriter)

End Function

Sub kodlama2()
Dim satir, sayac As Integer
For satir = 2 To Sheets("sheet1").Range("a2").End(xlDown).Row

If Sheets("sheet1").Cells(satir, 1).Value = Sheets("sheet1").Range("d1").Value Then
sayac = sayac + 1
End If


Next

Sheet1.Range("d4").Value = sayac

End Sub

Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
Рекомендации по теме
Комментарии
Автор

hocam merhaba makro1 güzel istediğimiz gibi çalısıyor ancak benim tam istediğim countif döngüsü ile sayfa 1 de ki verileri örnek olarak: isimleri sayfa 2 ye getirip tabloda ali yazan yere aynı olan verileri sayıp adet olarak girecek ve tabloda alt hücreye geçip veliye onunda kac kere tekrar 1ci sayfamızda tekrar edildigini bulup 2sayfamızdaki tablomuza veli adedini yan hücreye girip devam edecek
elimdeki veri 2000 küsür kolay yoldan yaptım teşekkür ederim ancak bu sürekli aralık belirtmekle olmuyor veri ekleniyor sürekli istediğim şey kodla tamamen kendi döngüm içinde bunları bulması.

mertyldrm