Clear data on two different sheets with different ranges

[Zahid0111]

I have a workbook with different sheets, when i try to clear some ranges through vba code, it gives me error, please help me with this.

Private Sub CommandButton5_Click()

    Range("B13:F13").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("R13:S13").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("AG13:AH13").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("RawDataBher").Select
    Range("A2:E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("H3:AA3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("AL3:AO3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("AR3:AS3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Sheets("Bherkund").Activate
    Range("I7").Select

End Sub

 

[HighAndWilder]

You don't need to activate the worksheet or select the range to clear the contents.

Worksheets("Bherkund").Range("A1:A10").ClearContents will clear the contents from the specified worksheet and range.

I hope that this helps.

Take care and stay safe.

 

[Zahid0111]

yes it clears but i want it should also clear below values in the range defined...as i have used .End(xldown)

 

[HighAndWilder]

worksheets("Bherkund").Range("A10:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents

will clear the contents from cell A10 downwards.

 

[Zahid0111]

Great thank you so much... it works now

 

[HighAndWilder]

Glad to be of help Zahid0111.

 

[Zahid0111]

Hey..how can i mark this thread as "Solved" and also give you credit..thanks

 

[HighAndWilder]

I've just found this from one of the moderators:

We don't mark threads as solved in this forum as it sometimes happens that an even better solution comes along later and we don't want to discourage that by marking a 'solved'.

 

[Zahid0111]

okay great thank you..YOU GUYS ARE AWESOME..