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