excel açıldığın da hemen kaydetsin

[sylar4646]

Arkadaşlar merhaba başlık saçma gelebilir ama açıklayayım

Excel de bir teklif sayfası tasarladım. Her teklifi de pdf ve excel formatında kaydetmesi için buton oluşturdum. Bugün patron teklifi her açtığımız da sıra numarası versin dedi.

Sub Autpen()
Sheets("teklif").Select
[o12] = [o12] + 1
End Sub
Bu kod ile onu da hallettim. Fakat teklif formu excelini açıyorum, teklifi hazırlayıp kaydettiğim zaman FİRMA İSMİ ile kaydediyor. Yani Teklif formunda hiç bir işlem olmadığı için tekrar açtığım da yukarı da ki kod sayısı artırmıyor.

Bende işin içinden çıkamadım. Belki excel açılır açılmaz kaydet kodu var ise bu sorunu da bu şekilde aşmış olacağım. Yüzdüm yüzdüm kuyruguna geldim. Bir el atın da bitireyim şunu. Şimdiden Allah razı olsun

 

[xternet]

Eğer sorunuzu doğru anladıysam;
Auto_open() içerisine ActiveWorkbook.Save eklemeniz yeterli sanırım

 

[yusuf1284]

Bu kısma yazmayı denediniz mi?

 

[sylar4646]

Bu kısma yazmayı denediniz mi?

Ekli dosyayı görüntüle 241912

Altın üye olmadığım için foto göremiyorum.

 

[sylar4646]

Eğer sorunuzu doğru anladıysam;
Auto_open() içerisine ActiveWorkbook.Save eklemeniz yeterli sanırım

Hocam denedim olmadı. Şöyle ifade edeyim.

Teklif Formu isimli excel i açıyorum. İçerisinde değişiklikleri yapıp Excel i kaydet dediğim de Firma ismi ile farklı kaydediyor. Doğal olarak Teklif Formu isimli excel de aslında hiç işlem yapılmamış oluyor.

Şimdi verdiğiniz kodu ekledim. 00016 idi. Kapatıp açtım 0016 kaldı. buton ile farklı kaydetmeyip ctrl +s ile kaydedip açarsam 0017 oluyor.

Bunu da dosyayı açar açmaz ctrl+s kaydet mantığı ile kaydederse ben dosyayı farklı kaydetsem bile 0017 olacak.

 

[xternet]

Her teklifi de pdf ve excel formatında kaydetmesi için buton oluşturdum.

Yukarıda bahsettiğiniz bu buton içerisindeki kod da, en üstte uygun bir yere " ActiveWorkbook.Save "
satırı eklemeyi deneyin.
Yani amacımız kitabı farklı kaydetmeden önce açık kitabı kaydedecek, sonra kod devreye girecek ve farklı kaydet işlemi gerçekleşecek.

 

[xternet]

Sub Autpen()
Sheets("teklif").Select
[o12] = [o12] + 1

ActiveWorkbook.Save

End Sub

Önceki çözümü bu şekilde mi uygulamıştınız?

 

[sylar4646]

Önceki çözümü bu şekilde mi uygulamıştınız?

Hocam her ikisini de yaptım. Olmadı.

İndir Teklif Formu

Dosyayı indir Teklif Formu

dosya.co

Excel dosyasını ekledim. Bakma şansınız olur mu ? Bakarsanız ne demek istediğimi anlarsınız. Vaktinizi almamak adına ayarlar sekmesine koydum kaydetme yolunu.

 

[yusuf1284]

Hocam her ikisini de yaptım. Olmadı.

İndir Teklif Formu

Dosyayı indir Teklif Formu

dosya.co

Excel dosyasını ekledim. Bakma şansınız olur mu ? Bakarsanız ne demek istediğimi anlarsınız. Vaktinizi almamak adına ayarlar sekmesine koydum kaydetme yolunu.

Şu şekilde yapsak olur mu acaba

Sub Auto_Open()
ActiveWorkbook.Save
Sheets("teklif").Select
[o12] = [o12] + 1
End Sub

Sub PdfKaydet()

    Module4.Auto_Open
    
    Path = Worksheets("ayarlar").Range("B1").Text
    
    Faturalanan = Worksheets("teklif").Range("F8").Value

    Worksheets("teklif").ExportAsFixedFormat xlTypePDF, Filename:=Path & Faturalanan & "_" & Date & " " & Format(Time, "hh-mm") & ".pdf"


End Sub

 

[yusuf1284]

Bir de kodlarınızı kaydettiğiniz excele aktarmamak için

Sub excelKaydet2()

    Module4.Auto_Open
        
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Path = Worksheets("ayarlar").Range("B1").Text
    
    Faturalanan = Worksheets("teklif").Range("F8").Value
    
    teklifno = Worksheets("teklif").Range("S3").Value
    
    Sheets("teklif").Copy
    ActiveWorkbook.SaveAs Path & Faturalanan & "_" & Date & " " & Format(Time, "hh-mm") & ".xlsx"
    
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

 

[sylar4646]

Bir de kodlarınızı kaydettiğiniz excele aktarmamak için

Sub excelKaydet2()

    Module4.Auto_Open
       
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Path = Worksheets("ayarlar").Range("B1").Text
   
    Faturalanan = Worksheets("teklif").Range("F8").Value
   
    teklifno = Worksheets("teklif").Range("S3").Value
   
    Sheets("teklif").Copy
    ActiveWorkbook.SaveAs Path & Faturalanan & "_" & Date & " " & Format(Time, "hh-mm") & ".xlsx"
   
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Hocam bunu hangi modul e eklemem lazım ?

Bu arada uğraştığınız için Allah razı olsun

 

[yusuf1284]

Hocam teklif oluşturduğunuz her kısma ekleyin ben örnek olsun diye Sub PdfKaydet() prosodürüne ekledim

 

[sylar4646]

Hocam teklif oluşturduğunuz her kısma ekleyin ben örnek olsun diye Sub PdfKaydet() prosodürüne ekledim

Hocam tekrardan merhaba, sayeniz de çok mesafe aldım. Tek bir sorun kaldı onu da halledersek bitireceğim.

Şimdi ben söylediğiniz gibi kodları kaydettiğim sayfa da çalışmaması için verdiğinizi ekledim. O excel dosyasını açtığımda sayı artmıyor fakat kaydetme de çalışmıyor. Çünkü revize edildikten sonra dosya tekrar her 2 formattı kaydetip gönderilmesi gerekiyor.

Sadece o12 yani oto numaralandırma kaydettiğim yerde deaktif olabilir mi ?

 

[yusuf1284]

Gönderilen dosyadan makroları silmeyeceğiz o zaman?