textboxta girilen tarihe göre hücrelerdeki tarihleri kıyaslama

[busraakrky]

merhabalar.Rezerv hareketi sayfamda 5 ve 6. sütunlardarezervin başlangıç ve bitiş tarihleri yazılı. formda textboxta yazdığım tarih 5 ve 6. sütundaki tarihlerin arasındaysa formdaki labela 11. sütunumdaki kalan miktarı yazsın istiyorum aşağıdaki kod textboxa ne girersem gireyim hep bugünün tarihine göre kıyaslama yapıyor.Nasıl düzeltebilirim?


If CLng(Worksheets("Rezerv Hareketi").Cells(k, 5).Value) < CLng(TBoxdurum_tar) < CLng(Worksheets("Rezerv Hareketi").Cells(k, 6).Value) Then
Lblrdurum_m.Caption = Worksheets("Rezerv Hareketi").Cells(k, 11)

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi olmalı.

    If CLng(Worksheets("Rezerv Hareketi").Cells(k, 5).Value) < CLng(TBoxdurum_tar) And CLng(TBoxdurum_tar) < CLng(Worksheets("Rezerv Hareketi").Cells(k, 6).Value) Then
        Lblrdurum_m.Caption = Worksheets("Rezerv Hareketi").Cells(k, 11)
    End If

Eğer olmazsa dosyanızı paylaşın kontrol edelim.

 

[busraakrky]

Malesef denedim ama olmadı dosyanın linkini bıraktım bakarsanız sevinirim.

Meet Google Drive – One place for all your files

Google Drive is a free way to keep your files backed up and easy to reach from any phone, tablet, or computer. Start with 15GB of Google storage – free.

drive.google.com

 

[ÖmerFaruk]

Dosyanızda belirttiğiniz kodu nerede kullanılyorsunuz bulamadım.

 

[busraakrky]

Formdaki tarihe göre durumu göster butonunun içinde kullanıyorum.

 

[ÖmerFaruk]

Bakıyorum ama o kadar karışık ki.
Döngüleri tamamen listelerin sonuna kadar yapmışsınız.
Verileri buluyor sonra işlem yapıyor ancak sonraki satırda yine siliyorsunuz.
For Next yerine FIND Next kullanmalısınız.
Bulduğunuz ve işlemi gerçekleştirdikten sonra döngüyü sonlandırmalısınız.