Column Clearing Coding

[3d4d5c]

Good Day people,

I was practicing some VBA questions and had hit a roadblock in the coding.
The question was asking me to calculate distance between two points. My Goal was to clear the previously obtained value.
However, the whole excel sheet got cleared.

Here's the coding

If (Range("A2") <> "" and Range("B2" ="") then
Range("A2").clear
ElseIf (Range("A2") <> "" and range("B2" <> "") then
Selection.end(xlToRight).select: CNo=Activecell.column
Range("A2", cells(2, CNo)).clear
End If

Can Someone help me?

 

[KennyGreens]

Hi there, first thing is on the first line it should be Range("B2") = "". Same with your second if statement, it needs to be Range("B2") <> "".

What cell did you have selected while running this? Your code is saying if A2 isn't blank and if B2 isn't blank, clear the range of A2 to whatever your last column is through row 2. If you only have data in row 2, that would be why it's all being cleared.

 

[3d4d5c]

Hi there, first thing is on the first line it should be Range("B2") = "". Same with your second if statement, it needs to be Range("B2") <> "".

What cell did you have selected while running this? Your code is saying if A2 isn't blank and if B2 isn't blank, clear the range of A2 to whatever your last column is through row 2. If you only have data in row 2, that would be why it's all being cleared.

OMG Thank you so much. I did not realise that mistake. Thank You!

 

[KennyGreens]

No problem, happy I could help.