Hücre içeriği değişince makro çalıştırma

[hmtstc]

merhaba, forumda da aradım internette de aradım ama bulduğum kodları çalıştıramadım.
Benim A1 hücremde sayaç var,A2 hücresinde formül var A2=B2*C2 var. A2 değişince A1 e +1 yapmasını istiyorum. Ama A2 değişikliği b2 ve c2 ile oluyor. yani A2 sadece formüllü.

şimdi bu bir örnek. ben bunu C8:C280 aralığında yapacağım. bu aralıktaki değerler değişince calistir isimli makro çalışsın istiyorum.

Nasıl yapabilirim ? yardımlar için şimdiden teşekkürler

 

[muratboz06]

sayfanın kod bölümüne aşağıdaki kodu yazarak deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("C8:C280"), Range(Target.Address)) _
        Is Nothing Then
        Call calistir
    End If
End Sub

 

[hmtstc]

sayfanın kod bölümüne aşağıdaki kodu yazarak deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("C8:C280"), Range(Target.Address)) _
        Is Nothing Then
        Call calistir
    End If
End Sub

hocam teşekkürler öncelikle ama bu olmuyor işte. ben C8:C280 arasını formülasyonla değiştiriyorum. yani A8:A280 değerlerinden B8:B280 değerleri çıkarılarak C8:C280 değerleri bulunuyor. A sütunu internetten veri çekiyor otomatik güncelliyor ki o da aynı formüllerle bağlı.
hücre içindeki değer 10 iken 12 olduğunda çalışmıyor. ben elle 12 yazarsam çalışıyor.
Anlatabildim mi problemi hocam ?

 

[YUSUF44]

A sütunu internetten nasıl veri çekiyor?Kodla mı başka şekilde mi?

 

[hmtstc]

excelde bir veri sayfası var, veri sayfasına veriler bir uygulama ile yükleniyor dde link ile geliyor.

 

[muratboz06]

Sayfanın kod bölümüne ekleyerek deneyiniz.

Private Sub Worksheet_Calculate()
    Dim Xrg As Range
    Set Xrg = Range("C8:C280")
    If Not Intersect(Xrg, Range("C8:C280")) Is Nothing Then
    Call calistir
    End If
End Sub

Örnek Kod: https://www.extendoffice.com/docume...n-macro-when-cell-formula-result-changes.html sitesinden alınmıştır.

 

[hmtstc]

@muratboz06 hocam eline sağlık, tam olarak buydu.