eğersay formülü ve çıkarma

[dfrj]

ekte dosyayı gönderdim c sütunundaki 22 d sayısının toplamını almak istiyorum ama d hücresinde aynı değere sahip olanları 1 olarak saysın istiyorum nasıl bir formül yazmalıyım

 

[Mustafa MUTLU]

Makro ile olurmu ?..

 

[Mustafa MUTLU]

Eğer olur diyorsan
Aşağıdaki kodu sayfanın kod bölümüne ekleyin
Sayfaya bir düğme ekleyin sağ tıklayarak macro ata şıkkını seçip
açılan kutudan VERILERI_SAY seçip tamam dersiniz..

Sub VERILERI_SAY()
Application.ScreenUpdating = False
Call Mükerrerler
[G4] = 0
MM = 2
For MSTF = 2 To Cells(65536, "cz").End(xlUp).Row
For MSTF1 = 2 To Cells(65536, "D").End(xlUp).Row
If Cells(MSTF, "cz") = Cells(MSTF1, "D") Then
If Cells(MSTF1, "C") = "22 d" Then
[G4] = [G4] + 1
GoTo Gel
End If
End If
Next
Gel:
Next
Application.ScreenUpdating = True
Range("cz2:cz65536").ClearContents
MsgBox [G4] & " adet saydım..", vbInformation, "Mustafa MUTLU"
End Sub
Sub Mükerrerler()
Dim MM, mutlu, MMutlu
Range("cz2:cz65536").ClearContents
Application.ScreenUpdating = False
mutlu = 2
For MM = 2 To Cells(Rows.Count, "D").End(xlUp).Row
If WorksheetFunction.CountIf(Range("D2:D" & MM), Cells(MM, "D")) = 1 Then
Cells(mutlu, "cz") = Cells(MM, "D")
mutlu = mutlu + 1
End If
Next
Application.ScreenUpdating = True
End Sub

 

[dfrj]

formülle olsa daha iyi olur

formülle yapma imkanımız yokmu

 

[Mustafa MUTLU]

Macro sayfayı yormaz formülde veri biraz artınca her girdiğin veride formülün hesaplaması için veri sayısı ve bilgisayarının durumuna göre beklemen gerekir.
Bana göre formül yerine macro her zaman daha hızlı ve avantajlıdır.

İllede Formül derseniz
Formüllerle çalışan bir arkadaşımız size cevap verebilir.

 

[dfrj]

sorun çözülmüştür

sorun çözülmüştür teşekkür ederim.