makro hücrelerdeki degerleri dizi ye atamak

[tgbhelpme]

merhaba benim bir ödevim var acil yardımcı olurmusunuz?
soru: a1:a10, b1:b10 iki hücre aralığım a1 ile b1 karşılaştırılıp a1>=b1 ise a1-b1 olacak a1-b1 değer b2 hücresiyle karşılaştırılacak a1-b1>= b2 ise a1-b1-b2 yapılacak bu işlem hücrelerdeki sayılar bitene kadar yapılacak eğer a1-b1-...bn < bn+1 ozamanda a1-b1-bn+a2 olacak bu işlemler böyle devam edecek ve her çıkarma işlemi başka bir hücreye sırayla yazılacak yazılırken a1-b1+a2 yapılan işlemler varsa bu işlemler için 0 yazılacak.
umarım anlatabilmişimdir.

 

[Mahir64]

merhaba benim bir ödevim var acil yardımcı olurmusunuz?
soru: a1:a10, b1:b10 iki hücre aralığım a1 ile b1 karşılaştırılıp a1>=b1 ise a1-b1 olacak a1-b1 değer b2 hücresiyle karşılaştırılacak a1-b1>= b2 ise a1-b1-b2 yapılacak bu işlem hücrelerdeki sayılar bitene kadar yapılacak eğer a1-b1-...bn < bn+1 ozamanda a1-b1-bn+a2 olacak bu işlemler böyle devam edecek ve her çıkarma işlemi başka bir hücreye sırayla yazılacak yazılırken a1-b1+a2 yapılan işlemler varsa bu işlemler için 0 yazılacak.
umarım anlatabilmişimdir.

MErhaba
Ödev konusu olması nedeniyle size yol göstermek daha faydalı olacaktır.
Eğer , Eğer(ve formüllerini inceleyin.
Arama yaparsanız veya Excel Dersanesini incelerseniz örnekler bulabilirsiniz.

 

[tgbhelpme]

Sub tgb()

Dim deg1 As Variant
Dim deg2 As Variant
Dim deg3 As Variant
Dim snc, snc2 As Double


deg1 = Range("a1:a10").Value
deg2 = Range("b1:b10").Value

counter = 1

While counter <= UBound(deg1)

x = deg1(counter, 1)
y = deg2(counter, 1)


If x >= y Then

snc = x - y
Range("f1").Value = snc

Else: MsgBox "no"

End If
counter = counter + 1

Wend

End Sub

böyle bişey yazdım ama bir hücreyi bir sonraki hücreyle nasıl karşılaştıracağım?