Merhaba arkadaşlar,
Aşağıdaki kod bloğu ile bir sayfadaki bir hücre aralığına formül atamak istiyorum. Ancak tam formülün atanacağı kod satırında aşağıdaki hatayı verip duruyor.
Runtime error 1004
aplication-defined or object-defined error
Formül önündeki eşittir'i kaldırıp atamayı yaptığında formül aktarılıyor, tabi eşittir olmayınca formül değil data olarak değerlendirildiği için varsa da bir hata görmüyor. O şekildeki aktarımı incelediğimde formüldeki hatanın nereden kaynaklandığı anlaşılıyor.
Aşağıdaki kodda formüldeki H6="" ve sonrasındaki "" çift tırnaklar aktarım sırasında tek tırnak olarak geçiyor hücrelere. Bu aktarım neden tek tırnak olarak atanıyor bu durumu çözemedim.
Aynı işi görecek =IF(LEN(H6)>0;B6;"") formülü denediğimde yine sonundaki çift tırnak tek tırnak olarak atandığından yine hata veriyor.
Bu konuda yardımınızı rica ediyorum.
Eke örnek bir dosya da ekledim.
Saygılarımla.
Aşağıdaki kod bloğu ile bir sayfadaki bir hücre aralığına formül atamak istiyorum. Ancak tam formülün atanacağı kod satırında aşağıdaki hatayı verip duruyor.
Runtime error 1004
aplication-defined or object-defined error
Kod:
Sub formull()
ActiveSheet.Range("K6").Formula = "=IF(H6="";"";B6)"
ActiveSheet.Range("K6:K29").FillDown
End SubFormül önündeki eşittir'i kaldırıp atamayı yaptığında formül aktarılıyor, tabi eşittir olmayınca formül değil data olarak değerlendirildiği için varsa da bir hata görmüyor. O şekildeki aktarımı incelediğimde formüldeki hatanın nereden kaynaklandığı anlaşılıyor.
Aşağıdaki kodda formüldeki H6="" ve sonrasındaki "" çift tırnaklar aktarım sırasında tek tırnak olarak geçiyor hücrelere. Bu aktarım neden tek tırnak olarak atanıyor bu durumu çözemedim.
Aynı işi görecek =IF(LEN(H6)>0;B6;"") formülü denediğimde yine sonundaki çift tırnak tek tırnak olarak atandığından yine hata veriyor.
Bu konuda yardımınızı rica ediyorum.
Eke örnek bir dosya da ekledim.
Saygılarımla.
Son düzenleme: