Activecell i aktarma

[endüstrici1992]

Merhaba arkadaşlar, ben excelde activecelli komut butonuna tıklayarak bir hücre aralığına yazdırmak istiyorum. Yani aktif hücreyi seçeyim sonra butona basıldığında bir sütun aralığında sırasıyla yazılsın baska bir hücreyi secince bir öncekinin altına yazılsın bunun için komut butonuna nasıl bir kod yazmam gerekli? Yardımcı olabilir misiniz?

 

[Orion1]

E1:E5 aralığına A1:A5 aralığını aktarır.

Range("A1:A5").Value = Range("E1:E5").Value

 

[endüstrici1992]

Cevabınız için çok teşekkür ederim ama tam olarak istediğim bu degildi. Mesela benim verilerim C3,C5,C7,C9 hücrelerinde ve ben bunların üzerine geldiğimde komut butonuna tıklayıp tek tek istediğimi J4,5,6,7 aralığına aktarmak istiyorum ama hepsini birden değil. Hangi hücreye tıklıyorsam, hangisi activecell oluyorsa o J4e atansın sonra c7ye tıklarsam mesela j4 dolu olduğu için alt satırına J5e yazılsın. Bunun gibi bir kod arıyorum yardımcı olabilirsiniz çok sevinirim.

 

[Kardiyak]

Sub deneme()
If ActiveCell.Column <> 3 Then Exit Sub
av = ActiveCell.Value
sn = Range("J65536").End(xlUp).Row + 1
Range("j" & sn) = av
End Sub