يافتن آخرين خانه خالي

[alisabet]

سلام

من در vba احتياج به كدي دارم كه اولين خانه خالي يا مساوي يك مقدار خاص را انتخاب كند
البته براي خانه خالي كد دارم ولي منظورم اينست كه يا خالي باشد يا مساوي مقدار خاصي باشد يعني در هر دو حالت جواب دهد براي اين منظور من كد زير را كه براي يافتن سل خالي است را دارم

do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
و من آنرا بشكل زير تغيير ميدهم ولي جواب نميدهد دوستان اگه ميدونيد مشكل از كجاست بگيد
do While Not IsEmpty(ActiveCell.Value) or ActiveCell.Value<>100
ActiveCell.Offset(1, 0).select
Loop

[alisabet]

RE: يافتن آخرين خانه خالي

خودم پيدا كردم جهت استفاده دوستان ميذارم

كار اين كد اينست كه از ابتداي تعيين شده يك ستون ، سل فعال به پائين حركت ميكند و در صورتي كه سل فعال با عدد فرضي 100 مساوي باشد يا سل فعال خالي باشد در همين سل توقف ميكند
Do Until ActiveCell.Value = 100 Or IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop