UZUN KODLARDA ALT SATIRDAN DEVAM ETME

[dengeceteris]

Selamlar sevgili forum üyeleri:
Basit bir sorunum var ama internette bulamadım maalesef. Bazen makroda formüller girerken uzun oluyor sayfayı kaydırma gereği hissediyorum durmadan alt satırdan devam etmek için özel bir işareti veya bağlacı varmıdır.

 

[Korhan Ayhan]

Deneyiniz.

Kodunuz & _ boşluk enter

 

[dengeceteris]

Sağolasın Korhan bey

 

[dengeceteris]

Korhan bey özür dilerim yanılmışım. Formülüm aşağıda; önerdiğiniz düzeltmeyi uyguladığım zaman olmadı yanlış bir yere mi ekliyorum ? Bir de mesela formülümün sonucu 5.000 ama ben formülün en sonundaki * S1.Cells(x, 24)'ü koda ekleyince hesaplamayı sıfır gösteriyor. (24. sütun % lik değer) Parantezlerle ilgili bir problem mi var acaba.

S1.Cells(x, 25) = Application.WorksheetFunction.Power(1 + S1.Range("F4"), S1.Cells(x, 20)) * S1.Cells(x, 10) / &_
Application.WorksheetFunction.Power(1 + S1.Range("F6"), (S1.Cells(x, 20) - 1)) * S1.Cells(x, 24)

 

[çıtır]

Aşağıdaki şekilde boşluk _ işareti
S1.Cells(x, 25) = Application.WorksheetFunction.Power(1 + S1.Range("F4"), S1.Cells(x, 20)) * S1.Cells(x, 10) / _
Application.WorksheetFunction.Power(1 + S1.Range("F6"), (S1.Cells(x, 20) - 1)) * S1.Cells(x, 24)

 

[dengeceteris]

Sayın Çıtır şimdi oldu çok tşk ederim. Bir şey daha vardı kodun sonun daki * S1.Cells(x, 24) e gelinceye kadar doğru hesaplıyor. Ama bir tanede çarpım * S1.Cells(x, 24) kısmını ekleyince hesaplama sonucunu 0,00 getiriyor.. Sebebi ne olabilir. (Cells(x,24) yüzdelik bir değer)

 

[çıtır]

Sanırım matematiksel sonuçla ilgili.Sonuç yazan hücreyi biçimden tüm sayı biçimleri ,sayı ,ondalık basamak sayısını 4 yapınız ve( x ,24) 0 farklı olsun.