WorksheetFunction.CountIf

[soykan]

Değerli Üstatlar,

Bir döngü kuruyorum bu döngüde WorksheetFunction.CountIf fonksiyonunu kullanmam lazım hata alıyorum. Nerede hatam var?

Sub ArtAzElmn()
ssut = [A5].End(xlToRight).Column + 1
Cells(5, ssut).Value = "Artış/Azalış"
For x = 6 To WorksheetFunction.CountIf("B", "*")
Cells(x, ssut).Formula = "=IFERROR(RC[-1]/RC[-2]-1,0)"
Next x
End Sub

 

[Ömer]

Merhaba,

Deneme yapmadım yalnız countif kullanımında aralık tanımlamamışsınız, "B" neyi ifade ediyor.

Countif([B:B], "*")

yada,

Countif([B2:B100], "*")

gibi aralık belirlemeniz gerekir.

 

[leumruk]

Değerli Üstatlar,

Bir döngü kuruyorum bu döngüde WorksheetFunction.CountIf fonksiyonunu kullanmam lazım hata alıyorum. Nerede hatam var?

Sub ArtAzElmn()
ssut = [A5].End(xlToRight).Column + 1
Cells(5, ssut).Value = "Artış/Azalış"
For x = 6 To WorksheetFunction.CountIf("B", "*")
Cells(x, ssut).Formula = "=IFERROR(RC[-1]/RC[-2]-1,0)"
Next x
End Sub

Hata aldığınız satırı belirtirseniz daha kesin cevaplar alabilirsiniz. Şu şekliyle baktığımda "B" bir aralık değil. Bunun yerine bir aralık belirtmelisiniz. Range("B1:B10") gibi...

 

[soykan]

Çoook Teşekkürler süpersiniz...