Aktif son hücreden kopyalama

[eceLprensi]

Merhabalşar arkadaşlar,

benim derdim aktif sütundakiş veriyi kopyalama.

aktif hücrem d13 ama ben d12 veriyi j1 hücresine yazdırmak istiyorum.

d13 hücresi son aktif hücrem

şukodla oraya ulaşıyorum
ActiveCell.SpecialCells(xlLastCell)
ama d12 geçip degeri j1 yazdıramıyorum.

zor bi anlatım oldu
teşekürler.

 

[Necdet]

Merhaba,

Anlatıma bakıyorum bir şey anlıyorum, kodlara bakıyorum başka şey anlıyorum
Ne yapmak istiyorsunuz?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

[j1] = ActiveCell.Offset(-1, 0).Value

 

[YUSUF44]

D sütunundaki son dolu hücrenin satır numarası:

son = cells(rows.count,"A").end(3).row

Bundan bir üstteki hücrenin satır numarası:

son-1

Ya da doğrudan

son = cells(rows.count,"A").end(3).row-1

D sütununda son dolu hücrenin bir üstündeki hücrenin adresi,

cells(son, "D") ya da cells(son-1, "D") (Yukardaki kodlara göre hangisi uygunsa)

Seçili hücrenin bir üstündeki hücre:

ActiveCell.Offset(-1,0)

Örneğin

[J1] = ActiveCell.Offset(-1,0)

Kodu J1'e seçili hücrenin bir üstündeki hücrenin değerini getirir.

 

[eceLprensi]

Harikasınız arkadaşlar.
emeklerinize saglık.

mükemmel oldu ))

teşekkürler.