- Katılım
- 4 Mayıs 2007
- Mesajlar
- 234
- Excel Vers. ve Dili
-
office 2007 64 bit
office 2010 64 bit
- Altın Üyelik Bitiş Tarihi
- 14-09-2023
Seçilen veriyi Başka bir çalışmaya kaydet
SAYIN HOCALARIM VE ARKADAŞLAR
GÖNDER BUTONUNA TIKLADIĞIMDA
EĞER HAMDİ.xls DOSYASI AÇIKSA
LÜTFEN BEKLEYİNİZ DOSYA ŞU ANDA KULLANILIYOR DİYE BİR MESAJ VERİP
5 SANİYE BEKLEDİKTEN SONRA BU MESAJ KAPANSIN
VE TEKRAR HAMDİ.xls DOSYASINI AÇMAYI DENESİN İSTİYORUM ÇÜNKÜ HAMDİ.xls DOSYASI SADECE 4 SANİYE AÇIK KALIYOR. BİR TÜRLÜ BECEREMEDİM YARDIMLARINIZI BEKLİYORUM SAYGILARIMLA
Private Sub GÖNDERClick()
Sheets("PRİNT").Select
Range("A1:F50").Select (burada da A1 Den F ye kadar en son dolu olan satırı seç demek istiyorum)
Selection.Copy
ChDir "E:\MUTFAĞA GÖNDERİLECEK"
Workbooks.Open Filename:="E:\MUTFAĞA GÖNDERİLECEK\HAMDİ.xls"
Sheets("EKLENENLER").Select
Range("A1").Select
son = Sheets("EKLENENLER").[A65536].End(3).Row + 1
Range("A" & son).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("PRİNT").Select
Selection.ClearContents
Range("A1").Select
End Sub
SAYIN HOCALARIM VE ARKADAŞLAR
GÖNDER BUTONUNA TIKLADIĞIMDA
EĞER HAMDİ.xls DOSYASI AÇIKSA
LÜTFEN BEKLEYİNİZ DOSYA ŞU ANDA KULLANILIYOR DİYE BİR MESAJ VERİP
5 SANİYE BEKLEDİKTEN SONRA BU MESAJ KAPANSIN
VE TEKRAR HAMDİ.xls DOSYASINI AÇMAYI DENESİN İSTİYORUM ÇÜNKÜ HAMDİ.xls DOSYASI SADECE 4 SANİYE AÇIK KALIYOR. BİR TÜRLÜ BECEREMEDİM YARDIMLARINIZI BEKLİYORUM SAYGILARIMLA
Private Sub GÖNDERClick()
Sheets("PRİNT").Select
Range("A1:F50").Select (burada da A1 Den F ye kadar en son dolu olan satırı seç demek istiyorum)
Selection.Copy
ChDir "E:\MUTFAĞA GÖNDERİLECEK"
Workbooks.Open Filename:="E:\MUTFAĞA GÖNDERİLECEK\HAMDİ.xls"
Sheets("EKLENENLER").Select
Range("A1").Select
son = Sheets("EKLENENLER").[A65536].End(3).Row + 1
Range("A" & son).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("PRİNT").Select
Selection.ClearContents
Range("A1").Select
End Sub
Son düzenleme: