end if with blocked if

[BenGrobler]

Please help me with this code i am new to this and I am trying to do this on my own to no avail.
here is my code that will not work please asist

If Range("a4").Value = "902" Then Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

 

[Joe4]

Hi @Fluff

Quick question... I know thread is answered but should the line

Range("C4").Select

after

Sheets("Trend").Select

not be like

ActiveSheet.Range("C4").Select

to prevent a run-time error?

I don't think so.

If you leave off the sheet reference, "ActiveSheet" is implied/assumed.
If you have multiple sheets and really want to error proof, use the actual sheet name in the reference, and not ActiveSheet.

 

[RoryA]

If you leave off the sheet reference, "ActiveSheet" is implied/assumed.

Depends where the code is - if it's in a worksheet module, it would cause an error as you'd be trying to select a range on a sheet that wasn't active any longer.

 

[Joe4]

Depends where the code is - if it's in a worksheet module, it would cause an error as you'd be trying to select a range on a sheet that wasn't active any longer.

Good point. Thanks for the clarification.

 

[BenGrobler]

Don't really need any selecting at all:

If Range("a4").Value = "902" Then
    Sheets("Trend").Range("C4").Value = Range("C4").Value
End If

Hi There

I like your code its nice and simple but i have an issue

As soon as you put more than one number in to copy and paste it only copies one?

Any ideas?

See code
If Range("a4").Value = "902" Then
Sheets("Trend").Range("C4").Value = Range("C4").Value
End If

 

[BenGrobler]

I am sorry i am
An idiot. Your code works perfect. Thank you for taking the time to show this code. I am new to this and are trying to something unique. Thank you again your code is working perfectly.