Combobox'tan şarta bağlı getirmek

[İsmail Küçükşengün]

Mehabalar;

Private Sub ComboBox9_Change()
On Error Resume Next
Sheets("veri").Select
TextBox1 = Cells(ComboBox9.ListIndex + 3, 1)
TextBox2 = Cells(ComboBox9.ListIndex + 3, 6)
End Sub

Yukarıdaki kodla;
veri sayfasında A.3 ten itibaren getirdiğim verilerden A sütununda (1.sütunda)olanını Userformun TextBox1.'ine, F sütununda olanlarını (6.sütunda) olanını da TextBox2.ye aldırıyorum.

Sorunum:
F sütununda (6.sütunda) veri yoksa, 7 sütunda (G sütununda) olan verinin
TextBox2.ye getirilmesi için, yukarıdaki kodda ne gibi ilave gerekir.

Şimdiden teşekkürler.

 

[Orion1]

Merhabalar.
Aşağıdaki gibi bir denermisiniz.

Private Sub ComboBox9_Change()
On Error Resume Next
Sheets("veri").Select
TextBox1 = Cells(ComboBox9.ListIndex + 3, 1)
if cells(combobox9.listindex+3,6).value<>"" then
TextBox2 = Cells(ComboBox9.ListIndex + 3, 6).value
else
TextBox2 = Cells(ComboBox9.ListIndex + 3, 7).value
end if
End Sub

 

[Korhan Ayhan]

Selamlar,

TextBox2 ile ilgili olan satırı aşağıdaki şekilde değiştirip denermisiniz.

TextBox2 = IIf(Cells(ComboBox9.ListIndex + 3, 6) <> "", Cells(ComboBox9.ListIndex + 3, 6), Cells(ComboBox9.ListIndex + 3, 7))

 

[İsmail Küçükşengün]

Sayın Sezar ve COST CONTROL;

Teşekkürlerimi sunuyorum.

Selamlarımla,