sipariş

Katılım
23 Haziran 2005
Mesajlar
24
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.
 
Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
[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]
 
Üst