Sorgu için arama sonuçları: SaveAs

...& "\" & FolderName & "\" & Islem_Yapilan & ".xlsx" Application.DisplayAlerts = False ' Uyarı mesajlarını kapat 'newWb.SaveAs Filename:=filePath, FileFormat:=xlOpenXMLWorkbook newWb.SaveAs filePath, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _...

Benzer bir sorunuzu cevaplamıştım. Aynı mantıkla; Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & ".xlsm" Workbooks.Open AnaDosya End Sub

TEŞEKKÜR EDERİM FAYDALI OLDU. ANA DOSYA AÇIK KALIYOR. ANA DOSYA AÇIKKEN SADECE KAYIT İŞLEMİNİ HALLEDEMEDİM. Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm" Workbooks.Open AnaDosya End Sub

Dener misiniz? Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm" Workbooks.Open AnaDosya End Sub

BOŞLUK İŞLEMİNİ DE ÇÖZDÜM . SADECE KAYIT YAPILINCA MEVCUT ÇALIŞILAN DOSYADA KALMASI NASIL SAĞLARIM? Sub Kaydet() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE"&".xlsm" End Sub

...geçiyor. bu önlebilir miyiz ve bu nasıl oluyor? çalışma kitabının adı 24.03.2024 KONYA TARİFE. ben yazdığınız kod için konya tarife ilave edebildim fakat arada 1 boşluk çözemedim. Sub Kaydet() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & "KONYA TARİFE"&".xlsm"...

Merhaba, Aşağıdaki şekilde dener misiniz? Sub Kaydet() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm" End Sub

Merhaba, Dosya adının ne olması gerektiğini ( " Konya" terifedir " ifadesini) tam olarak anlamadım. Aşağıdaki kod satırı, dosyanızı dosya adı yarınki tarih olarak kayıt eder. ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm"

Birden fazla excel sayfası var, bunları farklı kullancılar dolduruyor. Ben tek bir excel sayfasında görmek istiyorum bu mümkün mü?

...dosyasını alın acilan_dosya.Close dosya = Dir Loop ' Birleştirilmiş veri dosyasını kaydedin birlesmis_veri.SaveAs "C:\Users\root\Desktop\doymix\birlesmis_excel.xlsx" ' Birleştirilmiş veri dosyasını kapatın birlesmis_veri.Close False...

...dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs Yol & dosyaAdı, 56 kitaba.Close End With Next On Error GoTo 0 With Application .ScreenUpdating = True .DisplayAlerts = True End With...

Merhaba, Ben dizin belirleme kodlarında "\" zaten ekledim Siz dosyayı saveas yaparken "\" silerseniz sanırım sonuca ulaşırsınız. kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & dosyaAdı, 56 kitaba.Close gibi. Dediğim gibi kodları baştan sona incelemedim, dosya...

...Kod bloğunuzu; dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close Aşağıdaki ile değiştirerek dener misiniz? dosyaAdı =...

...dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close End With Next On Error GoTo 0 With Application .ScreenUpdating = True .DisplayAlerts = True...

dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close Bu kodda, & işleci, L9 ve D9 hücre değerlerini birleştirmek için kullanılır. Örneğin, L9'da "Rapor" ve D9'da...

...End If dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close End With Next On Error GoTo 0 With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub...

...& "") Do While strTest <> "" Tagesdatum = Tagesdatum & ".xlsm" dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung strTest = Dir(dname & ".xlsm") Loop ActiveWorkbook.SaveAs dname & ".xlsm" ActiveWorkbook.Close End Sub

Cevabınız için teşekkür ederim, istediğim gibi Belgelerim klasörüne dosyayı kaydetmiyor fakat ortak ağdaki yere şuan sadece 07_03_2024_12_52 şeklinde kayıt yapıyor ve 1 tanede yedek_07_03_2024_12_52 oluşturuyor. Yedek oluşturmasını istemiyorum to_do_list_07_03_2024_12_52 bu şekilde olmasını...

...& Sicherung strTest = Dir(dname & ".xlsm") Loop ActiveWorkbook.SaveAs dname & ".xlsx" If Err.Number <> 0 Then MsgBox "Yedek alma işleminde hata oluştu: " & Err.Description Else MsgBox "Yedek alma işlemi başarıyla tamamlandı." End If ActiveWorkbook.Close End Sub Paylaşılan kodda...

...Tagesdatum = Application.Text(Now(), "-mm-dd-yy hh-mm") Sicherung = "To-do-list" & Tagesdatum & ".XLSM" ActiveWorkbook.SaveAs Sicherung Dim dname As String, strTest As String dname =...