Hedef altındaki değer say

[ogecen]

Merhaba sayın arkadaşlar

Açıklamasını ekli dosyada yaptığım konu hakkında yardımlarınızı rica ederim.

A2 de Hedef değerim var, B:N arası fiili değerlerim var, O2 ye Hedefe göre kaç değer hedef altındaki veriyi saymak istiyorum

Saygılarımla,

 

[Cengizhantr06]

Sub deneme()
Dim target As Double
Dim count As Long
Dim cell As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
target = ws.Range("A2").Value

count = 0
For Each cell In ws.Range("B2:N2")
If cell.Value < target Then
count = count + 1
End If
Next cell
ws.Range("O2").Value = count
End Sub
Çalışma kitabı adı neyse onu sheet1 olan yere yazın

 

[ogecen]

Cengizhan bey, geri dönüş için çok teşekkür ederim.
Bu işlemin formül ile olmasını belirtmediğim için hata bende.
Rica etsem formül ile destek olabilirmisiniz.

Saygılarımla

 

[Cengizhantr06]

O2 ye bunu gazın
=COUNTIF(B:N, "<" & A2)

 

[ogecen]

Cengizhan bey,
Çok teşekkür ederim, elinize sağlık