Makroları kullanarak hücreleri formüle sıfırla

Question

Makro kullanarak bir hücreye formül yazmak istiyorum. İşte şu anki kodum. Hata kodu 1004'e ulaşıyorum.

Sub Reset_formula() 
Worksheets("Dagbok").Range("K6").Formula = "=IFERROR(IF(INDEX(Data!$C$3:$J$4;MATCH(Data!$O$4;Data!$B$3:$B$4;0);MATCH(Dagbok!K5;Data!$C$2:$J$2;0))=0;"""";INDEX(Data!$C$3:$J$4;MATCH(Data!$O$4;Data!$B$3:$B$4;0);MATCH(Dagbok!K5;Data!$C$2:$J$2;0)));"""")" 
End Sub 

Bu sayfalarda bu konu hakkında okumaya çalıştım ama işe yaramayacağım. Source 1 Source 2

Answer 1

bir Exchange , için ayırıcı olarak ; ve sadece iyi çalışması gerekir.

Açıklama: VBA'da tüm formülleri, formüller için US-notasyonu kullanarak girmeniz gerekir.

Worksheets("Dagbok").Range("K6").Formula = "=IFERROR(IF(INDEX(Data!$C$3:$J$4,MATCH(Data!$O$4,Data!$B$3:$B$4,0),MATCH(Dagbok!K5,Data!$C$2:$J$2,0))=0,"""",INDEX(Data!$C$3:$J$4,MATCH(Data!$O$4,Data!$B$3:$B$4,0),MATCH(Dagbok!K5,Data!$C$2:$J$2,0))),"""")"