Soru Countif ve Satır Sayma

[dengeceteris]

İyi akşamlar;

Ekte bir dosyam var. A ve B sütunlarında formüllerim var. Bunları makro ile nasıl ifade edebilirim. (Dosyayı ekleyemedim daha doğrusu böyle bir yeri bulamadım

(SATIR()-4)&$C$3

EĞERSAY(C$5:$C5;C5)&C5

 

[dengeceteris]

İyi akşamlar;

Ekte bir dosyam var. A ve B sütunlarında formüllerim var. Bunları makro ile nasıl ifade edebilirim. (Dosyayı ekleyemedim daha doğrusu böyle bir yeri bulamadım)

(SATIR()-4)&$C$3

EĞERSAY(C$5:$C5;C5)&C5

 

[dengeceteris]

.

 

[Korhan Ayhan]

Merhaba,

Dosya ekleyebilmeniz için ALTIN Üye olmalısınız.

Bunun dışında dosyanızı paylaşım sitelerine yükleyip linkini paylaşabilirsiniz.

 

[dengeceteris]

Dosya ektedir

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Kod "C" sütununa veri girdiğinizde otomatik çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Son As Long
    On Error GoTo 10
    If Intersect(Target, Range("C5:C" & Rows.Count)) Is Nothing Then Exit Sub
    Son = Cells(Rows.Count, "C").End(3).Row
    With Range("A5:A" & Son)
        .Formula = "=ROW()-4&$C$3"
        .Value = .Value
    End With
    
    With Range("B5:B" & Son)
        .Formula = "=COUNTIF(C$5:C5,C5)&C5"
        .Value = .Value
    End With
10
End Sub

 

[dengeceteris]

Tek kelimeyle "harika" Teşekürler