Sorgu için arama sonuçları: SaveAs

teşekkürler arkadaşım. ancak ilgili F1 sayfasında koşullu biçimlendirmeler var. Onları almıyor

...Set newbook = Workbooks.Add ThisWorkbook.Sheets(sayfa).Cells.Copy newbook.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats newbook.SaveAs fileName:=Yol ActiveWorkbook.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Necati Bey Merhaba, Kodu referansla birlikte uyguladım. Çalıştı. Ancak bazı sınıflarda tablo boş. Sadece günler yazıyor. Hata ile ilgili bir görsel ekledim. https://hizliresim.com/h1t1sro

...= True .MoveRight Unit:=wdCharacter, Count:=1 Wend End With .AutoFitBehavior (wdAutoFitWindow) End With wrdDoc.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next y wrdApp.Quit Set wrdApp = Nothing Application.StatusBar = False MsgBox...

Necati Bey emeğinize sağlık yordum sizi. Ancak sizin kodları denediğimde wrdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow) kısmında not defined hatası alıyorum. kendi kodlarımı denediğimde derslerdeki birleştirme kodu çalışmıyor. acaba neyi yanlış yapıyorum ?

...MergeTo:=.cell(j, k) End If End With 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...

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