(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.