Textbox dan koşullu kayıt

[kemal turan]

Merhaba uzmanlarımız,
Aşağıdaki kodumuzda dim pir6 ve yedi aynı hücreye kayıt yapıyor.

İsteğim 1 nci kodumuzdan (Cdate özelllikli textbox tan) veri yazılmış ise dim pir 7 Combobox çalışmasın.
1 nci kodumuzdan veri b18 girilmemiş ise Dim pir 7 (combobox 3 )çalışsın.
Çok teşekkür ederim.

Private Sub CommandButton1_Click()
Dim pir6 As String
Dim i6 As String
pir6 = CDate(TextBox5.Text)
Range("B18").Value = pir6

Dim pir7 As String
Dim i7 As String
pir7 = ComboBox3
Range("B18").Value = pir7


Dim pir4 As String
Dim i4 As String
pir4 = ComboBox1
Range("B19").Value = pir4

Dim pir5 As String
Dim i5 As String
pir5 = ComboBox2
Range("B20").Value = pir5

Dim pir7 As String
Dim i7 As String
pir7 = ComboBox3
Range("B18").Value = pir7



End Sub

 

[kemal turan]

merhabalar,
Konu diğerkodlardan yola çıkıp aşağıdaki gibi örnekleme yapılarak çözülmüştür.
ilgilenenlere teşekkür ederim.
selametle kalın

Private Sub CommandButton1_Click()
Dim pir7 As String
Dim i7 As String
pir7 = ComboBox3
Range("B18").Value = pir7



Dim pir4 As String
Dim i4 As String
pir4 = ComboBox1
Range("B19").Value = pir4

Dim pir5 As String
Dim i5 As String
pir5 = ComboBox2
Range("B20").Value = pir5

If Sheets("planlama").[b18] = "<>" Then Exit Sub
On Error GoTo Son
Dim pir6 As String
Dim i6 As String
pir6 = CDate(TextBox5.Text)
Range("B18").Value = pir6
Son:
End Sub