If BUL.Offset(0, 5).Value = "=*" & UserForm1.ComboBox10 & "*" Then MsgBox "içerir"??

[bistroboy]

If BUL.Offset(0, 5).Value = "=*" & UserForm1.ComboBox10 & "*" Then MsgBox "içerir"??

If BUL.Offset(0, 5).Value = "=*" & UserForm1.ComboBox10 & "*" Then MsgBox "içerir"

komutunu çalıştıramıyorum...burayı program görmüyor...

BUL Çalışma sayfasındaki offset(0,5) de "Ali" Değeri var

combobox10'da ise "Ali - Veli" değeri var...
içerir diye bir komut gelmiyor...hatam nerede?

LIKE komutu mu kullanacağız yoksa??? evetse nasıl kullanırız? çözümünüz?_

 

[Orion1]

Aşağıdaki gibi denermisiniz?
If Bul.Offset(0, 5).Value Like UserForm1.ComboBox10 & "*" Then MsgBox "içerir"

 

[bistroboy]

Olmadı hocam.
userform1.üzerindeki textbox55 değeri sayfada var ise 5 sütün sonrasındaki değeri combobox10 ile eşleştiremiyorum:

Set Bul = Nothing
Set Bul = Workbooks("a.xls").Sheets("KÜTÜK").Columns("A:A").Find(UserForm1.TextBox55, LookAt:=xlWhole)

If Not Bul Is Nothing Then

If Bul.Offset(0, 5).Value Like UserForm1.ComboBox10 & "*" Then MsgBox "içerir" ????????????
.
.
.
End If

 

[bistroboy]

birebir eşleşmelerde mesaj ekrana geliyor ama

mesela offset(0,5) 'de ali varsa ve combobox10'da ali varsa tamam sorun yok ancak

offset(0,5) 'de ali varsa ve combobox10'da ali-veli varsa ekrana gelsin istiyorum

 

[Orion1]

Gayette güzel çalışıyor.
Ekteki dosyayı inceleyiniz.

 

[Orion1]

Aşağıdaki gibi deneyiniz.

If Bul.Offset(0, 5).Value Like UserForm1.ComboBox10 & "*" Or _
UserForm1.ComboBox10 & "*" Like Bul.Offset(0, 5).Value & "*" Then
    MsgBox "içerir"
End If

 

[bistroboy]

hocam...tam olmamış.size de zahmet veriyorum kusura bakmayın
son verdiğiniz Or lu 2 alternatifli komutu kullandım:

mesela Ali hücresi için combobox10'da "Ali - Veli" varsa MEsaj geliyor cok güzel

ancak hücrede Veli varsa combobox10'da "Ali - Veli" için mesajı alamıyorum aynı şekilde...

acaba aradaki tire bozuyor mu gerçi like koyuyoruz ama?

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

If Bul.Offset(0, 5).Value Like "*" & UserForm1.ComboBox10 & "*" Or _
UserForm1.ComboBox10 & "*" Like "*" & Bul.Offset(0, 5).Value & "*" Then
    MsgBox "içerir"
End If

 

[bistroboy]

COK TEŞEKKÜRLER...
çalışıyor...

 

[Orion1]

COK TEŞEKKÜRLER...
çalışıyor...

Rica ederim.
İyi çalışmalar.