Sayfa Güncellendimi Nasıl Bilirim

[kykbt]

Arkadaşlar Merhaba..
Bir excell kitabında açılışta sorulan bağlantıları güncelleştir veya güncelleştirme seçildikten sonra bu kitapta güncelleştirme yapılıp yapılmadığını nasıl bir kod ile öğrenebilirim?

 

[Cengiz Demir]

Bağlantılı hücrelerin tümü birden güncelleniyorsa yada sürekli güncellenenen bir tane bile veriniz varsa,
aşağıdaki gibi basit bir çözüm işinize yarar sanırım.
Ama güncelleme işlemleri topluca olmuyorsa; örneğin bir seferinde sadece A1,A2 vb hücreleri,
diğerinde sadece D2 hücresi vb. Bu çözüm işe yaramaz.
Çünkü aşağıdaki kodlar ile tek hücre ile takip ediliyor.

Kodları BuÇalışmakitabı (ThisWorkbook) kod alanına kopyalarsınız.

Workbook_BeforeSave ile her kayıt yaptığınızda, bağlantılı olan hücredeki( A1) veriyi,
sonradan kontrol edilmek üzere D1 hücresine kopyalıyor.
(Farklı bir sayfaya gizlediğiniz bir hücreye göre ayarlama yaparsınız.)
Bu kodu kitap kapanırken olayına da ekleyebilirdik.
Ama o zaman da her kapanışta değişiklik yapıldı kaydetmek istermisiniz diye soracaktı.

Workbook_Open deki kodlar da; dosya açıldıktan sonra bağlantılı hücre ile,
bir önceki kaydededilmiş hücreyi karşılaştırıp duruma göre bilgi veriyor.
Bu kodları oradan alıp module ekleyip bir butona vb. atayıp sonradan da kontrol sağlayabilirsiniz.
(Tabi kayıt işlemi yapmadan önce kontrol yapmanız gerekir. Yoksa durum değişir.)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Range("D1") = Range("A1")

End Sub

'-------------------------------------

Private Sub Workbook_Open()

If Range("A1") = Range("D1") Then
 
  MsgBox ("Güncelleme Yok")
 
  Else: MsgBox ("Güncelleme Var.")

End If

End Sub

 

[kykbt]

Bağlantılı hücrelerin tümü birden güncelleniyorsa yada sürekli güncellenenen bir tane bile veriniz varsa,
aşağıdaki gibi basit bir çözüm işinize yarar sanırım.
Ama güncelleme işlemleri topluca olmuyorsa; örneğin bir seferinde sadece A1,A2 vb hücreleri,
diğerinde sadece D2 hücresi vb. Bu çözüm işe yaramaz.
Çünkü aşağıdaki kodlar ile tek hücre ile takip ediliyor.

Kodları BuÇalışmakitabı (ThisWorkbook) kod alanına kopyalarsınız.

Workbook_BeforeSave ile her kayıt yaptığınızda, bağlantılı olan hücredeki( A1) veriyi,
sonradan kontrol edilmek üzere D1 hücresine kopyalıyor.
(Farklı bir sayfaya gizlediğiniz bir hücreye göre ayarlama yaparsınız.)
Bu kodu kitap kapanırken olayına da ekleyebilirdik.
Ama o zaman da her kapanışta değişiklik yapıldı kaydetmek istermisiniz diye soracaktı.

Workbook_Open deki kodlar da; dosya açıldıktan sonra bağlantılı hücre ile,
bir önceki kaydededilmiş hücreyi karşılaştırıp duruma göre bilgi veriyor.
Bu kodları oradan alıp module ekleyip bir butona vb. atayıp sonradan da kontrol sağlayabilirsiniz.
(Tabi kayıt işlemi yapmadan önce kontrol yapmanız gerekir. Yoksa durum değişir.)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Range("D1") = Range("A1")

End Sub

'-------------------------------------

Private Sub Workbook_Open()

If Range("A1") = Range("D1") Then

  MsgBox ("Güncelleme Yok")

  Else: MsgBox ("Güncelleme Var.")

End If

End Sub

Arkadaşım Merhaba..
İlgin için teşekkür ediyorum. Ancak benim istediğim, Güncelleştir sorusuna verdiğimiz cevabı kod ile alabilmek.
Çünkü rakamsal bir değişiklik takip mümkün değil binlerce hücre var ve olmuyor. Ayrıca farklı bir değişkende Renk kontrolu yapan Fonksiyon lar var.

 

[Cengiz Demir]

Rica ederim.
Beni aşar da, belki üstadlar api vb. ile sorgulayacak bir kod yazabilirler.