Başka bir çalışmaya seçilen veriyi kaydet

[northcyprus]

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

 

[northcyprus]

SAYIN HOCALARIM VE DEĞERLİ ARKADAŞLAR
FORUM DAN BULDUĞUM BAZI KODLARI KENDİME UYARLADIM VE SORUMUN CEVABINI BULDUM SADECE KIRMIZI OLAN BÖLÜMDE TAKILDIM YARDIMLARINIZI BEKLİYORUM TEŞEKÜRLER...



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"

Dim MutfagaGönderilecek As String
MutfagaGönderilecek = "E:\MUTFAĞA GÖNDERİLECEK\HAMDİ.xls"
On Error GoTo DosyaKullanılıyor
Open MutfagaGönderilecek For Binary Access Read Lock Read As #1
Close #1

Workbooks.Open MutfagaGönderilecek

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


Sheets("ADİSYONMASA1").Select

Range("A1").Select
Exit Sub
DosyaKullanılıyor:
MsgBox "SPARİŞLER GÖNDERİLEMEDİ TEKRAR GÖNDERİN !!!"


End Sub

 

[Muzaffer Ali]

Range("A1:F50").Select

Satırını sil aşağıdakileri yaz

Dim SonSatir As Integer
SonSatir = Range("F" & Cells.Rows.Count).End(3).Row
Range("A1:F" & SonSatir).Select

 

[northcyprus]

çok teşekkür ediyorum sayın dalgalikur....