Makro ile Çıkarma

[nihatjeoloji]

Selam arkadaşlar

-Makro ile

A1-A2=sonuç (B1)hüç.'nde
A2-A3=sonuç (B2)hüç.'nde
A3-A4=sonuç (B3)hüç.'nde
.....
......
...
.....
A32-A33=sonuç(B32)hüç.'nde




Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:7a96c3d3be]For c=1 to 33
range("b" & c)=range("a" & c)-range("a" & c+1)
next[/vb:1:7a96c3d3be]

 

[nihatjeoloji]

syn leventm
çok sağolun

fakat küçük bir hata var

A1=3
-
A2=2
sonuç ( B1=1 ) doğru fakat (B2=2) diye görünüyor .
görünmemesi için ne yapmak lazım :hey:

 

[nihatjeoloji]

pardon

A7=9
A8=3

B7=6;
B8=3; B6=-9 bunları veriyor.
B8; B6 bu iki hüçre boş kalsın. ve diğerleri içinde aynı söz konusu :hey:


ve bir şey daha

D1;D2;D3...............hüçrelerine her tıkladığımda sayılar bir acayıb oluyor :? :? :?

pardon bir şey daha keşfettim

bunu yazdığımızda. A1; A2 veya her hangi iki hüç.'e sayı girdiğimizde
sayılar durmadan hızlı bir şekilde ilerliyor

Private Sub Worksheet_Change(ByVal Target As Range)
For c = 1 To 33
Range("a" & c) = Range("a" & c) - Range("a" & c + 1)
Next
End Sub