Bir üstteki satırı toplamaya bilme makrosu

[achil19]

Herkese merhabalar,
Makro ile ilgili bir sorum olacaktı.

Linkteki excel dosyasında "O" kolonunda "1" yazıyor ise, "YIL" sütununda "2017" olan "H" sütunundaki (Giren Ziyaretçi Sayısı olan sütuna), yanındaki satırdaki fatura sayısı * bir üst satırdaki ziyaretçi sayısı / bir üst satırdaki fatura sayısı formülünü uygulamasını istiyorum.

Örmeğin
H7 hücresine =G7*H6/G6 formülünü uygulattırmak istiyorum.
H27 hücresine =G27*H26/G26
formülünü uygulattırmak istiyorum.

Şimdiden herkese teşekkür ederim

https://drive.google.com/open?id=0B6jo34yj3V6rSEVjd2lEWmtlZGs

 

[Necdet]

Merhaba,

• İsteğiniz Veri Giriş sırasında mı yoksa tüm veriye mi uygulanacak?
• Formül mü yazdırmak istiyorsunuz, formül sonucunu mu?

Sorunuzdan tam anlaşılmıyor.

 

[achil19]

Merhaba Necdet bey. Sonuç yazdırmak istiyorum. Makroyu çalıştırdığım zaman sonuç yazsın istiyorum

 

[Ömer BARAN]

Merhaba.

Sayın YEŞERTENER şu an forumda değil, ben cevap yazayım dedim.
İstediğinizin aşağıdaki kod ile gerçekleşmesi gerekir.
.

[FONT="Arial Narrow"][B]Sub HESAPLA()[/B]
For s = 2 To [A65536].End(3).Row
    If Cells(s, 15) = [COLOR="Red"]1[/COLOR] And Cells(s, 14) = [COLOR="red"]2017[/COLOR] Then _
    Cells(s, 8) = Cells(s, 7) * Cells(s - 1, 8) / Cells(s - 1, 7)
Next: MsgBox "İşlem tamamlandı."
[B]End Sub[/B][/FONT]

 

[achil19]

Merhaba Ömer Baran hocam,
Çok teşekkür ederim
Tam istediğim gibi elinize sağlık.
Bir şey soracaktım, Then komutundan sonra neden " _" işareti koydunuz?
Ne işe yarıyor?
çok teşekkür ederim

 

[Ömer BARAN]

Bir şey soracaktım, Then komutundan sonra neden " _" işareti koydunuz?
Ne işe yarıyor?

Tekrar merhaba.

Then 'den sonra _ işareti eklendiğinde End If kullanmayacağımı, bir alttaki satır ile If satırının TEK SATIR (aşağıdaki gibi) olduğunu belirtmiş oluyorum.
Aslında koşul koyma işlemini; If ... End If arasında Elseif veya Else durumu yoksa benim yaptığım gibi End If kullanmadan tamamlamak mümkün.

Sonuç olarak, verdiğim iki satırı yine End If kullanmadan aşağıdaki şekilde de kullanabilirdik.
.

[FONT="Arial Narrow"]    If Cells(s, 15) = 1 And Cells(s, 14) = 2017 Then Cells(s, 8) = Cells(s, 7) * Cells(s - 1, 8) / Cells(s - 1, 7)
[/FONT]

 

[achil19]

Çok teşekkür ederim, bir şey daha öğrenmiş oldum

 

[Ömer BARAN]

Çok teşekkür ederim, bir şey daha öğrenmiş oldum

Kolay gelsin.
.