Kodda nasıl bir değişiklik yapmam gerekir.
Kod:
.Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
.Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
(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
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
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