Satır kopyalama

[redheat]

Arkadaşlar,
Bir sayfadan satırı kopyalayıp başka bir sayfanın sıon kayıt altına yapıştırmak istiyorum. ben bi kod yazdım ama offset kullanmıştım yanlış oldu. örnek dosya ektedir. yardımlarınız için tşkler.

 

[mancubus]

aşağıdaki gibi deneyin.

ÇIKIŞ sayfasında B3 hücresi dolu olmalı. No yazılmalı.

Sub Makro3()
ActiveCell.Resize(1, 11).Copy Destination:=Sheets("ÇIKIŞ").Range("B65536").End(xlUp).Offset(1,0)

End Sub

 

[redheat]

çıkış sayfasına kopyalamıyor ki?

 

[mancubus]

B sütununda bir hücreyi seçip o hücrenin satırının kopyalanmasını istiyorsunuz değil mi?
bende problem olmadı.

53.satırda bir veri (0) var. onun silin.
eğer bu "0" gerekli ise kodu değiştirmemiz lazım.

 

[redheat]

çok teşekkürler, sıfırı sildim doğru oldu tşkler.