Sorgu için arama sonuçları: SaveAs

...uzanti = ".xls" Then FileFormatNum = -4143 ElseIf uzanti = ".xlsb" Then FileFormatNum = 50 End If Sheets(Array("aylık")).Copy ActiveWorkbook.SaveAs Klasor & Dosya_Adi & uzanti, FileFormat:=FileFormatNum ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True...

Korhan Hocam üstteki mesaji dikkate almayin ActiveWorkbook.SaveAs folderPathWithName & ActiveSheet.Range("C6").Text kod satiriyla hallettim. cok cok tesekkür ederim

...= startPath & Application.PathSeparator & myName1 & Application.PathSeparator Sonrasında önerdiğim kod içindeki aşağıdaki satırı revize ederek deneyiniz. ActiveWorkbook.SaveAs folderPathWithName & "Deneme.xlsx" Not : Ben dosya adını "Deneme" olarak tanımladım. Siz dilediğinizi yazarsınız..

...aktif sayfayı kopyalar ve dosya olarak istediğiniz klasöre XLSX uzantılı kayıt eder. Sonrasında dosyayı kapatır. ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs folderPathWithName & ".xlsx" ActiveWorkbook.Close Application.DisplayAlerts = True

...Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" Exit Sub End If Aktivesheet.SaveAs MkDir ile olusturulan klasörün icine ayni anda aktif calisma sayfasini nasil kaydettirebilirim? tesekküler

Allah senden razı olsun üstad.

...& "\" & 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...