If Döngüsü

[ozdogan]

Arkadaşlar Merhaba. Yapamadığım bişey var.

Dim Liste As Variant
Liste = ListBox1.List
ListBox1.RowSource = ""
ListBox1.List = Sirala(Liste, ListBox1.ColumnCount, 4)
Call Sayfa_Sirala2

Yukardaki bu kodların başına Şöyle bir döngü yazmak istiyorum.

Eğer Combobox1.text EŞİT DEĞİLSE Sheets("SDATA") adlı sayfanın V1:V10000 arasına MSgbox"BU tarihte Sparişiniz Yok"
EĞer eşitese;
Yukarda belirttiğim kodlar devreye girsin

Ben şöyle Bişey yazayım dedim olmadı.

Dim Liste As Variant
if Combobox1.text = sheets("SDATA").range("v1:v10000") then
Liste = ListBox1.List
ListBox1.RowSource = ""
ListBox1.List = Sirala(Liste, ListBox1.ColumnCount, 4)
Call Sayfa_Sirala2
else
msgbox"BU tarihte Bir sparişiniz yok!"
end if

Önce Comboboxtaki tarih SDATA adlı sayfamda V1:v10000 arasında kendini arasın varsa sonraki kodlar çalışsın yoksa Hata mesajı versin. NAsıl Yapılır acaba...?

 

[metinozlu]

Bu kod işinize yarar mı?


Dim bak As Range
Dim say As Integer
Sheets("sdata").Select
For Each bak In Range("v1:v10000")
If StrConv(bak.Text, vbUpperCase) = StrConv(ComboBox1.Text, vbUpperCase) Then

Liste = ListBox1.List
ListBox1.RowSource = ""
ListBox1.List = Sirala(Liste, ListBox1.ColumnCount, 4)
Call Sayfa_Sirala2



Exit Sub
End If
Next bak
msgbox"BU tarihte Bir sparişiniz yok!"

 

[ozdogan]

Merhaba hocam,
malesef bu kodlar istedğim görevi yapmıyor.