While Wend condition

[raaj123]

hi sir,

Please help me while condition is not working it is directly moving to next.

pls see the below code.

Code:

empid=ASF467  
For i=2 to rowcnt
        ecl=wrksht.cells(i,2)
        eempid=wrksht.cells(i,1)
        msgbox cstr(eempid)----here eempid is ASF467  
        msgbox ecl
        while cstr(empid)=cstr(eempid)
            If ecl=0 Then
               ecl=0
            End If
            If ecl=0.5 Then
               ecl=0
            End If
            If ecl=1  Then
                ecl=1
            End If
            If ecl=1.5 Then
                ecl=1
            End If
            If ecl=>2 Then
                ecl=2
            End If
        wend [/color]
     Next

Regards,
Praveen raaj.