belirli bir alanı kopyalama

[EmirhanG]

merhaba arkadaşlar, a1 den k1'e kadar olan hüçrelerde verilerim var ve bu veriler aşağıya doğru 50- 60 satırı bulmakta,sizlerden ricam A sutunundaki verilere göre enson satırdaki veriyi bulup kopyalayan kodlar.(((Mesela A sutununda enson veri A55 de diyelim A1 den K55 'e kadar olan alanı kopyalasın istiyorum. Burada özellikle yapmaya çalıştığım,veri olan sonsatırı buldurup kopyalatmak.) Şimdiden ilgili arkadaşlara teşekürler.....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub KOPYALA()
    Range("A1:K" & [COLOR=red][B][A65536].End(3).Row[/B][/COLOR]).Copy
End Sub

Ayrıca alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub KOPYALA()
    Range("A1:K" & [COLOR=red][B]Cells.SpecialCells(xlCellTypeLastCell).Row[/B][/COLOR]).Copy
End Sub

 

[EmirhanG]

Teşekürler Üstad.. sizden ricam bu kodda enson satırdaki veriyi bulan kod hangisi .....

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodlarda son satırı bulan kısımları kırmızı renkle belirttim.

 

[EmirhanG]

gösterdiğiniz ilgi ve alakadan dolayı teşekürler (Biz yorduk ,Allah yormasın)