Hücre içeriği değişince makro çalışsın

[Dixxz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E20]) Is Nothing Then Exit Sub
Call birlestir
End Sub

Buradaki sorum E20 yerine sayfa2 den veri almak istiyorum bunu nasıl yapabilirim.

 

[ÖmerFaruk]

Worksheet_Change olayı kodun bulunduğu sayfada yapılan değişiklikte çalışır.
Intersect(Target, [E20]) ifadesi değiştirilen hücrenin E20 olup olmadığını belirler.
Yani sorunuzda E20 yerine sayfa2 den veri almaktan bahsediyorsunuz ama kodun bu kısmı bir yerden veri almıyor.

Belki Call Birleştir satırındaki birleştir makrosunun içeriğinde bir işlem yapılıyordur ama onu da biz görmüyoruz.

 

[Dixxz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E20]) Is Nothing Then Exit Sub
Call birlestir

Sub birlestir()
[A552] = "Yerel Zemin Sınıfı" & " " & [D204] & " ve " & [A212] & "=" & [B212] & " " & "için" & " " & [E214] & "=" & [F214]

With [A552].Characters(27, 1).Font
        .Subscript = True
    End With
With [A552].Characters(41, 1).Font
        .Subscript = True
    End With
End Sub

Benim yapmak istediğim sayfa2 deki bir hücredeki sayıyı değiştirdiğimde onu sayfa1 de bir hücreye yazdırmak

 

[ÖmerFaruk]

Aşağıdaki kodu Sayfa2 nin kod penceresine yapıştırınca,
Sayfa2 de E20 hücrenizde değişiklik yapınca
Sayfa1 A1 e Sayfa2 E20 deki değeri yazar.
Hücre ve sayfa isimlerini kendinize göre uyarlarsınız.

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

 

[Dixxz]

Teşekkürler