IF Statement Help
This should be better:
Range("A3").Select Myvalue = Selection.Value lastrow = Cells(Rows.Count, "A").End(xlUp).Row For Each cl In Range("A1:a" & lastrow) MsgBox cl.Address If cl.Value < Myvalue Then cl.EntireRow.Select End If Next Duncan bodhisatvaofboogie wrote: Range("A3").Select MyValue = Selection lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set cell = Cells(a, "A") If Not (cell = "Myvalue") Then Selection.EntireRow.Select End If This statement Is just not working. Where am I going wrong? It is supposed to do the following: Select a specific cell -- Whatever that value is, set it to Myvalue. THEN search through the column ("A:A") and if the cell is not equal to that Myvalue, then select the entire row. Make sense? THANKS FOR THE HELP!!! |
All times are GMT +1. The time now is 06:01 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com