ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[halily]

aşağıdaki fonksiyonu kullanarak sayfa2'deki hücrelere formül eklemeye çalışıyorum,
hücrelere formül doğru şekilde ekleniş olmasına rağmen excel formül için hatalı uyarısı veriyor oysa hücredeki diyelim ki B harfini silip tekrar aynı harfi yazınca formül doğrulanmış oluyor.

https://gifyu.com/image/48Hz
nerede hata yapıyorum?

Kod: Tümünü seç

Sub FormulAta()
For x = 2 To 33
y = 3 * x - 4
    Sayfa2.Range("B" & y).Formula = "=EĞERHATA(BolukYaz(Sayfa1!B" & x & "),"""")"
    Sayfa2.Range("C" & y).Formula = "=EĞERHATA(BolukYaz(Sayfa1!B" & x & "),"""")"
    Sayfa2.Range("C" & y + 1).Formula = "=EĞERHATA(BolukYaz(Sayfa1!B" & x & "),"""")"
    Sayfa2.Range("C" & y + 2).Formula = "=EĞERHATA(BolukYaz(Sayfa1!B" & x & "),"""")"
Next x
MsgBox "Bitti"
End Sub

[halily]

Makro sayfa1'deki Düğme 1e basınca çalışıyor ve formülü sayfa3 teki B ve C sütunlarına kopyalıyor

[feraz]

Sorun çözüldümü abey?

[halily]

maalesef çözüm bulamadım illaki hücreleri bul değiştir ile yeniden düzenlemem gerekiyor
siz dosyayı inceleyebildiniz mi sizde de aynı hatayı veriyor mu yoksa düzgün mü?

[feraz]

Birazdan bakıyorum

[feraz]

Bilgisayar sonra elime geçer.
Şöyle yapabilirsin mesela.
Sayfa2 deki ilgili hücrelere normal formülleri gir.
Formüller çalışıyorsa,makro kaydete tıkla ve formül hücrelere gir çık r1c1 gibi formül sonuçları oluşur.Bu şekildede alabilirsin.
Yada formula yerine formulalocal kullan doğru yazdıysam.

[feraz]

Birde formüllü hücreye tıklayınca sarı şekilde hata işarati çıkıyor ona tıkla ordada yazar hatayı.

[halily]

aslında fonksiyon doğru çalışıyor hücreye girip bakınca formül olması gerektiği gibi hatta hücredeki bir harfi silip yeniden yazdığımızda yada formüle tıklayıp tümünü fare ile seçip kes yapıştır yaptığımızda bile çalışıyor.
uyarı bandına bastım formül çubuğunda düzenle dedim formül çubuğuna geçti hiç bir şey yapmadan ENTER'a bastım yine çalıştı.
kısacası illaki formül çubuğuna geçip 1 defa ENTER'a basmak gerekiyor ki çalışsın

[halily]

hatayı buldum)
EĞERHATA Türkçe onun yerine İngilizcesini iferror yazmam gerekiyormuş))

[feraz]

Aklıma gelmişti o yüzden formulalocal kullanmanı yazmıştım.
Local yerine formulalocal yazarsan türkçede olması gerek.

[halily]

Aklıma gelmişti o yüzden formulalocal kullanmanı yazmıştım.
Local yerine formulalocal yazarsan Türkçede olması gerek.

siz yazınca denedim ama maalesef yine hata verdi hatta formula2Local'i bile denedim olmadı)
ama siz local yazınca bir de İngilizcesini deneyeyim dedim o zaman oldu
yardımınız için teşekkürler.

[feraz]

Alttaki gibilocalformula olarak çalıştı.koddaki , yerine; yapılmasılması gerekiyormuş.

Kod: Tümünü seç

Sub FormulAta()
For x = 2 To 33
y = 3 * x - 4
    Sayfa2.Range("B" & y).FormulaLocal = "=EÐERHATA(BolukYaz(Sayfa1!B" & x & ");"""")"
    Sayfa2.Range("C" & y).FormulaLocal = "=EÐERHATA(BolukYaz(Sayfa1!B" & x & ");"""")"
    Sayfa2.Range("C" & y + 1).FormulaLocal = "=EÐERHATA(BolukYaz(Sayfa1!B" & x & ");"""")"
    Sayfa2.Range("C" & y + 2).FormulaLocal = "=EÐERHATA(BolukYaz(Sayfa1!B" & x & ");"""")"
Next x
MsgBox "Bitti"
End Sub

[halily]

işte şimdi mantığı tam oldu)
Çok teşekkürler Feraz bey

[feraz]

Rica ederim
Yalnız yacancı dil excelde formulalocal çalışmaz kod Türkçe olduğu için

[halily]

tövbeliyim aslında Türkçe kullanmaya )

[feraz]

bende kullanmam Tr karakterler.

Aslında senin yaptığın haha iyi.Her yerde çalışır.
Belki .formula yazılmasada çalışır.

İserror yazmadan hata vermesi olayını denemiştim.Eğer formüllü hücreye çift tıklanıp çıkıncada formül çalışıyordu yani ! Bunu silme ile alakası yok denememde görmüştüm.