[Yardım]  Yedekleme Sorunu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Yedekleme Sorunu

İleti#1)  alibuyuk66 » 23 Şub 2021 10:41

Merhaba arkadaşlar. Aşağıdaki sanırım miraç beyin yazmış olduğu kodla Çalışma kitabındaki stok isimli sayfamın yedeğini alıyorum fakat yedek alınan dosya otomatik olarak açılıyor. X butonuna bastığımda da ana dosyamda kapanıyor. Ben yedek alınan dosyanın otomatik açılmasını istemiyorum. Nasıl revize edebilirim.
Kod: Tümünü seç
Private Sub CommandButton5_Click()
       
    Dosya = Format(Date, "dd mmmm yyyy") & " " & Hour(Now) & "." & Minute(Now) & "." & Second(Now) & " liste" & ".xlsx"
Sheets("Stok").Copy
Sheets("Stok").Range("A1").Select
Set Newwb = ActiveWorkbook
With Newwb
.Title = "Stok"
.Subject = "Stok"
.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & Dosya
End With
Sheets("kabuller").Select
MsgBox "Stok Masa Üstüne Bugünün Tarihi İle Kaydedildi"
Unload Me
End Sub
Kullanıcı avatarı
alibuyuk66
Yeni Başlamış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Yedekleme Sorunu

İleti#2)  Ömer BARAN » 23 Şub 2021 23:29

Merhabalar.

Mevcut kodda End With ve Sheets("kabuller").Select satırının arasına,
Workbooks(Dosya).Close 1 şeklinde bir satır ekleyerek deneyin.

.
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.




.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 16:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 57
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: huseyinkkamer ve 2 misafir

Bumerang - Yazarkafe