iki aynı değer arasındaki satır sayısı

[banu dede]

merhaba,
ihtiyacım olan bilgi ekte
yalnız fonksiyon çözümü arıyorum
TŞK

 

[Ferhat Pazarçevirdi]

C2 hücresine aşağıdaki formülü girin ve aşağıya doğru tutamacından çekin (veya kopyalayın)

=EĞER(A2=1;MAK($D$11)+1;"")


.

 

[usubaykan]

Selamlar,
Ferhat hocam Mak değerini "D1" aralığından değilde "B1" aralığından verirse daha sağlıklı çalışacağının kanatindeyim. Belki ben yanlış yorumlamışta olabilirim. Ama benim anladığım kadarıyla olması gereken "(=EĞER(A2=1;MAK($B$1:B1)+1;"")" gibi.
Umarım sorunuzu doğru anlamışımdır. Kolay gelsin.

Option Explicit

Sub Satır_sayısı()
    Dim U As Long
    Application.ScreenUpdating = False
    For U = 1 To [a65536].End(3).Row
    If Cells(U, 1) = 1 Then
    Cells(U, 2).FormulaR1C1 = "=IF(RC[-1]=1,MAX(R1C2:R[-1]C)+1,"""")"
    Range("B:B").Value = Range("B:B").Value
    Application.ScreenUpdating = True
    End If
    Next
End Sub