textbox tarihini combobox gün sayısıyla toplama

[cems]

Bir userform üzerinde olan kodların altına bugünden itibaren 15gün vade eklemem gerek.

Textbox1'deki tarihi Combobox'taki gün sayısıyla toplayıp yeni tarihi textbox2'ye makro ile nasıl çıkarırım ?

Sheets("Fiyatlandırma").Select
For Each hucre In Range("a3:a170") ' & WorksheetFunction.CountA(Range("a6:a17000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
hucre.Select
TextBox21 = Format(TextBox21, "dd.mm.yyyy")
TextBox7 = ActiveCell.Offset(0, 1).Value
TextBox8 = ActiveCell.Offset(0, 2).Value
TextBox9 = ActiveCell.Offset(0, 3).Value
TextBox10 = ActiveCell.Offset(0, 4).Value
TextBox11 = ActiveCell.Offset(0, 5).Value
TextBox12 = ActiveCell.Offset(0, 6).Value
TextBox13 = ActiveCell.Offset(0, 7).Value

TextBox14 = ActiveCell.Offset(0, 8).Value
TextBox15 = ActiveCell.Offset(0, 9).Value
TextBox16 = ActiveCell.Offset(0, 10).Value
TextBox17 = ActiveCell.Offset(0, 11).Value
TextBox18 = ActiveCell.Offset(0, 12).Value
TextBox19 = ActiveCell.Offset(0, 13).Value
TextBox20 = ActiveCell.Offset(0, 14).Value
TextBox21 = Range("a1").Value
TextBox22.Value = Empty
On Error GoTo son:
TextBox22.Value = Format(CDate(TextBox21.Value) + ComboBox3.Value, "dd.mm.yyyy")

son: MsgBox ("Hazır"), vbCritical

End If
Next
End Sub

Typ mispatch hatası verdi

 

[Orion1]

Buyurun.

TextBox2.Value = Empty
On Error GoTo son
TextBox2.Value = Format(CDate(TextBox1.Value) + ComboBox1.Value, "dd.mm.yyyy")
son:

 

[cems]

Sayın Orion1
Çok teşekkür ederim .

Ancak yukarıda orijinal olarak da verdiğim şekilde, "typ mismatch" hatası verdi . Nasıl düzeltebilirim?

 

[Orion1]

Sayın Orion1
Çok teşekkür ederim .

Ancak yukarıda orijinal olarak da verdiğim şekilde, "typ mismatch" hatası verdi . Nasıl düzeltebilirim?

Hangi satırı verdi.
Benim yazdığımda olamaz çünkü oraya on error koyduk.

 

[cems]

TextBox21.Value = Range("a1").Value ' SAYFADA A1''deki = bugün değerini çekiyor

TextBox22.Value = Empty
On Error GoTo son:
TextBox22.Value = Format(CDate(TextBox21.Value) + ComboBox3.Value, "dd.mm.yyyy")
son: MsgBox ("Hazır"), vbCritical
End If
Next
End Sub

On error koyduğumuzda textbox21'deki =bugün değeri gelmiyor ve tarihler boş atlıyor.
On error koymadığımızda koyu olan satırı sarıya boyuyor ve typ mismatch run time 13 hatası diyor

 

[Orion1]

textbox21de tarih yok yada combobox3 te sayı yok.

 

[cems]

textbox21de tarih yok yada combobox3 te sayı yok.

Bu durumda bir önceki comboboxla onları getirip sonucu deneyeyim

 

[cems]

Sayın Orion1;

Bir önceki combobox'a bağlayarak fiyatlardan önce tarih ve gün getirdim. İkinci combobox fiyatları getirince çalıştı.
Çok teşekkür ederim