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

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
 
Son düzenleme:
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
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Kod:
Range("A1:F50").Select
Satırını sil aşağıdakileri yaz
Kod:
Dim SonSatir As Integer
SonSatir = Range("F" & Cells.Rows.Count).End(3).Row
Range("A1:F" & SonSatir).Select
 
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
çok teşekkür ediyorum sayın dalgalikur....
 
Üst