Farklı kaydet ve dosyayı kapat, yeni dosya aç.

[newfather]

Merhaba Üstadlar yine bir soru ile karşınızdayım

Öncelikle sizden aldığım yardımlarla çok güzel işler başardım yardımda bulunan herkese teşekkür ederim.

Benim sorum şudur;
Excel dosyasına bir buton ekledim ve bu butona basıldığında 2 farklı hücredeki bilgileri isim kabul ederek excel dosyasını farklı kaydediyor. Biz bu yaptığım dosyayı dolduruyor ve bu buton yardımıyla farklı kaydediyoruz. Sonra dosyayı kapatıp tekrar bu boş olan dosyayı açıyoruz. Benim istediğim bu butona bastığımızda farklı kaydetsin ve bir uyarı çıksın "Dosya kaydedildi yeni bir dosya açılsınmı" evet dediğimizde o dosya kapanıp yepyeni dosya açılsın hayır dersekte tamamen kapansın.

Biliyorum çok şey istiyorum ama sizin gibi üstün bilgili üstadlar için sorun olmayacağı kanısındayım. Şimdiden çok teşekkürler.....

 

[leumruk]

Merhaba,
Örnek bir dosyanız olsa daha garanti sonuçlar üretilebilirdi. Anladığım kadarıyla bir şeyler yapmaya çalıştım. Klasörü RAR'dan çıkarıp deneme yapınız.

Sub frk_kaydet()
yol = ThisWorkbook.Path & "\" & [a1].Text & [b1].Text & ".xls"
If CreateObject("Scripting.FileSystemObject").FileExists(yol) = True Then
MsgBox "Bu isimde bir dosya zaten mevcut. Kayıt yapılmayacak.", vbCritical, "UYARI"
Exit Sub
End If
ThisWorkbook.SaveAs yol
Sor = MsgBox("Dosyanız farklı kaydedildi, şablon dosyası yeniden açılsın mı?", vbYesNoCancel, "SORGU EKRANI")
If Sor = vbNo Then
If Workbooks.Count > 1 Then
ThisWorkbook.Close False
Else:
Excel.Application.Quit
End If
ElseIf Sor = vbCancel Then
Exit Sub
Else:
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\Sablon.xls"
ThisWorkbook.Close False
End If
End Sub

 

[newfather]

Üstadım gerçekten inanılmazsınız yani. Düşündüğüm şey acaba olurmu derken hemende çözümü üretmişsiniz. Artı mükerrer kayıtlar içinde bir açıklama eklemişsiniz. Kodları kendime göre düzeltip dosyama ekledim ve sorunsuz çalıştı. Çok teşekkürler ellerinize sağlık...

 

[leumruk]

Üstadım gerçekten inanılmazsınız yani. Düşündüğüm şey acaba olurmu derken hemende çözümü üretmişsiniz. Artı mükerrer kayıtlar içinde bir açıklama eklemişsiniz. Kodları kendime göre düzeltip dosyama ekledim ve sorunsuz çalıştı. Çok teşekkürler ellerinize sağlık...

Rica ederim. İyi çalışmalar.