VBA Çoklu For Döngüsü

[Greenblacksea53]

ÖmerFaruk hocam,
https://dosya.co/yb7w939gs5gu/Kitap1.xlsm.html
Sizin yaptığınız dosyayı bu hafta kullanmaya başladım ekte ekledim. Listede olmayan saatleri kırmızı renklerle belirttim, Örnek veriyorum, 14:19 sadece 2 için var ama 8 içinde listeye ekliyor zaten dosyaya bakınca anlayacaksınız sebebi nedir?

 

[ÖmerFaruk]

Aşağıdaki satırı bulup revize edilmiş haliyle denermisin

'Eski Hali
Set Bul = Sh.Range("B2:B" & sonB).Find(Ara)
    
'Yenisi
Set Bul = Sh.Range("B2:B" & sonB).Find(Ara, , , xlWhole)

 

[Greenblacksea53]

Aşağıdaki satırı bulup revize edilmiş haliyle denermisin

'Eski Hali
Set Bul = Sh.Range("B2:B" & sonB).Find(Ara)
   
'Yenisi
Set Bul = Sh.Range("B2:B" & sonB).Find(Ara, , , xlWhole)

Çok teşekkür ederim, bilginize sağlık

 

[ÖmerFaruk]

Sonuç OK mi? Merakta kaldım.

 

[Greenblacksea53]

Sonuç OK mi? Merakta kaldım.

Özür dilerim, evet tek kelime ile sorunu çözdünüz hocam, tekrar bilginize sağlık

 

[ÖmerFaruk]

Özürlük bir durum yok.
Sorun çıkarmaz diye düşündüğüm ve üşengeçlikten yazmadığım kısım sorun çıkardı ve mecburen düzelttik.
Önemli olan işinizin görülmesi.
Sağlıcakla kalın.

 

[emreacar347]

Sorunun çözüldüğüne sevindim.
Kolay gelsin.

Benimde bir for döngüsü ile alakalı sorunum vardı yardımcı olabilir misiniz

 

[ÖmerFaruk]

Ayrı bir başlık altında sorunuzu sorabilirsiniz.