View Full Version : Solved: delete rows
asdzxc
12-20-2012, 11:46 PM
if total rows greater than 10, delete last 2 rows, plse write a vba.
patel
12-21-2012, 12:10 AM
sub deleterows()
LR = Cells(Rows.Count, "A").End(xlUp).Row
if LR > 10 then
range("A11:C" & LR).entirerow.delete
end if
end sub
asdzxc
12-21-2012, 12:22 AM
sub deleterows()
LR = Cells(Rows.Count, "A").End(xlUp).Row
if LR > 10 then
range("A11:C" & LR).entirerow.delete
end if
end sub
sloved.thanks
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.