-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: ExportAsFixedFormat
-
Hücre Değeriyle Kayıt Yapmak
...döngüsü başlangıcı Do While Sheets("SONUC").Range("B8").Value <> 0 'B8 hücresi 0 değilse döngüyü çalıştır ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\karad\Desktop\YDA_Sonuc_Aciklama\" & Sheets("SONUC").Range("B8").Value & ".pdf"...- hkaradag
- Posta #5
- Forum: Makro-VBA Soruları
-
I
Çözüldü hangi hücrede işlem yapıldığı
...ActiveSheet.Name 'gun2 = ActiveSheet.Name gun3 = ActiveSheet.Name If Len(ay) < 2 Then ay = 0 & ay ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & yil & "-" & ay & "-" & gun & "-TR.pdf"...- incsoft
- Posta #5
- Forum: Excel'e Yeni Başlayanlar
-
UserForm, TextBox'daki bilgileri pdf çıktı alma
Korhan Bey Necati Bey'in söylediği şekilde ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ satırını docword.ExportAsFixedFormat OutputFileName:=Yol, _ olarak değiştirince düzeldi. Şahsınıza da çok çok teşekkür ederim. Ellerinize, emeklerinize sağlık.- asdsxx
- Posta #16
- Forum: Makro-VBA Soruları
-
UserForm, TextBox'daki bilgileri pdf çıktı alma
...Böylece çok daha kullanışlı oldu If CheckBox5 = True Then Yol = ThisWorkbook.Path & "\Hadisler_" & say5 & ".pdf" docword.ExportAsFixedFormat OutputFileName:=Yol, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint...- asdsxx
- Posta #15
- Forum: Makro-VBA Soruları
-
UserForm, TextBox'daki bilgileri pdf çıktı alma
Necati Bey Teşekkürler... ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ satırını sizin dediğiniz docword.ExportAsFixedFormat OutputFileName:=Yol, _ olarak değiştirince düzeldi. Yalnız "Application.ScreenUpdating = False" komutunu True yapmasamda çalışıyıyor, Yapsamda çalışıyor. Bu...- asdsxx
- Posta #13
- Forum: Makro-VBA Soruları
-
N
UserForm, TextBox'daki bilgileri pdf çıktı alma
...daha önce karşılaşmıştım. Activedocument'in önüne set yapılan Application ismini de yazınca düzeliyor. appword.ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ yada: Activedocument'in yerine SET yapılan dosya ismi yazılınca da düzeliyor. docword.ExportAsFixedFormat...- necati
- Posta #12
- Forum: Makro-VBA Soruları
-
UserForm, TextBox'daki bilgileri pdf çıktı alma
Korhan Bey ilginize teşekkür ederim. Kodun son kısmına tıpkı Word belgesinde olduğu gibi dosya kapatılsa daha iyi olacak Yani PDF dosyası açık olmasın kayıt yapınca kapansın. Bunun için kodun sonuna docword.Close appword.Quit Bunların karşılığı ne yazılabilir- asdsxx
- Posta #3
- Forum: Makro-VBA Soruları
-
UserForm, TextBox'daki bilgileri pdf çıktı alma
...satırının üstüne konumlandırıp deneyiniz. Sub Makro1() Yol = ThisWorkbook.Path & "\Deneme.pdf" ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _ OptimizeFor:=wdExportOptimizeForPrint...- Korhan Ayhan
- Posta #2
- Forum: Makro-VBA Soruları
-
A
Çalışan Makronun çalışmaması
...KLS.createfolder MASAÜSTÜ & "\" & S1.Range("Z18").Text For SY = 1 To 55 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("Z18").Text & "\" & S1.Range("Z11").Text & ".pdf" Next S1.Range("B5") = 1 MsgBox "İşlem Tamamlandı", , "Sonuç" End Sub Sayfanın Kod...- akmlyx
- Konu
- Cevaplar: 1
- Forum: Makro-VBA Soruları
-
Y
Pdf olarak kaydetmek
...boş devam edilemez") Exit Sub End If Set shsayfa = ActiveSheet yol = ActiveWorkbook.Path & "\" & [k1] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...- yanginci34
- Posta #2
- Forum: Makro-VBA Soruları
-
Soru PDF KAYDETME MAKROSU
Aşağıdaki kodları ekler misiniz, "Sayfaya Sığdır" With ActiveSheet.PageSetup .Zoom = False End With- tamer42
- Posta #2
- Forum: Makro-VBA Soruları
-
S
Soru PDF KAYDETME MAKROSU
...konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D8") & "EĞİTİM SERTİFİKASI (" & s1.Range("B1") & s1.Range("C1") & ") " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect End Sub- serdar.gul
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
M
Gizli sayfa makro
...False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.PageSetup.PaperSize = 281 ActiveSheet.Range("$B$2:$D$34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...- Mehmet Sait
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
M
Kağıt boyutu seçme
...& "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$D$33").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...- Mehmet Sait
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
-
B
pdf yolu gösterme
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf" Cevabınızın sorunumu çözdüğünü belirtmiş ve teşekkür etmiştim. Şimdi bir konuda daha yardımınızı rica ediyorum. bu kodun devamına: oluşturulan pdf i açması için nasıl bir kod yazmalyım. Alakanız...- bozacioglu
- Posta #8
- Forum: Makro-VBA Soruları
-
Masaüstüne kaydetme
...Sub kaydet() Range("H1:J9").Select Range("J8").Activate ChDir "C:\Users\muratgunay48\Desktop" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\muratgunay48\Desktop\BAŞLIK MESAİ.pdf", Quality:=xlQualityStandard _ ...- muratgunay48
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
Tablodaki belirtilen sütundaki değerlere göre Toplu olarak tabloyu pdf lere ayırmak
...For Each grp In .Range("M2:M" & lr).Value rng.AutoFilter Field:=7, Criteria1:=grp .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & grp & "_Grup.pdf", Quality:=xlQualityStandard Next...- veyselemre
- Posta #7
- Forum: Makro-VBA Soruları
-
Tablodaki belirtilen sütundaki değerlere göre Toplu olarak tabloyu pdf lere ayırmak
...ws.Range("G2:G" & LastRow).AutoFilter Field:=1, Criteria1:=FilterValues(i) ws.Range("A1", ws.Cells(ws.Rows.Count, "G").End(xlUp)).ExportAsFixedFormat _ Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & FilterValues(i) & "_Grup.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True...- RBozkurt
- Posta #6
- Forum: Makro-VBA Soruları
-
Tablodaki belirtilen sütundaki değerlere göre Toplu olarak tabloyu pdf lere ayırmak
...= Selection.Address ActiveSheet.PageSetup.FitToPagesWide = 1 ActiveSheet.PageSetup.FitToPagesTall = 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & FilterValues(i) & "_Grup.pdf", Quality:=xlQualityStandard...- RBozkurt
- Posta #2
- Forum: Makro-VBA Soruları