clean data bc column T H

an clean button  for data in column B and C

to add new data as needed
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
ShumsDistinguished Expert - 2017Commented:
Hi Adriana,

Try below, assuming you have header in row 1 and want to clean from row 2 (Check in sample)
Sub CleanBC()
Dim Ws As Worksheet
Dim LRow As Long
Set Ws = Worksheets("Sheet1")
LRow = Ws.Range("B" & Rows.Count).End(xlUp).Row + 1
Application.ScreenUpdating = False
If IsEmpty(Ws.Range("B2:C" & LRow)) = False Then
    Ws.Range("B2:C" & LRow).ClearContents
End If
Application.ScreenUpdating = True
End Sub

Open in new window

Adriana_CleanBC.xlsm
1
 
als315Commented:
Columns("B:C").Select
Selection.ClearContents
1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
als315

Thankf for the fast repeonse  Expert !
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
als315Commented:
You are welcome
0
 
Rgonzo1971Commented:
Shorter
Columns("B:C").ClearContents

Open in new window

2
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Rgonzo1971

Thnaks for the fast reponse  best expert
0
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Shums

Thanks for the fast reponse best expert
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.