Aktif son satıra kopyalama

[eceLprensi]

Merhaba,
Arkadaşlar
b2 hücresindeki degeri kopyalayıp,
b sütunun son aktif hücresine kadar nasıl yapıştırırım?

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

teşekkürler.

 

[tarhan822]

RANGE("b2").select
selection.copy
lastrow=Range("b" & Rows.Count).End(xlUp).Row
RANGE("b" & LASTROW).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[eceLprensi]

tarhan822 kardeşim uyguladım son aktif b sütununu kopyalamadı.
bende şunu yapmıştım.

Son = Cells(Rows.Count, 1).End(xlUp).Row
range("e2").select
selection.copy
'Selection.AutoFill Destination:=Range("E2:E & SON")

uygun bir kod degilmi hata nerde..

 

[askm]

Aşağıdaki şekilde deneyin.

son = Cells(Rows.Count, 5).End(xlUp).Row + 1
Cells(son, 5) = Range("b2")

 

[eceLprensi]

Aşağıdaki şekilde deneyin.

son = Cells(Rows.Count, 5).End(xlUp).Row + 1
Cells(son, 5) = Range("b2")

Range("b2").Select
        Selection.Copy
    son = Cells(Rows.Count, 5).End(xlUp).Row 
Cells(son, 5) = Range("b2")

askm allah razı olsun son aktif kadar gitti kopyaladı ama b3,b4,b5..... b218 arası boş kaldı.
onlarada kopyalaması lazım.

 

[askm]

Örnek dosya eklerseniz daha iyi olacak gibi. İstediğiniz işlemi örneğinize uydurabiliriz.

 

[Necdet]

Merhaba,

Aktifti son hücreydi derken baya kafa karışıklığına neden oluyorsunuz. Benim Anladığım B2 hücresini B3 hücresinden itibaren B sütunundaki son hücreye kadar kopyalamak.

Eğer bu ise niyetiniz aşağıdaki kodları inceleyiniz.

Sub Kopyala()

    Range("B2").Copy Range("B3:B" & Cells(Rows.Count, "B").End(3).Row)
    
End Sub

Eğer B sütununda aktif hücreye kadar kopyalanacaksa :

Range("B2").Copy Range("B2:B" & ActiveCell.Row)

kullanabilirsiniz.

 

[eceLprensi]

http://dosya.co/dwfqgogznjgg/MAKRO_DENEME.xlsx.html
LİNK
Derdim e2 hücresini son aktif hücreye kadar kopyalamak.

Necdet Yeşertener kardeşim kodu denedim fakat aktif koda seçerek kopyalama işlemini gerçekleştiriyor.
benim derdim sondaki aktif sutunu kendi bulması

 

[eceLprensi]

oldu arkadaşlar

range("E2").Select
Selection.End(xlDown).Select
range("E2").Copy range("e2:e" & ActiveCell.Row)

sonunda başardım.


Necdet Yeşertener emeklerine sağlık.
Yardımcı olan arkadaşlarada ayrıca teşekkürler.

 

[Necdet]

sonunda başardım.


Necdet Yeşertener emeklerine sağlık.
Yardımcı olan arkadaşlarada ayrıca teşekkürler.

E olay anlaşıldığına göre biraz kısaltalım.

Range("E2").Copy Range("E2:E" & Range("E2").End(xlDown).Row)