Hücre içeriğinin Değeri Değişirse Makro Çalışşın

[metin_0606]

Arkadaşlar excel çalışmama Dış Veri Al yolu ile web sitesinden veri alıyorum ve veri sayfam her 60 dk de bir kendini yeniliyor. Buradan bazı makrolar bulup denedim ama olmadı. Benim sorunum hücre içindeki verinin değeri değişirse makro çalışsın. Örneğin hücredeki değer 14 diyelim sayfa yeniledikçe değer 14 kalırsa makro çalışmasın ancak değer değişirse makro çalışsın. Değerin olduğu hücre A268 hücresi. Yardımcı olan herkese teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sayfanızın kod kısımını açın aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Calculate()
    If Not OncekiDeger = Range("A268") Then
        OncekiDeger = Range("A268")
    End If
End Sub

Yeni bir Module ekleyin aşağıdaki kodları kopyalayın.
"Sayfa1" yerine kendi sayfanızın adını yazın.

Public OncekiDeger As Variant

Sub Auto_Open()
    OncekiDeger = Worksheets("Sayfa1").Range("A268")
End Sub

 

[metin_0606]

Merhaba.

Sayfanızın kod kısımını açın aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Calculate()
    If Not OncekiDeger = Range("A268") Then
        OncekiDeger = Range("A268")
    End If
End Sub

Yeni bir Module ekleyin aşağıdaki kodları kopyalayın.
"Sayfa1" yerine kendi sayfanızın adını yazın.

Public OncekiDeger As Variant

Sub Auto_Open()
    OncekiDeger = Worksheets("Sayfa1").Range("A268")
End Sub

Sayın dalgalıkur call makro kısmını hangisine yazacağım

 

[Muzaffer Ali]

Private Sub Worksheet_Calculate()
    If Not OncekiDeger = Range("A268") Then
        OncekiDeger = Range("A268")
        'Makronuzu buraya yazacaksınız'
    End If
End Sub

 

[metin_0606]

Private Sub Worksheet_Calculate()
    If Not OncekiDeger = Range("A268") Then
        OncekiDeger = Range("A268")
        'Makronuzu buraya yazacaksınız'
    End If
End Sub

Dediğiniz gibi makroyu güncelledim. Daha sonra hücre değeri 14 idi ben elle 15 olarak değiştirdim sayfa dış veriyi güncelledi veri tekrar 14 oldu ancak herhangi bir uyarı gelmedi verinin değiştiğine dair sayın hocam Benim uyarı mesajım ise örneğin msgbox " Veride değişiklik oldu" şeklinde

 

[metin_0606]

güncel

 

[Muzaffer Ali]

Dış bağlantı ile hücre değeri değişince otomatik çalışan bir olay yordamı yok.

Ama 60 dakikada bir çalışan kodları paylaşırsanız içerisine bu istediğinizi ekleyebiliriz.

 

[metin_0606]

Dış bağlantı ile hücre değeri değişince otomatik çalışan bir olay yordamı yok.

Ama 60 dakikada bir çalışan kodları paylaşırsanız içerisine bu istediğinizi ekleyebiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A268]) Is Nothing Then Exit Sub
Dim syf1 As Worksheet
Set syf1 = Worksheets("sayfa2")
If syf1.Range("A268") <> syf1.Range("AO268") Then
syf1.Range("AO268") = syf1.Range("A268")
MsgBox "YENI BIR DUYURUNUZ VAR", vbInformation, "DUYURU BULTENI"
End If
End Sub

Böyle bir yöntem kullanarak sorunu çözdüm Sayın Hocam

 

[Muzaffer Ali]

Dış bağlantı ile hücre değeri değiştirildiğinde bu kod çalışmaz.

 

[metin_0606]

Dış bağlantı ile hücre değeri değiştirildiğinde bu kod çalışmaz.

Dış veri Al Web ten veri al yöntemi ile veri alıyorum. Deneme amaçlı belirtilen hücredeki veriyi elle değiştirim sayfanın dış veriyi güncellemesini bekliyorum. Veri eğer belirtilen hücredeki aynı veri ise herhangi bir uyarı vermiyor ancak değiştiği takdirde uyarı mesajını veriyor. Denedim herhangi bir sorun yok