Farklı Kaydet

[cocoa35]

Merhaba ; aşağıdaki kod'lar ile belirli bir sayfadaki hücrede bulunan isme göre excel dosyasını farklı kaydettirebiliyorum. Ancak yanlışlıkla aynı isim ile yeniden dosyayı kaydettirdiğimde program hata veriyor. Şöyle bir kod'larda düzeltme olabilirmi eğer aynı isim ile bir dosya var ise program kullanıcıyı ikaz etsin "aynı isimli dosya bulunmaktadır" eğer yinede kaydettirmek isterse kaydetmeden geriye dönsün.

Private Sub CommandButton3_Click()
ThisWorkbook.SaveAs Filename:=Worksheets("PROJE AC").Range("E10")
Unload Me
End Sub

 

[ÖmerFaruk]

TXT olarak kayıt, Aynısı Varsa Farklı Kaydet

Bu kod txt kaydediyor. aynısı varsa üzerine yazıyor. Benim isteğim üzerine yazmasın uyarı versin üzerine yazayımmı yaz dersem yazsın. demezsem yine input ekranı geri gelsin yada hiç kaydetmesin. Sub KAYDET_KPPT() Dim i, sat As Integer a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa...

excel.web.tr

Farklı kaydet makrosu

ekteki dosyamda farklı kaydet makrosu yazılı bu butona tıkladığımda L8 hücresindeki isme göre çalışma kitabımı D:\teklifler\2010\ klasörünün içne kaydetmekte 1- benim istediğim D:\teklifler\2010\ klasörünün içinde aynı isimde bir klasör varsa uyarı verip ismin sonuna 1...2... yazsın örn: L8...

excel.web.tr

arama menüsünden 2 farklı sonuç