Diğer Sayfadaki Değere Göre İşaretleme

[maviada5]

Merhabalar,
Ben konuyu araştırıp yapmaya çalıştım ama yapamadım.

Yapmak istediğim
"KÖPRÜ" Sayfasında yazdığım aralıkları "KÜBAJ" İsimli sayfada renkleri değiştirip değerlerini "0" yapmak.
Ben örnek olsun diye hücreleri boyadım

Köprü sayıları farklı, bazı projelerde köprü olmazken başka bir projede 10 taneden fazla köprü olabiliyor, "KÖPRÜ" sayfasında döngü ile yapabilirseniz çok daha iyi olur.

Bunları da her seferinde makro çalıştırmak yerine "Worksheet_Change" fonksiyonu ile yapmak istiyorum.



Teşekkürler.

 

[maviada5]

Konu biraz zor galiba,
en azından başka sayfa ile bağlantını basit bir "Worksheet_Change" örneği varsa ben gerekli düzenlemeyi yaparım.

Mesela, Sayfa1'in A1 hücresi birden büyükse Sayfa2 A1 hücresine aynısını yazsın gerisini ben yaparım diye düşünüyorum, ben sadece iki sayfa arasında ki döngüyü yapamadım.

 

[askm]

Aşağıdaki kod sayfa1 in A1 hücresine yazılan yazıyı sayfa2 nin A1 hücresine yazar.
Diğer sorunuz anlaşılmadığı için çözüm bulamamıştır bence.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Sayfa2.Range("A1") = Target.Value
End Sub

 

[maviada5]

Teşekkürler, makroyu çalıştıramadım ama şimdi başka bir yöntem deniyorum bitirince paylaşacağım.