A sütununda değişiklik olduğu zaman kodun çalışması

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Excel sayfamda A2'den aşağıya doğru hangi hücrede değişiklik olursa olsun, A1 hücresine formülümün yazmasını istiyorum.

Çok uğraştım ancak yapamadım, yardım eden arkadaşlara teşekkürler.

Aşağıdaki gibi yapmaya çalıştım formülün sonucunu yazdıramadım.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A2:A]) Is Nothing Then Exit Sub
    With Range("a1").Select
    .Formula = "=COUNTA(R[1]C:R[4999]C)"
    .Value = .Value
    End With
End Sub

 

[ASLAN7410]

Maalesef çözemediğim için konu güncel.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    With Range("A1")
        .Formula = "=COUNTA(R[1]C:R[4999]C)"
        .Value = .Value
    End With
End Sub

 

[ASLAN7410]

Korhan Bey çok teşekkür ediyorum, küçük bir dokunuşla herşeyi hallettiniz.

Hayırlı geceler diliyorum.

 

[Saban Sertkaya]

....
Korhan Hocam cevaplamış.
...