İki IF'i tek bir IF te birleştirme

[crion]

Selamlar, bir küçük sorunum var yardımcı olabilirseniz sevinirim.

If (Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)   'isim hızlı arama
If (Right(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)   'soyad hızlı arama

bu iki kod ayrı ayrı doğru çalışıyorlar ancak iki adet girdi yaratıyorlar ListBox1 içinde, o yüzden bu iki if'i tek if'te birleştirmem lazım, sanırım başına bir OR koymam gerekli ancak fazla komplike geldiği için içinden çıkamadım, yardımcı olabilir misiniz?

 

[halit3]

Böyle denermisiniz.?

If (Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) [COLOR=red][B]And[/B][/COLOR] (Right(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)

yada böyle

If (Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) [COLOR=red][B]Or[/B][/COLOR] (Right(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)

 

[crion]

Böyle denermisiniz.?

If (Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) [COLOR=red][B]And[/B][/COLOR] (Right(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)

yada böyle

If (Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) [COLOR=red][B]Or[/B][/COLOR] (Right(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2)) Then ListBox1.AddItem (MyRange)

teşekkürler çalışıyor.

 

[halit3]

teşekkürler çalışıyor.

İyi çalışmalar