Offset question

[Patrick Simonds]

I want this code to function on the current position, 13th column

So if I am in A1 it should be looking at M1

If ActiveSheet.Range(1, 13) = "" Then
OptNoL.Value = True
ElseIf ActiveSheet.Range(1, 13) = 30 Then
opt30L.Value = True
ElseIf ActiveSheet.Range(1, 13) = 60 Then
opt60l.Value = True

[Leith Ross]

HI,

Change your statement From:

ActiveSheet.Range(1, 13).Value

To this:

ActiveSheet.Cells(1, 13).Value

Hope this helps,
Leith Ross

[swisse]

Patrick,
Use Cells():
If Cells(1, 13).Value = "" Then
OptNoL.Value = True
ElseIf Cells(1, 13).Value = 30 Then
opt30L.Value = Tue
ElseIf Cells(1, 13).Value = 60 Then
opt60l.Value = True
End If

Swisse

[mangesh_yadav]

The OP's requirement looks quite vague. Maybe he needs something like:

If ActiveSheet.Cells(1, ActiveCell.column+13) = "" Then
OptNoL.Value = True
ElseIf ActiveSheet.Cells(1, ActiveCell.column+13) = 30 Then
opt30L.Value = True
ElseIf ActiveSheet.Cells(1, ActiveCell.column+13) = 60 Then
opt60l.Value = True


- Mangesh

[Norman Jones]

H Patrick.

Try:

With ActiveCell.Offset(0,12)
If .Value = "" Then
OptNoL.Value = True
ElseIf .Value = 30 Then
opt30L.Value = True
ElseIf .Value = 60 Then
opt60l.Value = True
Else
'Leave unchanged '<<===== ???
End If
End With


(Note that Range("A1").Offset(1,13) returns the N2 cell)


---
Regards,
Norman



"Patrick Simonds" <[email protected]> wrote in message
news:[email protected]...
>I want this code to function on the current position, 13th column
>
> So if I am in A1 it should be looking at M1
>
> If ActiveSheet.Range(1, 13) = "" Then
> OptNoL.Value = True
> ElseIf ActiveSheet.Range(1, 13) = 30 Then
> opt30L.Value = True
> ElseIf ActiveSheet.Range(1, 13) = 60 Then
> opt60l.Value = True
>

[mangesh_yadav]

Oops mistake. Thanks Norman. Thus the solution I proposed changes to:

If ActiveSheet.Cells(1, ActiveCell.column+12) = "" Then
OptNoL.Value = True
ElseIf ActiveSheet.Cells(1, ActiveCell.column+12) = 30 Then
opt30L.Value = True
ElseIf ActiveSheet.Cells(1, ActiveCell.column+12) = 60 Then
opt60l.Value = True

13 is replaced by 12.


- Mangesh