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

UserForm1'de bulunan TextBoxlardaki verilerin ekte göndermiş olduğum formatta PDF olarak görüntüleyip yazdırmak istiyorum. Yardımcı olursanız memnun olurum. Kendi çapımda birşeyler çıkardım. Pdf olarak beceremedim ama excel olarak birşeyler denedim fakat bir sorun meydana geliyor.Oda şuki: Ayrı...

Anladım teşekkür ederim. Karşılaştığım bir sorun var. Kayıt yaparken TEXTBOX ile Örneğin; AHMET MEHMET yazıyorum (ENTER ile alt satıra geçerek.) veriyi çağırdığım zaman textboxda da aynı şekilde altalta görünüyor. Fakat; Sheets(1).Range("B8") = "ISIM" Sheets(1).Range("C8") = TextBox3.Value Kodu...

Denedim oldu, yada ben yapmak istediğinizi yanlış anladım. Çıkan soruya evet derseniz kayıt işlemi yapar, hayır derseniz kodu sonlandırır. Sub PrintAllSheetsToPDF() 'SUBROUTINE: PrintAllSheetsToPDF 'DEVELOPER: Ryan Wells 'DESCRIPTION: Combine all your worksheets into one PDF Dim strSheets() As...

aşağıdaki koda ne eklersem, eğer aynı isimde bir pdf varsa, değiştirmek istermisin diye sorar. bu hali ile sorgusuz üstüne kayıt yapıyor. Sub PrintAllSheetsToPDF() 'SUBROUTINE: PrintAllSheetsToPDF 'DEVELOPER: Ryan Wells 'DESCRIPTION: Combine all your worksheets into one PDF Dim strSheets() As...

Merhaba Aşağıdaki gibi olabilir '...Mail gönderen bölümdede değişiklik yaparsınız '....' '.....kodlarınız' '....' sayfalar = Array("Aylık", "Üretim Veri Analizi", "Ürün ve Marka Bazında") hcrler = Array("B7", "B7", "B230") yol = ThisWorkbook.Path For m = 0 To UBound(sayfalar) Pdff =...

8. mesajdaki ekli dosyadaki gibi oluyorsa sayfalar = Array("Aylık", "Üretim Veri Analizi", "Ürün ve Marka Bazında") hcrler = Array("$B$7:$R$78", "$T$7:$AJ$78", "$B$7:$R$78") yol = ThisWorkbook.Path For m = 0 To UBound(sayfalar) pdff = Sheets(sayfalar(m)).Name & ".pdf"...

Teşekkür ederim Hocam, Bu şekilde gönderdi ancak her tablonun hücreleri farklı Aylık tabloda ocak ("$B$7:$R$78"), Şubat ise ("$T$7:$AJ$78") Ürün ve marka bazında ocak ("$B$7:$X$78"), şubat ise ("$B$82:$X$153") diğer tüm yedi tabloda aynı şekilde ama birbirinden farklı. Yaptığınız çalışmaya...

Plint Hocam, Şu şekilde yaptım, oldu ancak PDF dosya adına her tablonun kendi adını almasını yapamadım. Örnek Aylık sayfasında B7 hücrede bulunan tablo ismini PDF dosya adı olarak yapamadım. Sheets("Aylık").Activate PdfFile = PdfFile & "" & [B7] & ".pdf"...

Merhaba Hocam, Dediğiniz gibi yaptım ancak tek bir raporu gönderiyor. Sub raporOcak() Dim IsCreated As Boolean Dim i As Long Dim PdfFile As String, Title As String Dim OutlApp As Object Title = Range("B7") Kime = Range("C2") Bilgi = Range("C3") Gizli = Range("C4") Mesaj =...

Merhaba Birden fazla sayfayı; tek "pdf" dosyası olarak kaydedip göndermek istiyorsanız; (Kodlardaki sayfa adlarını düzenlersiniz) ThisWorkbook.Sheets(Array("Aylık", "Aylık2", "Aylık3")).Select Sheets("Aylık").Activate ActiveSheet.Range("$B$7:$R$78").ExportAsFixedFormat Type:=xlTypePDF, _...

üstad çok teşekkürler. gayet güzel çalışıyor bu kod da. Elleriniz dert görmesin. yalnız dosya isimlerini alırken neden sadece ilk sayfanın "a2" hücresinde yazanları da almıyor acaba? dosya isimleri benim uyguladığım dosyada biraz daha farklı oldu nedense. yani yanına sayı ekledi. Gerçi sorun...

Alternatif kod Sub pdfaktar() Application.ScreenUpdating = False yer = ActiveSheet.Name For i = 1 To ActiveWorkbook.Sheets.Count If Sheets(i).Visible = False Then GoTo atla If Sheets(i).Name = "BİLGİ GİRİŞ" Then GoTo atla If Sheets(i).Name = "ödev" Then GoTo atla Sheets(Array("ödev"...

Çok teşekkür ederim, şimdi çıkmam gerekiyor bir hastane işi için. Ancak akşam bakabileceğim sanırım. Son durumu buradan mutlaka bildireceğim. İlginiz ve desteğiniz için çok teşekkürler.

Sub pdfExport() fPdfPath = "c:\users\user\Desktop\PDF\" shArray = Array("", "ödev") For i = 1 To 8 shArray(0) = Trim(i) Sheets(Trim(i)).Activate fPdfName = fPdfPath & Range("a2") & ".pdf" Sheets(shArray).Select...

Öncelikle ilginiz için teşekkürler. Ancak bu kodu kullandığımda out of range gibi bir uyarı aldım. acaba kodu yanlış bir yere mi kopyaladım ?

Sub pdfExport() fPdfPath = "c:\users\user\Desktop\PDF\" shArray = Array("", "Sayfa9") For i = 1 To 8 shArray(0) = "Sayfa" & i Sheets("Sayfa" & i).Activate fPdfName = fPdfPath & Range("B3") & ".pdf" Sheets(shArray).Select...

iyi günler arkadaşlar; tüm çalışma kitabını pdf olarak kaydetmeye çalışıyorum ancak hata veriyoru. makro kaydet yöntemi ile yapmaya çalıştım hatam nerede acaba? Sub MAKROPDFKAYDET() ' ' MAKROPDFKAYDET Makro ' ' Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select...

excelde safyaları pdf çevir makrosu yaptım. aşağıda görebilirsiniz. Fakat dosyayı kayıt edip tekrar açtığımda her seferinde bir sorunla karşılaştı düzeltme istiyormusunuz uyarısı veriyor. Hayır dersem çıkış yapıyor. Evet dersem onarma işleminde makroları siliyor. Sheets("RS 30").Select...

excelde safyaları pdf çevir makrosu yaptım. aşağıda görebilirsiniz. Fakat dosyayı kayıt edip tekrar açtığımda her seferinde bir sorunla karşılaştı düzeltme istiyormusunuz uyarısı veriyor. Hayır dersem çıkış yapıyor. Evet dersem onarma işleminde makroları siliyor. Sheets("RS 30").Select...

Merhaba, Aşağıdaki kodlama ile farklı sayfalardaki tabloları pdf ye dönüştürebiliyorum. Ancak eklemek istediğim bir kaç özellik var. - Çıktı sayfasında onay kutusu seçili olanların pdf çıktı olarak vermesini eklemek - Her tablo için ayrı bir sayfa oluşturuyor, tablolar sığdığı takdirde aynı...