Çözüldü Hücre değiştiğinde Başka bir hücreyi değiştirme.

Katılım
24 Nisan 2022
Mesajlar
12
Excel Vers. ve Dili
2021 office
Merhaba
B1 hücresi değiştiğinde ilgili kodalr çalışırken
aynı Şekilde b2 Hücresini değiştirdiğimde ilgili kod çalışmıyor.

 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Aşağıdaki yapıyı kendi kodlarınıza uyarlayabilirsiniz.

C++:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        MsgBox "B1 değişti..."
    End If
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        MsgBox "B2 değişti..."
    End If
End Sub
 
Katılım
24 Nisan 2022
Mesajlar
12
Excel Vers. ve Dili
2021 office
Merhaba,

Aşağıdaki yapıyı kendi kodlarınıza uyarlayabilirsiniz.

C++:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        MsgBox "B1 değişti..."
    End If
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        MsgBox "B2 değişti..."
    End If
End Sub
------------------------------------------
Teşekkür Ederim. daha önce Bir çok şekilde denedim ama olmadı. Bunu sağlayan
If Not Intersect(Target, Range("B1")) Is Nothing Then
not intersect olrak kullanarak bir nevi tersine çevirmek ve range if blogunda kullanmak mı çözüyor.
Option Explicit : bu başlığın yazılması kesin gerekli mi.

İstersenizbunlara cevaplamayabilirsiniz. Sorunum Çözüldü Emeğinize sağlık.




Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then

Sheets("Combined_Financials").Range("Combined_Financials").ListObject.QueryTable.Refresh BackgroundQuery:=True 'False True
Sheets("Symbols_Price").Range("Combined_Price").ListObject.QueryTable.Refresh BackgroundQuery:=True
Sheets("Symbols_Price").Range("Combined_All").ListObject.QueryTable.Refresh BackgroundQuery:=True
Sheets("Spreads_Risk").Range("Spreads_Risk").ListObject.QueryTable.Refresh BackgroundQuery:=True

Range("B2") = "TL"
Range("B3") = "YOK"
Range("A75") = ""
End If


If Not Intersect(Target, Range("B2")) Is Nothing Then
Range("B3") = "YOK"
End If

End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Option Explicit komutu kod bloğu içinde kullanılan ve genellikle Dim ile başlayan değişken tanımlamalarını zorunlu kılar. Kullanmazsanızda olur. Fakat yeni kod yazmaya başlayan üyelerimize kullanmalarını tavsiye ederim. Böylece değişkenleri öğrenmeye başlamış oluyorsunuz.

Diğer sorunuza gelince sayfa olaylarında birden fazla hücredeki deeğişimleri kontrol etmek için bir yazım tekniğidir. Farklı teknikler kullanılabilir. Ben ilk aklıma geleni ve en basit olanını paylaştım.
 
Üst