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

sylar4646 · 5 Ocak 2023

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 Aut

pen()
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 · 5 Ocak 2023

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

yusuf1284 · 6 Ocak 2023

Bu kısma yazmayı denediniz mi?

sylar4646 · 7 Ocak 2023

yusuf1284' Alıntı:
Bu kısma yazmayı denediniz mi?

Ekli dosyayı görüntüle 241912

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

sylar4646 · 7 Ocak 2023

xternet' Alıntı:
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 · 7 Ocak 2023

sylar4646' Alıntı:
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 · 7 Ocak 2023

sylar4646' Alıntı:
Sub Autpen()
Sheets("teklif").Select
[o12] = [o12] + 1

ActiveWorkbook.Save

End Sub

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

sylar4646 · 7 Ocak 2023

xternet' Alıntı:
Ö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 · 7 Ocak 2023

sylar4646' Alıntı:
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

C++:

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

C++:

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 · 7 Ocak 2023

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

Kod:

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 · 7 Ocak 2023

yusuf1284' Alıntı:

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

Kod:

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 · 7 Ocak 2023

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

sylar4646 · 8 Ocak 2023

yusuf1284' Alıntı:
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 · 15 Ocak 2023

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