H9 hücresi Değişirse Calculate Yap

[baydeniro]

Merhaba arkadaşlar. Şöyle bir kod nasıl yazılabilir : H9 hücresinde buluna veri değiştirildiğnde F9 yani manuel calculate otomatik olsun.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

1. Kod; (H9 hücresi değiştiği andan itibaren hesaplama yöntemi siz değiştirmediğiniz sürece otomatik olarak ayarlanır.)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H9]) Is Nothing Then Exit Sub
    Application.Calculation = xlCalculationAutomatic
End Sub

2. Kod; (Değişen hücre H9 ise hesaplama yöntemi otomatik olur. Değilse hesaplama yöntemi manuel olur.)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "H9" Then
    Application.Calculation = xlCalculationAutomatic
    Else
    Application.Calculation = xlCalculationManual
    End If
End Sub

 

[baydeniro]

Sayın Korhan Ayhan, Allah sizden razı olsun. Çok çok teşekkür ederim.