Formülün Macro yazımı

[byfika]

Merhabalar,
Sayfa1 de A1ile H1 arasında başlıklar ve A2 sütunundan H sütununda veriler var. Sayfa2 de B3 e veri girildiğinde D4, D5, D6, L3, L4, L5 ve L6 ya altaki kodlarla veri getirmekteyim.

=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;2;YANLIŞ);"")
=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;3;YANLIŞ);"")
=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;8;YANLIŞ);"")
=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;4;YANLIŞ);"")
=EĞERHATA(EĞER(DÜŞEYARA($B$3;Sayfa1!A:H;5;YANLIŞ)=0;"";(DÜŞEYARA($B$3;Sayfa1!A:H;5;YANLIŞ)));"")
=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;6;YANLIŞ);"")
=EĞERHATA(DÜŞEYARA($B$3;Sayfa1!A:H;7;YANLIŞ);"")

Üstteki kodları IFERROR lı nasıl yazarım.

Koyu renkli satırı IFERROR lı nasıl yazarım.
Set S1 = ThisWorkbook.Worksheets("Sayfa2")
Set s2 = ThisWorkbook.Worksheets("Sayfa1")
S1.Range("D4").Value = Application.VLookup(S1.Range("B3").Value, s2.Range("A:H"), 2, False)

Ve özellikle :
=EĞERHATA(EĞER(DÜŞEYARA($B$3;Sayfa1!A:H;5;YANLIŞ)=0;"";(DÜŞEYARA($B$3;Sayfa1!A:H;5;YANLIŞ)));"")

Bu formulü nasıl makroya çevirebilirim.

Bilgi için teşekkürler..

 

[Korhan Ayhan]

İnceleyiniz..

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[byfika]

Korhan bey, teşekkürler.
Saygılarımla