DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub mcrSet_All_Values_and_Save_XLSX()
Dim w As Long
For w = 1 To Sheets.Count
Sheets(w).UsedRange = Sheets(w).UsedRange.Value
Next w
Application.DisplayAlerts = False
ThisWorkbook.SaveAs _
ThisWorkbook.Path & Chr(92) & _
Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
xlOpenXMLWorkbook
End Sub
ilginiz için teşekkür ederim. makroyu çalıştırdığımda mevcut excel dosyasını direkt kapatıyor, değerleri ile kaydettiği dosyayı açıyor. bunu engelleyemezmiyim.
İkinci linkte sadece aktif sayfayı kaydediyor. tüm dosyayı nasıl kaydedebilirim. ilk linkteki kodlar bende hata veriyor..Buradaki linki inceleyiniz.
Çözüldü - Excel dosyasının formülsüz ve makrosuz kopyasını oluşturma
Herkese Merhaba Kusuruma bakmayın site içerisinde benzer konuya ulaştım fakat benim istediğim biraz daha farklı olacak.Üstadlarımdan yardım istiyorum 1-İçerisinde 19 çalışma sayfası barındıran bi excel dosyası var 2-ilk çalışma sayfasının adı önbilgi,diğerleri sırayla 1 den başlayıp 18 kadar...www.excel.web.tr
Buda farklı bir alternatif...
Aktif Excel Sekmesini Farklı Çalışma Kitabı Olarak Kaydet Kod Yardımı
Sayın Uzman Arkadaşlar, Aşağıdaki kod yardımı ile aktif sayfayı kitap adı, sayfa adı ve kayıt tarihi şeklinde, kitabın bulunduğu klasör içine Pdf formatında kaydediyorum. Sub PdfKaydet() yol = ThisWorkbook.Path & "\" isim =...
hocam bu sekilde düzenledim, sütun aralığını da sildim tüm kitabı kaydetsin diye fakat her zaman bu hatayı veriyor aynı zamanda değerler ile oluşturduğu excel dosyasını da açıyor.
Sub XLSXKaydet()
Yol = ThisWorkbook.Path & "\"
isim = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & " - " & _
ThisWorkbook.ActiveSheet.Name & " - " & Format(Now, "ddmmyyyy_hhnn") & ".xlsx"
Application.Calculate
Application.Calculation = xlCalculationManual
ActiveWorkbook.Sheets.Copy
ActiveSheet.Range("A1").PasteSpecial xlValues
Range("A1").Select
Application.DisplayAlerts = False
ActiveWorkbook.Close True, Yol & isim
Application.DisplayAlerts = True
End SubOption Explicit
Sub XLSX_Kaydet()
Dim File_Path As String, File_Name As String, File_Password As Variant
Dim Sh As Worksheet, Wb As Workbook, File_Link As Variant
Application.ScreenUpdating = False
File_Path = ThisWorkbook.Path & "\"
File_Name = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & _
" - " & Format(Now, "ddmmyyyy_hhnn") & ".xlsx"
File_Password = 12345
Application.Calculate
Application.Calculation = -4135
ActiveWorkbook.Sheets.Copy
For Each Sh In ActiveWorkbook.Worksheets
Sh.Unprotect "12345"
Sh.UsedRange = Sh.UsedRange.Value
Next
Set Wb = Application.ActiveWorkbook
If Not IsEmpty(Wb.LinkSources(xlExcelLinks)) Then
For Each File_Link In Wb.LinkSources(xlExcelLinks)
Wb.BreakLink File_Link, xlLinkTypeExcelLinks
Next
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=File_Path & File_Name, _
FileFormat:=xlOpenXMLWorkbook, _
Password:=File_Password, _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Calculation = -4105
Application.ScreenUpdating = True
MsgBox "Dosyanız formülsüz ve makrosuz yedeklenmiştir.", vbInformation
End Subhocam süper oldu ActiveWorkbook.Sheets.Copy bu bölümü ThisWorkbook.Sheets.Copy olarak değiştirmenin artısı ya da eksisi nedir?
Hocam tekrar kontrol ettim herşey sorunsuz çalışıyor fakat görseldeki gibi otomatik olan kısım el ile olarak değişiyor. Bunu nasıl düzeltilir
Sorunsuz çalışıyor hocam fakat
Hocam süpersiniz . Fakat tek birşey kaldı gibi görünüyor makrolu Excel açılırken şifre girip açılıyor. Fakat makrosuz kaydettiğinde şifre olmadan direkt açılıyor. Makrolu exceldeki şifre otomatik olarak ona eklenir mi hocam
Klavyeden sayı giriyorum
