Belli aralikla cikarma islemi

[mertoztop]

Selamunaleykum
D30dan B5i çıkarıp bunu F2e yazmak istiyorum.
Sonra
D60dan B10i cikarip F3e
D90dan B15i cikarip F4e

30 satir ve 5 satir atlama olayinida satir saydan hesaplayabildim

ama aralikli cikarma islemini ve sonucu satira yazdirmayi yapamadim yardımcı olabilirseniz sevinirim teşekkürler

 

[Korhan Ayhan]

Aleyküm Selam,

Deneyiniz.

Option Explicit

Sub Test()
    Dim X As Long, Say As Long
    
    Say = 2
    
    For X = 30 To 90 Step 30
        Cells(Say, "F") = Cells(X, "D") - Cells(X / 6, "B")
        Say = Say + 1
    Next
End Sub

 

[mertoztop]

Aleyküm Selam,

Deneyiniz.

Option Explicit

Sub Test()
    Dim X As Long, Say As Long
   
    Say = 2
   
    For X = 30 To 90 Step 30
        Cells(Say, "F") = Cells(X, "D") - Cells(X / 6, "B")
        Say = Say + 1
    Next
End Sub

Hocam cok tesekkurler bu sayede tekrar birlestirip calistirdim kodu. bir sorum daha olacakti izninizle
A sutununda 100 veri var diyelim bu verileri 10ar 10ar toplatip B1 hucresinden yazmak icin nasil bir kod kullanmamiz gerekir. simdiden cok tesekkurler

 

[Korhan Ayhan]

Deneyiniz.

Verilerinizin A1:A100 aralığında olduğunu varsaydım. Değilse kodu revize edersiniz.

Option Explicit

Sub Test()
    Dim X As Long
   
    For X = 1 To 100 Step 10
        Range("B1") = Range("B1") + Cells(X, "A")
    Next
End Sub

 

[mertoztop]

Deneyiniz.

Verilerinizin A1:A100 aralığında olduğunu varsaydım. Değilse kodu revize edersiniz.

Option Explicit

Sub Test()
    Dim X As Long
  
    For X = 1 To 100 Step 10
        Range("B1") = Range("B1") + Cells(X, "A")
    Next
End Sub

hocam kodda sikinti yok ama ben eksik acikladim
A1:A10 arasini B2 ye
A10:A20 arasini B3 e bu sekilde devam edecek sekilde nasil olabilir

 

[Korhan Ayhan]

İkinci toplamada yine A10 hücresini kullanmışsınız. Talebiniz bu şekilde mi?

Ben aşağıdaki gibi düşündüm.

Option Explicit

Sub Test()
    Dim X As Long, Say As Long
    
    Say = 2
    
    For X = 1 To 100 Step 10
        Cells(Say, "B") = WorksheetFunction.Sum(Range("A" & X).Resize(10))
        Say = Say + 1
    Next
End Sub