Aşağıdaki kod yardımıyla PDF ortamında oluşturduğum raporu
Excel ortamında açmak istiyorum.
Kodda nasıl bir değişiklik yapmam gerekir.
Kod:
.Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz
(29/03/2022, 22:09)berduş yazdı: [ -> ]Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz
verileri textbox ve combobaxlara çektikten sonra belge düzenle butonuna tıklayıp excelde açmak istiyorum.
excelde hazırlamış olduğum hücrelere textbox ve combobaxdaki veriler aktarılıyor ancak rapor alırken pdf e çevirip açıyor ben yine
Excel açsın istiyorum...
Belge düzenle butonunun kodları
Kod:
Private Sub CommandButton5_Click()
With Sheets("belge")
.Range("E9") = Me.TextBox3
.Range("E10") = Me.TextBox4
.Range("E11") = Me.TextBox2
.Range("E12") = Me.TextBox5
.Range("E13") = Me.ComboBox8
.Range("E14") = Me.ComboBox4
.Range("E15") = Me.ComboBox6
.Range("E16") = Me.TextBox1
.Range("E18") = Me.ComboBox2
Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
End With
(29/03/2022, 22:17)H@K@N yazdı: [ -> ] (29/03/2022, 22:09)berduş yazdı: [ -> ]Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz
Örnek dosyam ektedir.
Arama sayfasında listboxta listelenen kayıtlardan birine tıkladığımızda Personel Getir sayfası açılıyor. Burada Personel Bilgilerini Getir butonuna tıkladığımızda bilgiler textbox ve combobaxlara geliyor.
Rapor Al butonuna tıkladığımda PDF değil
Excel olarak açsın istiyorum.
Yardımlarınızı bekliyorum Teşekkürler.
aşağıdaki kodu dener misiniz?
yeni
Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")
.Range("D4") = Me.TextBox1
.Range("D6") = Me.ComboBox1
.Range("D8") = Me.TextBox2
.Range("D10") = Me.TextBox3
.Range("D12") = Me.TextBox4
Dim wb As Workbook
Set wb = Workbooks.Add
.Copy Before:=wb.Sheets(1)
End With
(30/03/2022, 12:18)berduş yazdı: [ -> ]aşağıdaki kodu dener misiniz?
yeni Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")
.Range("D4") = Me.TextBox1
.Range("D6") = Me.ComboBox1
.Range("D8") = Me.TextBox2
.Range("D10") = Me.TextBox3
.Range("D12") = Me.TextBox4
Dim wb As Workbook
Set wb = Workbooks.Add
.Copy Before:=wb.Sheets(1)
End With
Üstadım efsanesiniz. Çok teşekkürler yine sayenizde büyük bir sorunum çözüldü. İyiki varsınız.