Veri saydırmada seçenek artırma.

[kelkitli]

Değerli Dostlar Selamlar,

Sayfa1.[AK14] = WorksheetFunction.CountIf(Range("A1:A100"), (0 < 100))

1 ile 100 aras&#305; olan say&#305;lar&#305; sayd&#305;rmak istiyorum. Ama arada 20,21,22 rakamlar&#305;n&#305; hari&#231; tutmak istiyorum. Nas&#305;l belirtmeliyim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki fonksiyonu, makronun olduğu modülün içine kopyalayınız.

Private Function Aralikta_OzelTopla(ByRef Rng As Range) As Integer
    Dim hcr As Range
    For Each hcr In Rng.Cells
        If hcr >= 1 And hcr <= 100 Then
            If hcr >= 20 And hcr <= 22 Then Else _
                Aralikta_OzelTopla = Aralikta_OzelTopla + 1
        End If
    Next
End Function

Daha sonra da; makronuzda, aşağıdaki şekilde çağırınız.

Sayfa1.[AK14] = Aralikta_OzelTopla(Range("A1:A100"))

 

[kelkitli]

Selamlar,
Say&#305;n Ferhat Hocam, te&#351;ekk&#252;r ederim. Bu harika oldu.