formülü makroya çevirme

[işsiz123]

Arkadaşlar merhaba aşağıdaki förmullleri tüm sayfalara uygulamak istiyorum

=EĞER(E1<>"";data!D1;"")   ' d1 sütunda yazılmış
=EĞER(E2<>"";data!D2;"")    ' d2 sütunda yazılmış
=EĞER(E3<>"";data!D3;"")     ' d3 sütunda yazılmış
=EĞER(E4<>"";data!D4;"")     ' d4 sütunda yazılmış

 

[PLİNT]

Merhaba
Ek dosyayı inceleyiniz
"data" sayfası hariç diğer sayfalara veri girip-sildikçe çalışacaktır.
http://s2.dosya.tc/server3/09jpux/formul.zip.html

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
For Each a In Worksheets
If a.Name <> "data" Then
For b = 1 To 4
If Sh.Cells(b, "E") <> "" Then
Sh.Cells(b, "D") = Sheets("data").Cells(b, "D")
Else
Sh.Cells(b, "D") = ""
End If
Next
End If
Next
Application.EnableEvents = True
End Sub

 

[işsiz123]

Teşekkürler Oldu