Sorgu için arama sonuçları: SaveAs

...' Dosya yolu ve adı belirleyin DosyaYolu = "C:\Users\KullaniciAdi\Desktop\" & SayfaAdi & ".xlsx" ' Kaydedilecek dosyanın yolu ve adı ' Belirtilen sayfayı yeni bir dosya olarak kaydet Sheets(SayfaAdi).Copy ActiveWorkbook.SaveAs DosyaYolu ActiveWorkbook.Close False End Sub

Necdet Bey; Kod çalıştı, teşekkür ederim. Excel içindeki belli bir sayfayı kaydetmek istedim ama olmadı. Yazdığım kod altta Bunu nasıl düzeltiriz ? ThisWorkbook.Sheets("Mizan").SaveAs DosyaYolu

...değeri al DosyaYolu = Sheets("Kayıtlar").Range("B1").Value ' Dosya yolu kontrolü yap If Len(DosyaYolu) > 0 Then ' Aktif çalışma kitabını belirtilen yola kaydet ThisWorkbook.SaveAs DosyaYolu Else MsgBox "Dosya yolu belirtilmedi." End If End Sub

...If isim = Format(Date, "mmmm") & " " & Format(Date, "yyyy") & " " & okuladi & " " & " KBS YÜKLEME DOSYASI" Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close MsgBox ("KBS Yükleme Dosyası Oluşturuldu.")...

Merhaba Muzaffer Ali bey Şimdi benim bilgisayarda da aynı hatayı veriyor. Gönderdiğiniz kodları çalıştırınca örnek1 deki hatayı verdi. Benim mevcut kodları çalıştırınca örnek2 deki hatayı verdi. Farklı kaydedilecek sayfa yeni bir sayfada olarak oluşuyor fakat kaydetme yapmıyor.

Hata veren satırı aşağıdaki ile değiştirip deneyin. wbkopya.SaveAs yol & "\" & isim, FileFormat:=56 Eğer sorun çözülmezse hata mesajının ekran görüntüsünü paylaşın.

...kitabı içindeki bir sayfayı belirtilen adrese farklı kaydediyorum. Ama Excel'in bazı sürümlerinde kırmızı renkli kod satırında hata veriyor. Saveas yöntemi başarısız diye. Uzantıları farklı olduğundan olabilir mi. Benim kullandığım Excel 2010. Excel 2016'da bu hatayı veriyor. Farklı...

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

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