Sorgu için arama sonuçları: ExportAsFixedFormat+array

Makro Kaydet => Sub Makro1() Sheets(Array("ÜRÜN", "ÖZELLİKLER")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\EMRE\Downloads\PDF KAYDET.pdf", Quality:=xlQualityStandard, _...

Sub savePDForJPG() Dim Yol As String Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme") If dosya_adi = False...

Sub savePDF() Dim Yol As String Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme") If dosya_adi = False Then Exit Sub If dosya_adi = "" Then...

Merhaba, Deneyiniz. Sub kod() Sheets(Array("Sayfa1", "Sayfa2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Dosya.pdf", _ OpenAfterPublish:=True End Sub

cevabiniz icin cok tesekkur ederim Sheets(Array("Dispense_unit")).Select Sheets("Dispense_unit").Activate isim = Sheets("Dispense_unit").Range("F8").Value & ".PDF" yol = "C:\Users\aadigital\Documents\Dispense_Unit\" With Sheets("Dispense_unit") .ExportAsFixedFormat _ Type:=xlTypePDF, _...

herkese selamlar bir konuda yardima ihtiyacim var. aslinda sorum su. olusturdugum PDF dosyasini c klasörüne degilde webbrowerse icindeki bir clouda kaydetmesini istiyorum Private Sub DispensePDF_Click() On Error Resume Next Sheets(Array("Dispense_unit")).Select...

Merhaba hocam bunu pdf olarak değilde word olarak keydedilmesini istiyorsak nasil bir yol izlemeliyiz. .pdf yazan yeri .docx olarak değiştiridğimde word dosyları oluşuyor ama hatalı word oluşuyor açılmıyor.

İlginize çok teşekkür ediyorum, çok güzel oldu :)

Deneyin. Sub PDF_KAYDET() Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" &...

Teşekkür ederim, Dosya adını çekiyor şimdi, Sadece dosya adının yanında uzantısı da geliyor "Dosyaadi.xlsm-Sayfa-adı.PDF" xlsm dosya türünü yazmasını nasıl engelleyebiliriz ?

Bu şekilde deneyin. Sub PDF_KAYDET() Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _...

Sayfa sonlarını dosyanızda ayarlayınız. Kod: Sub savePDF() Dim Yol As String Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme") If...

Deneyiniz, Option Explicit Sub PDF_KAYDET() Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _...

Sayın @Korhan Ayhan üstadım. Emeğinize sağlık. Verileri çoğaltıp denedim sonuç resimdeki gibi. Teşekkür ederim.

Deneyiniz. Option Explicit Sub Uzlasma_Hazirla() Dim Zaman As Double, S1 As Worksheet, S2 As Worksheet, Dizi As Object Dim Klasor As String, Sablon As String, Word_App As Object, FSO As Object Dim Uzlasma As Object, Dosya As String, Veri As Variant Dim Gecersiz_Karakter As...

Merhaba, Private Sub PDF_Click() Sheets(Array("MUHASEBE_RAPOR")).Select Sheets("MUHASEBE_RAPOR").Activate isim = Sheets("MUHASEBE_RAPOR").Range("b1").Value & ".PDF" yol = "C:\Users\ulutan\Desktop\müşteri hesapları\cari rapor\" With Sheets("MUHASEBE_RAPOR") .ExportAsFixedFormat _...

Arkadaşlar merhaba, Aynı konu ile ilgili benimde bir sorum olacak, 12. mesajda Cevdet beyin paylaştığı kod da bir kısım değişiklikler yaparak kendi dosyama uyarladım ama dosya ismini istediğim klasöre kaydederken hep aynı isimli dosyayı değiştirerek kaydediyor. Aşağıdaki kodda...

Merhaba, Sub Mutabakat_hazirlapdf() ' Dim Uzlasma As Word.Document Set R1 = ThisWorkbook.Worksheets("Satıcılar_Mizan") sonsatir = R1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row yoll = ThisWorkbook.Path & "\Mutabakatlar\saticilar_pdf\" sablon = ThisWorkbook.Path &...

Sub Mutabakat_hazirlapdf() Dim Uzlasma As Word.Document Set R1 = ThisWorkbook.Worksheets("Satıcılar_Mizan") sonsatir = R1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row yoll = ThisWorkbook.Path & "\Mutabakatlar\saticilar_pdf\" sablon = ThisWorkbook.Path &...

Bu da biraz daha hızlı sonuç veriyor... Option Explicit Sub Uzlasma_Hazirla() Dim Zaman As Double, S1 As Worksheet, S2 As Worksheet Dim Klasor As String, Sablon As String, Word_App As Object Dim Uzlasma As Object, Dosya As String, Veri As Variant Dim Gecersiz_Karakter As...