Sorgu için arama sonuçları: SaveAs

...mı?", vbYesNo + vbQuestion) = vbNo Then MsgBox "Kaydedilmedi.", vbExclamation Exit Sub End If End If ActiveWorkbook.SaveAs Filename:=dosyaYolu, FileFormat:=xlExcel8 Application.ScreenUpdating = True MsgBox "İşlem tamamlandı!", vbInformation...

Yok olmadı bu sefer 100.01.01 değişmedi sadece 360.09 dan sonra 120.P.PEŞİN ekledi ama ordaki toplamlarda zaten tutmuyor

...yaptıktan sonra; Yeni oluşturulan dosyada: "Sayfa2" sayasının temizlenmesi nasıl sağlanabilir mi? Aşağıdaki BeforeSave prosedürü gibi SaveAs prosedürü var mıdır? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sayfa2.Cells.ClearContents End Sub...

...kayitYolu = ThisWorkbook.Path & "\Dosya\" & xBenzersiz & ".xlsx" ' Sayfayı kopyala ve yeni bir kitap olarak aç wsDkm.Copy Set yeniKitap = ActiveWorkbook yeniKitap.SaveAs Filename:=kayitYolu, FileFormat:=xlOpenXMLWorkbook yeniKitap.Close SaveChanges:=False End Sub

...If S2.Cells(2, 2).Value <> "" Then dosya = yol & "\" & S2.Cells(2, 2).Value & ".xlsx" S2.Copy ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close SaveChanges:=False End If Next anahtar Application.ScreenUpdating = True...

...End If Next i dosya = hedefKlasor & Replace(deger, "/", "-") & ".xlsx" With yeniSayfa.Parent .SaveAs Filename:=dosya, FileFormat:=xlOpenXMLWorkbook .Close SaveChanges:=False End With Set yeniSayfa = Nothing Next deger...

...& _ "\Dosya" & Application.PathSeparator & S2.[B2] & ".xlsx" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=dosya ActiveWorkbook.Close S2.Columns("A:L").EntireColumn.AutoFit S2.Range("A2:L" & Rows.Count).ClearContents Next i S1.Select [O:O].Clear...

Merhaba. Sub Test() Sheets("faaliyet raporu ").Copy ActiveWorkbook.SaveAs "D:\Yeni Klasör\DosyaAdi" ActiveWorkbook.Close End Sub

...= "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To =...

...& "\" TempFileName = "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "deneme@hotmail.com" .CC = "" .bcc = ""...

kod bu tekrar bakabilir miyiz?

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

...ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If Application.DisplayAlerts...

kaydettiği exceller açılmıyor tam olarak ne yapmam lazım

Eğer sadece ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled satırını değiştirirseniz, dosyanın doğru formatta kaydedilmesini sağlayabilirsiniz. Ancak, burada birkaç önemli şey var: Eğer dosyanızda herhangi bir makro varsa ve .xlsm olarak kaydediyorsanız, bu format doğru...

...currentDate = Format(Date, "yyyy-mm-dd") saveFile = "ExportedData_" & currentDate & ".xlsx" saveFile = Application.GetSaveAsFilename(InitialFileName:=saveFile, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx") If saveFile <> "False" Then wb.SaveAs Filename:=saveFile...

...address = Replace(WorkRng.address, ":", "-") address = Replace(address, "$", "") address = Replace(address, ".", "") saveFile = Application.GetSaveAsFilename(InitialFileName:=address, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx") wb.SaveAs Filename:=saveFile wb.Close Application.CutCopyMode...

...wb.Password = "" wb.WritePassword = "" Application.DisplayAlerts = False wb.SaveAs Filename:=currentFilePath, FileFormat:=xlExcel8, Password:="", WriteResPassword:="" Application.DisplayAlerts = True...