Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting "most" of row
Hi all,
With Worksheets("Data") Set Rng = .Cells(.Rows.Count, "A").End(xlUp) With Rng .EntireRow.ClearContents How would I change the above code so that the data in column A is not deleted but everything else on the row is deleted? TIA, Robbyn |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting "most" of row
With Worksheets("Data")
Set Rng = .Cells(.Rows.Count, "A").End(xlUp) Set Rng = Rng(1, 2).Resize(1, .Columns.Count - 1) Rng.ClearContents End With -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "Robbyn" wrote in message Hi all, With Worksheets("Data") Set Rng = .Cells(.Rows.Count, "A").End(xlUp) With Rng .EntireRow.ClearContents How would I change the above code so that the data in column A is not deleted but everything else on the row is deleted? TIA, Robbyn |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting "most" of row
try
With Worksheets("Data") lr=.Cells(.Rows.Count, "A").End(xlUp) ..range(.cells(lr,2),.cells(lr,"iv")).ClearContent s end with -- Don Guillett SalesAid Software "Robbyn" wrote in message ... Hi all, With Worksheets("Data") Set Rng = .Cells(.Rows.Count, "A").End(xlUp) With Rng .EntireRow.ClearContents How would I change the above code so that the data in column A is not deleted but everything else on the row is deleted? TIA, Robbyn |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting "most" of row
Thank you both! I tried both examples with a little tweaking and they were
successes! "Robbyn" wrote: Hi all, With Worksheets("Data") Set Rng = .Cells(.Rows.Count, "A").End(xlUp) With Rng .EntireRow.ClearContents How would I change the above code so that the data in column A is not deleted but everything else on the row is deleted? TIA, Robbyn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
If changed array formula reduce ""\""\""\ - signs to #Missing, will it make ... | Excel Programming |