Set cell not showing value

[ThomasOES]

I want to show c.Value in the set Range elrepcol.
elrepcol remains blank.
How to show c.Value in the cell?

[FONT=Verdana]For Each c In ActiveSheet.Range(("D131"), _
        Range("D131").Offset(, 40).End(xlToLeft)) _
        .Cells
Set elrepcol = Range("AK1").End(xlToLeft).Offset(, 1)
elrepcol = c.Value[/FONT]

 

[Fluff]

What exactly are you trying to accomplish?

 

[ThomasOES]

There's actually a lot of code between the For and set statements.
I need to label a column of data the value in the original range.
the elrepcol is shorthand for element report column.
Beneath that label will be several rows of concentrations of an element.

I'll use elrepcol as a reference point to fill cells below with data.

It will look like

Al
0.25
0.52
0.35

 

[Fluff]

I'm non the wiser, are you trying to put the values from row 131 in row 1?
Please remember that I cannot see what data looks like and have no idea what you are trying to do with it.

 

[ThomasOES]

The code below is working, but its a bit crude

[FONT=Verdana]Set elrepcol = Range("AK1").End(xlToLeft).Offset(, 1)
elrepcol.Select
ActiveCell.Value = c.Value[/FONT]

If I could simply use

[LEFT][COLOR=#222222][FONT=Verdana]elrepcol.value = c.value[/FONT][/COLOR][/LEFT]

would be perfect, but it returns error

 

[Fluff]

What is the error message & number?

 

[ThomasOES]

I retyped it and its working. Must've had a typo.
Thanks mvp

 

[Fluff]

Glad you fixed it & thanks for the feedback