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

 

[Fluff]

Hi & welcome to MrExcel.
It needs to be like

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]

If you have the "THEN" portion of the "IF...THEN" on the same line as the "IF", then you do not use an "END IF" statement.
You only use that if your "IF...THEN" covers more than one line (i.e. the "THEN" portion is on the next row, not the same row as the "IF").

 

[BenGrobler]

What if the code
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
Has the value change 65 times?
So a4.value =“3426”
How would i write that code to make it work correctly ?

Thank you for assistance

 

[BenGrobler]

What if the code
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
Has the value change 65 times?
So a4.value =“3426”
How would i write that code to make it work correctly ?

Thank you for assistance

So if i work on the sheet and i enter a value in a4 the code has to copy that and paste it in the correct cell on the next sheet ?

 

[BenGrobler]

So if i work on the sheet and i enter a value in a4 the code has to copy that and paste it in the correct cell on the next sheet ?

The paste value on the next sheet trend will change to the cell next to that number 3624

 

[BenGrobler]

Here is the code I am struggeling with please assist me
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
If Range("a4").Value = "903" Then
Range("C4").Select
Selection.Copy
Sheets("Trend").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

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

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

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

Please assist in this, the value a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, and a16 changes 65 times with different numbers.

 

[Fluff]

As this is a totally different question, you will need to start a new thread. Thanks

 

[Jimmypop]

Hi & welcome to MrExcel.
It needs to be like

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

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?

 

[RoryA]

Don't really need any selecting at all:

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