Sorgu için arama sonuçları: SaveAs

...c).Range.Cells(tbl.Rows.Count, tbl.Columns.Count) End If Next c Next r ' Belgeyi kaydedin ve kapatın wrdDoc.SaveAs ThisWorkbook.Path & "\" & ws.Range("A3").Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing wrdApp.Quit Set wrdApp = Nothing...

Hocam teşekkürler geri dönüşünüz için. kodu uyguladığımda "wdAlignRowCenter" kısmı için variable not defined hatası alıyorum. bunu 1 olarak değiştirdiğimde aynı hatayı (wdAutoFitWindow) kısmı için alıyorum

...j).Text i = i + 3 End If Next k Next j wrdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow) wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & 3).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing wrdApp.Quit Set wrdApp = Nothing MsgBox "Belge hazırlandı"...

...cell.VerticalAlignment = 1 ' Dikey hizalama Next cell End With ' Belgeyi kaydedin ve kapatın wrdDoc.SaveAs ThisWorkbook.Path & "\" & ws.Range("A3").Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing wrdApp.Quit Set wrdApp = Nothing MsgBox...

emeğinize sağlık, istediğim gibi çalışıyor. Teşekkür ederim

...k).Range.Text = _ ws.Cells(i, j).Text i = i + 3 End If Next k Next j wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & 3).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing wrdApp.Quit Set wrdApp = Nothing MsgBox "Belge hazırlandı"...

Çok Teşekkür ederim ellerinize Sağlık beni büyük bir yükten kurtardınız. Allah razı olsun

Deneyiniz, '...Kodlarınız' Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=yeniDosyaYolu, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True '...Kodlarınız'

...yeniDosyaYolu = yol1 & Replace(ThisWorkbook.Name, ".xlsm", ".xlsx") ThisWorkbook.SaveAs Filename:=yeniDosyaYolu, FileFormat:=xlOpenXMLWorkbook ThisWorkbook.Close SaveChanges:=False End Sub Bu kod, mevcut .xlsm dosyanızı .xlsx formatında belirtilen yedekleme klasörüne...

Teşekkür ederim şablonu oluşturdum ama her başlangıçta açıyor son çıktıda logo ve vektörler bulunmuyor?

...= True .Execute Replace:=wdReplaceAll End With Next r End With Next j l = 0 wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & i).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next i wrdApp.Quit Set wrdApp =...

Necati bey ellerinize sağlık çok teşekkür ederim. Bunların sayfaların belli yerlerine vektör görsel ekleyeceğim tam olarak kod yapısını nereye nasıl yazabilirim. (1 logo, 2 vektör şekil)

...With .InlineShapes(l) .Height = 150 .Width = 250 End With End With Next l = 0 wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & i).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next wrdApp.Quit Set wrdApp =...

Merhaba, Son kodlarınız benim için yeterli. Kısa ve basit. Destek için teşekkürler.

...Sub AnaFikir() Dim DosyaAD As String DosyaAD = ThisWorkbook.Path & "\" & Worksheets("Veri").Range("A1").Value & ".xlsx" Sheets("Veri").Copy ActiveWorkbook.SaveAs Filename:=DosyaAD, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False...

...' Kullanıcı "Evet" derse, dosya mevcut olanın üzerine kaydediliyor. Sheets("Veri").Copy ActiveWorkbook.SaveAs Filename:=DosyaAD, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False Else ' Kullanıcı...

...& b & ":E" & b)) End If Next Application.ScreenUpdating = False Set w1 = Workbooks.Add alan.Copy w1.Sheets(1).Range("A1") w1.SaveAs isim w1.Close 0 Application.ScreenUpdating = True End If Next MsgBox "İşlem tamam" End Sub

Deneyiniz. Kendi dosyanızı göre düzenlersiniz. File_Name = Range("A1").Value & Range("A3").Value & ".xlsx" Workbooks.Add ActiveWorkbook.SaveAs File_Name

...On Error Resume Next ActiveSheet.Copy DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\" Dsy = ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") ActiveWorkbook.SaveAs DsyYol & Dsy ActiveWorkbook.Close SaveChanges:=False End Sub

Merhaba benim dosyam xlsm uzantılı ve desktopta, SAYFA_BOYUT_RAPORU diye bir sayfa yarattı ama boş ve ekteki gibi debug hatası verdi. Teşekkür ederim.