sipariş

[gakayay]

herkeze günaydın Ekteki dosyada sipariş dosyasına yazdığım bilgileri aktar dediğimde sipariş dataya atmasını istiyorum denemelerimde aktarma yaptım fakat herzaman kalan satır kadar boşlıuk bırakıyor yardımcı olursanız sevinirim iyi çalışmalar.

 

[isakarakus]

[vb:1:bbaf8795e9]Sub aktar()
Sheets("SİPARİŞ").Range("C13:J" & Sheets("SİPARİŞ").[C65536].End(xlUp).Row + 1).Copy
Sheets("SİPARİŞ DATA").Range("A" & Sheets("SİPARİŞ DATA").[A65536].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub[/vb:1:bbaf8795e9]