Newbie: Multiple Cells Range

[Dan]

My coding takes a row number from the InputBox and calls
it RName. Using this RName (row) I want to select 11 cells
on that row to ClearContents. I keep getting a seperator
error and possibly more once I correct that issue. My
coding is as follows:

Dim RName As Integer

On Error GoTo addError (links at bottom of my code & is ok)

RName = InputBox ("Enter...")
If RName = 6 Then

ActiveSheet.Cells("RName,10:RName,12:RName,14:...... _

RName,30").ClearContents

thanks, Dan

 

[Tom Ogilvy]

Dim RName As Integer

On Error GoTo addError (links at bottom of my code & is ok)

RName = InputBox ("Enter...")
If RName = 6 Then

for i = 10 to 30 step 2
ActiveSheet.Cells(rName,i).ClearContents
Next
end if

 

[Dan]

Thanks Tom, have a good evening. Dan

-----Original Message-----

Dim RName As Integer

On Error GoTo addError (links at bottom of my code & is ok)

RName = InputBox ("Enter...")
If RName = 6 Then

for i = 10 to 30 step 2
ActiveSheet.Cells(rName,i).ClearContents
Next
end if

--
Regards,
Tom Ogilvy




.

 

[Dan]

another question (Everything below has work).

Using RName (as inputed ROW number) how would I check the
contents of column 2 in that row? If the cell is blank
Then or If the cell has a "Y" Then end.

I used this If statement:

If ActiveSheet.Cells("RName,2")<>"" Then
I abort
if the cell is blank then I wany to insert "Y" into cell
("RName,2")


but this is not working. Any suggestions? Thanks.

 

[Tom Ogilvy]

If ActiveSheet.Cells(RName,2)<>"" Then
Exit sub
else
Activesheet.Cells(RName,2).Value = "Y"
End if

when you put "" around Rname, you turn it into the literal string RName
which is meaningless as an argument to cells.

As shown above, the variable Rname is a place holder for the value the
variable holds which is used when the command is executed. this is what you
want.