clear rows

[VBABEGINER]

Range("C5:C" & Rows.Count).End(xlDown).Clear

In the above line of code, data after C5 not getting clear.

I used this too

Range("C5:C" & Rows.Count).End(xlDown).ClearContents

Can any one quickly suggest on this

 

[JackDanIce]

Try:

Dim x as Long
x = Cells(Rows.Count, 3).End(xlup).Row
Cells(5, 3).Resize(x).Clearcontents

 

[Rick Rothstein]

Range("C5:C" & Rows.Count).End(xlDown).Clear

In the above line of code, data after C5 not getting clear.

Can any one quickly suggest on this

Leave the End(xlDown) out...

Range("C5:C" & Rows.Count).Clear

 

[Peter_SSs]

.. unless you were just trying to clear the yellow rows below, in which case one way is

Range("C5:C" & Range("C5").End(xlDown).Row).Clear

Book1
	C
1	x
2	x
3	x
4	x
5	y
6	y
7	y
8	y
9	y
10	y
11
12	z
13	z
14	z
15
Clear

 

[Rick Rothstein]

.. unless you were just trying to clear the yellow rows below, in which case one way is

Range("C5:C" & Range("C5").End(xlDown).Row).Clear

Or, alternately, another way...

Range("C5", Range("C5").End(xlDown)).Clear

 

[My Aswer Is This]

Try this:

Cells(5, 3).Resize(Cells(Rows.Count, 3).End(xlUp).Row).ClearContents

 

[VBABEGINER]

Thanks all, with the same im having very small query..

Worksheets("export").Select


lastRow = Cells(Rows.Count, "A").End(xlUp).Row


Sheets.Add

[COLOR=#ff0000]ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="export!R1C1:R" & lastRow & C10, _[/COLOR]
[COLOR=#ff0000]    Version:=xlPivotTableVersion15).CreatePivotTable TableDestination:="Sheet4!R3C1", TableName:="PivotTable3", DefaultVersion:=xlPivotTableVersion15[/COLOR]

getting error on red - "Invalid Procedure on call Or Argument"

can any one pls guide on this quick pls..

 

[JackDanIce]

Thanks all, with the same im having very small query..

Is the clear problem resolved?

Next ask seems distinctly different to initial post so will pass