Makroda Formül Hatası (1004)

[Merturk]

Merhaba,

Forum içinde aradım. Bulduğum cevaplar çözüm olmadığı için konu açıyorum.

Bir rapor şablonu üzerinde çalışıyorum. Düşeyara yapılan bir kısmı makroya taşımak istedim. Fakat hata veriyor.

Sheets("Kalite Güvence").Range("V2") = "IFERROR(IF(Q3="""";"""";VLOOKUP(Q3;'Mağaza - Bölge Listesi'!A:C;3;0));"""")"

Yukarıdaki gibi yazarsam kod olduğu gibi gözüküyor. Ama başına = işareti koyup aşağıdaki gibi yazarsam da 1004 hatasını alıyorum.

Sheets("Kalite Güvence").Range("V2") = "=IFERROR(IF(Q3="""";"""";VLOOKUP(Q3;'Mağaza - Bölge Listesi'!A:C;3;0));"""")"

Evaluate ile çalıştırmayı düşünüyorum ama daha evaluate'i ekleyebilecek kadar ilerleyemedim Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam aşağıdaki şekillerde olabilir.
Sorun yaşarsanız, sorunuzu örnek belgeyle destekleyin.

Örnek belge özellikleri ve yükleme yöntemine ilişkin açıklamalar cevabımın altırdaki İMZA bölümünde var.
.

[FONT="Arial Narrow"]Sheets("Kalite Güvence").Range("V2")[COLOR="Red"].Formula[/COLOR] = "IFERROR(IF(Q3="""";"""";VLOOKUP(Q3;'Mağaza - Bölge Listesi'!A:C;3;0));"""")"

Sheets("Kalite Güvence").Range("V2") = [COLOR="red"]Evaluate([/COLOR]"=IFERROR(IF(Q3="""";"""";VLOOKUP(Q3;'Mağaza - Bölge Listesi'!A:C;3;0));"""")"[B])[/B][/FONT]

 

[Merturk]

Ömer Hocam,

Denediğimde şöyle oldu.

Formula ile denediğimde başına "=" gelmeden formül geliyor yani hesaplamıyor.
Evaluate ile denediğimde ise #VALUE yazıyor.

 

[Merturk]

örnek dosyayı aşağıdaki adreste bulabilrsiniz.

http://s3.dosya.tc/server10/bzxjm6/Ornek_Dosya.rar.html

teşekkür ederim.

 

[vardar07]

Aşağıdaki şekilde işnizi görürmü?

Sub duseyara()
Dim wf As WorksheetFunction
Set wf = WorksheetFunction
Set s1 = Sheets("Kalite Güvence"): Set s2 = Sheets("Mağaza - Bölge Listesi")
If s1.Range("Q2") <> "" Then
s1.Range("V2") = wf.IfError(wf.VLookup(s1.Range("Q2"), s2.Range("A:C"), 3, 0), "")
End If
End Sub

 

[Merturk]

Sn. vardar07

Çözüm öneriniz için çok teşekkür ederim. Farklı bir metod öğrenmiş oldum.

Bu formülü yaklaşık 10Bin satıra uygulayacağım. for - next döngüsüyle yaptığımda çok uzun sürede döngüyü tamamlıyor. Eğer hücrenin içinde formülü hesaplarsam çok daha kısa sürede tamamlıyor. Bundan dolayı hücre içinde formül hesaplamak daha makul geliyor açıkçası.

Evaluate ya da formula'yı çalıştırabilisem daha hızlı sonuç alacağım.


İlginiz için tekrar teşekkür ederim.