if the data is not equal to each other then erase all the data in this sheet(completely erase the sheet,clear all the data in this sheet make this sheet blank)

my data are in coloumn B and coloumn C
what I want is if data in coloumn B and C are equal  to each other  then fine
and if the data is not equal to each other then erase all the data in this sheet(completely erase the sheet,clear all the data in this sheet make this sheet blank)
Book1.xlsx
Avinash SinghAsked:
Who is Participating?
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
You may try something like this...

Sub DeleteData()
Dim ws As Worksheet
Dim lr As Long, i As Long
Dim x

Application.ScreenUpdating = False

Set ws = Sheets("Sheet1")
lr = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
x = ws.Range("B2:C" & lr)

For i = 1 To UBound(x, 1)
    If x(i, 1) <> x(i, 2) Then
        ws.Cells.Clear
        Exit For
    End If
Next i
Application.ScreenUpdating = True
End Sub

Open in new window

DeleteData.xlsm
0
 
Avinash SinghAuthor Commented:
Thnx again Neeraj sir thnx for ur great support
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
You're welcome Avinash! Glad I could help.
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.