If then statement with two true conditions

[Guest]

Hi everybody,
I'm trying to make this work without too much success. Is there any other
way to do it?

If ActiveCell.Ofsset(0, 0).Value <> "Li" <> "Sc" <> "Rh" <> "Ho" <> "Kr" And
ActiveCell.Ofsset(0, 2).Value > "0" Then

Range("E82", "F82").Copy Destination:=ActiveCell.Offset(0, 3)
End If

Any help would be appreciated

 

[Don Guillett]

try this instead. You must have each condition specified and properly spell
offset.

If ActiveCell <> "Li" and activecell <> "Sc" and _
activecell <> "Rh" and activecell <> "Ho" and _
activecell <> "Kr" and ActiveCell.Offset(0, 2)>0 Then
Range("E82", "F82").Copy Destination:=ActiveCell.Offset(0, 3)
End If

 

[Guest]

Don,
Thank you Thank you Thank you
Just what I was looking for.
Thanks for your fast answer!

gaba

 

[Bob Phillips]

With ActiveCell
If (.Value <> "Li" And .Value <> "Sc" And .Value <> "Rh" And _
.Value <> "Ho" And .Value <> "Kr" And .Offset(0, 2).Value > 0)
Then
Range("E82", "F82").Copy .Offset(0, 3)
End If
End With

 

[Don Guillett]

glad to help