Hocam Fatura butonuna aşağıdaki kodları ekleyerek sorunumu hal ettim. İlk etapta oldu sonradan aktarılacak hücreleri değiştirdiğim zaman hata vermeye başladı şu anda aktarma yapmıyor. Hata veriyor. Aktarma hatasının düzeltilmesi için sizlerden yardım bekliyorum.



Hata Veren Kodlar

Private Sub CommandButton33_Click()

Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("h6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat

If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
If TextBox8.Value = "" Then
MsgBox ("Tarihi Boş Geçemessiniz")
Exit Sub
End If

If TextBox9.Value = "" Then
MsgBox ("Saatı Boş Geçemessiniz")
Exit Sub
End If

TextBox8.Value = Format(Now(), "dd.mm.yyyy")
TextBox9.Value = Format(Now(), "hh:mm;@")


ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize

UserForm1.Hide
Sheets("Fatura").Select

End Sub