vba code doesn't work; same code works as a macro

[Mart van Hulten]

<code>
Sheets(studentBlad).Select
ActiveSheet.Cells(3, kolom).Select
ActiveCell.FormulaR1C1 = "='" + naamSp + "'!RC[1]"
ActiveSheet.Cells(3, kolom).Select
Range(Cells(3, kolom), Cells(10, kolom)).FillDown
</code>
The above does what it's supposed to do when I use this in a macro, but as part of seperate vba-code, it doesnt do anything. Don't understand why.
studentBlad is a string, containing the name of a worksheet. So is naamSp
kolom is an integer (value = 77)
I am trying to copy a formula from 'naamSp'! to studentBlad

 

[DataBlake]

<code>
</code>but as part of seperate vba-code, it doesnt do anything. Don't understand why.

did you define the variables?
things like naamSp, kolom, etc need to be defined.

 

[DanteAmor]

You can put your complete code here.
What do you have in the variable naamSp?


Do you want to copy the formula or take the value?

 

[Mart van Hulten]

Yes,
I did

 

[Mart van Hulten]

I want to copy the formula.
In the menatime I changed the code in VBA as follows:
<code>
Sheets(studentBlad).Select
For i = 3 To (2 + aantalStudenten)
ActiveSheet.Cells(i, kolom).Select
ActiveCell.FormulaR1C1 = "='" + naamSp + "'!RC[1]"
Next i
</code>
And it does what it's supposed to do...

 

[DanteAmor]

I want to copy the formula.
In the menatime I changed the code in VBA as follows:
<code>
Sheets(studentBlad).Select
For i = 3 To (2 + aantalStudenten)
ActiveSheet.Cells(i, kolom).Select
ActiveCell.FormulaR1C1 = "='" + naamSp + "'!RC[1]"
Next i
</code>
And it does what it's supposed to do...

So it works already?

 

[Mart van Hulten]

Indeed, this way it's working. Still I don't understand why it doesn't work the other way...

 

[DanteAmor]

Indeed, this way it's working. Still I don't understand why it doesn't work the other way...

In my tests the 2 ways worked.
Well, the important thing is that you already have an option working for you.