| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code
With Sheet1 containing in Cells A1:A11
a1 a2 a3 a4 b1 b2 b3 b4 c1 c2 c3 Why is this code Not deleting all and only the ?3's and ?4's Right Now it is deleting ALL/everything !! Hair-pulling here ... Sub foo() Set rng = ActiveSheet.Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)) lrow = rng.Rows.Count For i = lrow To 1 Step -1 t = Right(Cells(i, 1).Value, 1) If t < "1" Or t < "2" Then Cells(i, 1).EntireRow.Delete End If Next End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
| Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
| Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
| How to assign same code inside Option button code space ?? | Excel Programming | |||
| Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming | |||
Threaded Mode
