Bir Üst Satırdaki Tutarı Kopyalama ve Hesaplama İşlemi Yapma

[cavanoos]

Merhaba;

A1 hücresinde 1.000 rakamını düşünün.
Bunu B1 hücresine kopyalayıp 2 rakamına böleceğim.

Bunu makro kodu ile denediğimde, kodun içine 1.000 rakamı yazıyor.
Burada rakam yerine, hücre değerini kodun içine yazmak için, kod nasıl olmalı ?

 

[Trilenium]

Range("B1").value=Range("A1").value /2

 

[cavanoos]

Şimdi farkettim ki eksik tarif etmişim.

A1 hücresini aktif hücre olarak düşünün ve bir alttaki hücreye kopyalanıp 2 ye bölündüğünü düşünün.
Yani A1 sabit bir değer değil.

 

[Trilenium]

sonucu a2 ye mi yazacak?

 

[cavanoos]

Evet

 

[Trilenium]

Range("a2").value=Range("A1").value /2

 

[cavanoos]

Kodu aktif hücreye göre yazacağız.

Varsayalım aktif hücre D35
O zaman D36 ya kopyala ve 2 böl işlemi uygulanacak.

Varsayalım aktif hücre Z500
O zaman Z501 e kopyala ve 2 böl işlemi uygulanacak.

 

[cavanoos]

Alttaki kod ile sorun çözülmüştür.

ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(-1, 0).Value / 2