Sorgu için arama sonuçları: SaveAs

...arşiv\onayli sayac\" FileName = ActiveSheet.Range("A1") ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=path & FileName, FileFormat:=51 ActiveSheet.Shapes("CommandButton1").Delete ActiveSheet.Shapes("CommandButton2").Delete...

...kaydetme yolu aşağıdaki gibi biz bu dosyayı bir çok bilgisayarda kullanıyoruz. Ama sadece ALİKARA oturumunda çalışıyor. ActiveWorkbook.SaveAs "c:\Users\ALİKARA\Desktop\" + Format(Date, "dd/mm/yyyy") + " Sigorta şirketine gönderilecek.xlsx" Dosya yolunda yer alan ALİKARA YERİNE...

...musunuz ? ", vbYesNo, "Farklı Kaydet") = vbYes Then Set wb = ActiveWorkbook Sheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & fName & ".xlsm" _ ...

Merhaba, İlginiz için teşekkür ederim. Kodu denedim, fakat şöyle bir durum var. Makro çalıştığında öncesinde sadece uyarı kodu geliyordu, kaydetme ekranı hiç görünmeden kaydedilmiştir yazıyordu ve dosya kaydedilmiş oluyordu. Şimdi ilettiğiniz kod ile, ilgili sayfayı farklı bir excel çalışma...

...musunuz ? ", vbYesNo, "Farklı Kaydet") = vbYes Then Set wb = ActiveWorkbook Sheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & Range("D7") & ".xlsm" _ ...

...see if cancel button selected If iResponse = vbNo Then End If If iResponse = vbYes Then ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & Range("D7") & ".xlsm" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled...

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