Belli Hücreleri Seçerek Kopyalamak

[umutaliadali]

Örneğin X sayfasında A1:Cx hücrelerini kopyalayıp y sayfasında son dolu satırdan sonraki satıra yapıştırmak istiyorum.
Cx'teki x label2'de yazan değerdi. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

sub Test()
    if not isnumeric(label2.caption) then msgbox "label2'de rakam olmak zorunda." : exit sub
    worksheets("x").range("A1:C" & label2.caption).copy worksheets("y").range("A"&worksheets("y").range("A"&rows.count).end(xlup).row+1)
end sub

 

[umutaliadali]

Merhaba.

sub Test()
    if not isnumeric(label2.caption) then msgbox "label2'de rakam olmak zorunda." : exit sub
    worksheets("x").range("A1:C" & label2.caption).copy worksheets("y").range("A"&worksheets("y").range("A"&rows.count).end(xlup).row+1)
end sub

Çok teşekkür ederim.