Kaydet Butonu Hakkında

[hunterdag]

Merhaba Arkadaşlar bir yerde takıldım
5 6 Sayfalık bir excel dosyam var
İlk sayfada sipariş fişi hazırlıyorum ve son sayfada fiş olarak görünüyor
ben sadece son sayfayı istediğim bir klasöre o müsteri adına ve bugünün tarihi ile kaydetmek istiyorum nasıl yapılabilir yardımcı olacabilecek var mı

 

[PLİNT]

Merhaba
Müşteri adı hangi hücre ve sayfadan alınacak? Bir küçük örnek dosya ekleyip indirme adresini
bildirirmisiniz? www.dosya.tc

Müşteri adının 1.sayfa "b2" hücresinden alınacağını, kaydedilecek konumun "D:\Sparişler" klasörü olduğunu varsayarak; son sayfayı şöyle kaydedebilirsiniz:

Private Sub CommandButton1_Click()
dosyaadı = Sheets(1).[B2].Value & " " & Date
Sheets(Sheets.Count).Copy
ActiveWorkbook.SaveAs "D:\Sparişler\" & dosyaadı & ".xlsx"
ActiveWorkbook.Close
End Sub

 

[hunterdag]

Çok sağolasın bunlar çok işimi gördü allah razı olsun senden...