Başka Kitaba Kaydetme

[3641]

Arkadaşlar Merhaba
Ekli dosyada 2 Kitap Var Teklif.xls ve Teklif_Takip.Xls Sizlerden Ricam

Teklif Sayfası Her yeni teklif için yeniden düzenlenip 2009_Teklifler Kalasörü içine kaydediliyor.
Bu sayfada bulunan
H10 Hücresi Tarih
H12 Hücresi Ref No
C14 Hücresi Firma Adı
C15 Hücresi Yetkili Adı
C16 Hücresi Telefon
C17 Hücresi Fax
C18 Hücresi İşin Adı
D30 Hücresi Teklif Toplam Tutar
Bilgilerini Her Bu Sayfayı açıp farklı kaydet dediğimde "Teklif_Takip" Sayfasına Yukarıdaki Bilgileri Sırası İle Kaydetmem Mümkünmü Acaba

Şimdiden Teşekkür Ederim.

Saygılarımla

 

[3641]

Yardımcı Olabilecek Arkadaşlar Bakabilirlerse Sevinirim.

 

[turkuaz81]

Bu tarz işlerde bu örnek çok işe yarayacak. Takip listelerinin otomatik güncellenmesi gerekiyor. Bence butona basınca sayfayı tanımlı şekilde farklı kaydederken (örn. "teklif" & date) , Takip dosyasındaki hücrelerede bilgileri aktarması çok iyi olur.


Daha önce verilen örnek kod:

Sub Yedek_Al()
Set s1 = Sheets("Home")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
  s2.Visible = True
  s2.Select
  s2.Cells.ClearContents
  s2.Range("A1:D32").Value = s1.Range("A31:D63").Value
  Sheets("Sayfa2").Copy
[COLOR="Red"][B]' Burada tanımlı yere değilde aynı klasöre kaydetmek için ne yapamalıyız?[/B][/COLOR]
  ActiveWorkbook.SaveCopyAs Filename:="C:\teklifler" & Application.PathSeparator & s1.[C2].Value & ".xls"
    ActiveWorkbook.Close 0
    s2.Visible = False
    s1.Select
Application.ScreenUpdating = True
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub