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

Aşağıdaki şekilde birkaç sefer denedim, hata vermeden çalışıyor. Yapılan değişiklikler: msWord set olayı for döngüsü dışına alındı, Şablon dosyası salt okunur açıldı, kaydetmeden kapatıldı, Pdf kaydet olayında ise "adobe" seçeneği değil de "Pdf veya xps" seçeneği kullanıldı. Sub...

Ben de aşağıdaki şekilde sorun çıkmadan çalıştı. Sub ZZZZ_Uzlaşma_Hazırla() Dim Uzlasma As Word.Document Set R1 = ThisWorkbook.Worksheets("Kaynak1") Set R2 = ThisWorkbook.Worksheets("ProjeBilgileri") sonsatir = R1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row yoll =...

Merhaba Resimdeki hatayı almaktayım

Oluşan Pdf'ler bende problemsiz açılıyor. Sub ZZZZ_Uzlaşma_HazırlaRBozkurt() Dim Uzlasma As Word.Document Set R1 = ThisWorkbook.Worksheets("Kaynak1") Set R2 = ThisWorkbook.Worksheets("ProjeBilgileri") sonsatir = R1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row yoll =...

Sub pdf111() ' ' pdf Makro yol = ThisWorkbook.Path & "\" uz = "." & CreateObject("Scripting.FilesystemObject").GetExtensionName(ThisWorkbook.Name) ad = Replace(ThisWorkbook.Name, uz, ".pdf") Sheets(Array("sayfa1", "sayfa2")).Select ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF...

Merhaba, Aşağıda ki kod mantığını kullanarak sayfaları PDF yapıp mail gönderebiliyorum. Ancak aynı mantık ile birde excel formatında göndermekte istiyorum. İlgili kodlar aynı mantıkla excel formatına çevrilebilir mi ? Sub Raporlama() Application.ScreenUpdating = False Dim IsCreated As...

Aşağıdaki gibi düzenleyince oldu teşekkürler . Sub KOD_PDF() Application.DisplayAlerts = False yol = ThisWorkbook.Path isim = Range("AI2").Value & " Genel" ThisWorkbook.Worksheets(Array("Gnl. Özt", "Bnk. Özt")).Select Selection.Range("A1:AH125").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

Merhaba; Aşağıdaki vba kod ile 2 ayrı sayfanın belirli hücre aralığını tek pdf dosyasına dönüştürmek istemekteyim. Fakat "For Each" satırında "Type Mismatch" hatası almaktayım. Eski sorulardan kendime uyarladım kodu. Yardımlarınız için şimdiden teşekkürler. Sub KOD_PDF() Dim Sayfa As...

incelemem için arkadaşlar bu kod ile yapılan gibi bir excele örnek yapıp yükleyebilirmisiniz...

korhan bey benim istediğim aşağıdaki kod ile yapılan işin aynısı sitede araştırırken buldum ancak yüklediğim demo dosyamda çalıştıramadım yardımcı olurmusunu; Private Sub CommandButton1_Click() Dim syf(), yol As String, deg As String syf = Array("KDV1-ÖNYÜZ", "KDV1-ARKAYÜZ")...

Merhaba @muzo696, Excel, yazdırma yada PDF olarak kaydetme işlemi yaparken aktif olan sayfayı baz alır. Sizin istediğiniz tek bir PDF de 2 sayfanın yer alması ise; bu işlemi Sayfa1 ve Sayfa2 tablarını Shift tuşuna basarak seçip PDF olarak kaydet demeniz yeterli olacaktır. Makro kaydet...

merhaba arkadaşlar bir konu hakkında yardımınıza ihtiyacım var. Sub dahilPDF() ' ' dahilPDF Makro ' ' Range("H6").Select ChDir "C:kalasörün bulunduğu adres var" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\buradada farklı kaydettiği klasörün ismi var\" &...

Korhan bey sayın Ömer Bey'in yapmış olduğu bir kodu buldum. Bu benim işime yarıyor. Fakat bu kodda makro da anladığım kadarıyla tanımlı 2 sayfayı birleştirip masa üstünde tek bir PDF dosyası oluşturuyor. Oysa ben checkbox karda tik olanları yaptırmak istiyorum. Bu da beni aşıyor Private Sub...

Hocam çok teşekkür ederim emeğinize sağlık.

Deneyiniz. Private Sub CommandButton1_Click() Dim syf(), yol As String, deg As String syf = Array("KDV1-ÖNYÜZ", "KDV1-ARKAYÜZ") Application.ScreenUpdating = False yol = ThisWorkbook.Path deg = "KDV1_On_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")...

Bu kod ile Bu kod ile birden fazla sayfayı tek pdf yapabilir miyim?

Korhan Bey merhaba, Yardımlarınız için çok teşekkür ederim. PDF yerine Excel dosyası olarak kaydetmek istiyorum. Bunun için yardımcı olur musunuz? Teşekkürler.

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", _...

Merhaba, Örnek dosya göndermek isterim ama boyut oldukça büyük. İstediğim dosya içindeki belli tabloları excel sayfası yapması. Mail atmasına gerek yok. PDF yapan bu makroyu excel olarak dönüştürmek. Dışarıya çıkaran bu kısımda değişm olabilir mi diye düşündüm. Set nesne =...

Merhaba, Aşağıda ki kod ile raporları raporları PDF yapıp e-mail gönderiyorum. Aynı bu mantık ile PDF değilde excel sayfası oluşturmak istiyorum. Kodlarda ne gibi değişiklik yapılmalıyım. Teşekkür ederim. Sub Raporlama() Application.ScreenUpdating = False Dim IsCreated As Boolean Dim i...