Delete certain cells of active rowSolved/Closed

Question

Hello,

I would like a code for the following:

Check which row is active/selected and then delete the data which is in the 5th and 7th column of that row.

I've tried the following:

Sub test()
r = ActiveCell.Row
Range(r, 5).ClearContents
Range(r, 7).ClearContents
End Sub

Can someone help me out with this?

Best regards,
Trowa

venkat1926 · Accepted Answer

try 
cells(r,5) and cells(r,7)

tatosgr · Answer

How do you declare r ? Variant? integer? range?

venkat1926 · Answer

[quote]
How do you declare r ? Variant? integer? range?[/quote]

something like this 
dim r as range, j as integer, k as long,m(leave it blank then it is variant)

tatosgr · Answer

Thanks rizvisa1 and venkat1926 .. I'd try both (waiting for errors or bugs :P) .. If I have any doubt, I'll stop by again :) 

Thanks again :)

Delete certain cells of active row

4 replies

Subscribe To Our Newsletter!