Combobox taki değere göre hücreye textbox yazdırma ile ilgili yardım

[mesuttasar]

Arkadaşlar kabiliyetsizliğim üzerimde yine :tongue: basit ama aklım durdu .
Takıldığım yer şu:

userform üzerindeki combobox taki değere göre sayfadaki hücreye textbox ve diğer combobox taki girişleri yazdırmak istiyorum.Yazmış oldugum kod aşağıdaki gibi ama nedense doğru çalışmadı.Uzman arkadaşlardan yardım bekliyor saygılarımı sunarım.

Problem Kırmızı renkli kodlarda arkadaşlar.
 
On Error Resume Next
Z = Range("A1").End(xlDown).Row + 1

   Cells(Z, 1) = Date

[COLOR=Red]Cells(Z, 2) = IIf(ComboBox2 = "ÇEK İLE ÖDEME", (Cells(Z, 2) = ComboBox2 & " " 
& TextBox1 & "  TL  " & ComboBox3 & "/" & ComboBox4 & "  VADELİ"), (Cells(Z, 2) =
 ComboBox2 & " " & TextBox1 & "  TL  "))[/COLOR]

Cells(Z, 4) = TextBox1 * 1
     
     Sheets("FIRMALAR").Select
     
     UserForm3.Hide
     Unload Me
UserForm1.Show

End Sub

Daha açık bir ifadeyle Combobox taki veri ; ÇEK İLE ÖDEME ise hücreye örneğin 12/Mart/2008 Vadeli yazacak , NAKİT ÖDEME ise tarih ve Vadeli ibareleri bulunmayacak.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki mavi renkli kısımları silip denermisiniz. Yazım hatası yapmışsınız.

[COLOR=#ff0000]Cells(Z, 2) = IIf(ComboBox2 = "ÇEK İLE ÖDEME", [COLOR=blue][B](Cells(Z, 2) =[/B][/COLOR] ComboBox2 & " " 
& TextBox1 & "  TL  " & ComboBox3 & "/" & ComboBox4 & "  VADELİ"), [COLOR=blue][B](Cells(Z, 2) =[/B][/COLOR]
 ComboBox2 & " " & TextBox1 & "  TL  "))

[/COLOR]

 

[Zeki Gürsoy]

On Error Resume Next
Z = Range("A1").End(xlDown).Row + 1

   Cells(Z, 1) = Date

Cells(Z, 2) = IIf(ComboBox2 = "ÇEK İLE ÖDEME", _
                    ComboBox2 & " " & TextBox1 & "  TL  " & _
                        ComboBox3 & "/" & ComboBox4 & "  VADELİ", _
                    ComboBox2 & " " & TextBox1 & "  TL  ")

Cells(Z, 4) = TextBox1 * 1
     
     Sheets("FIRMALAR").Select
     
     UserForm3.Hide
     Unload Me
UserForm1.Show

 

[mesuttasar]

Sayın Korhan Ayhan ve Zeki Gürsoy her ikinizdede ayrı ayrı teşekkür ederim yardımlarınız için.