Formule doorvoeren

[Dappre]

Beste forumleden,

Wie kan mij helpen met de volgende code:

Sub Formule_copy()
'
' Formule_copy Macro
'
'
 
Range("AE").FormulaR1C1 = "=IF(O2>0;HYPERLINK(HYPERLINK(("http://portal/info.nl")&"/"&LINKS(TEKST(WAARDE(O3);"00000000");2)&"/"&RECHTS(WAARDE(O3);1)&"/"&HERHALING("0";8-LENGTE(WAARDE(O3)))&(WAARDE(O3)&".tif"));O3);"")"
 
End Sub

Ik wil graag in kolom "AE" een formule doorvoeren die begint vanaf AE2 en eindigt tot de laatste waarde.

Alvast bedankt voor een reactie.

Uitgaande dat de interne link uiteraard functioneert.

 

[HSV]

Of de Hyperlink doet wat het moet doen weet ik niet.

Range("AE2:AE" & Application.Max(2, Cells(Rows.Count, 15).End(xlUp).Row)) = "=IF(O2>0,HYPERLINK(HYPERLINK((""http://portal/info.nl"")&""/""&LEFT(TEXT(VALUE(O3),""00000000""),2)&""/""&RIGHT(VALUE(O3),1)&""/""&REPT(""0"",8-LEN(VALUE(O3)))&(VALUE(O3)&"".tif"")),O3),"""")"

 

[Dappre]

Bedankt! Dit werkt prima, en welke code moet ik hier aan toevoegen om deze over diverse tabbladen te gebruiken?
De volgende selecteert enkel de bladen maar kopiert helaas de formule niet door.

Sheets(Array("blad1", "blad2", "blad3")).Select
Range("AE2:AE" & Application.Max(2, Cells(Rows.Count, 15).End(xlUp).Row)) = "=IF(O2>0,HYPERLINK(HYPERLINK((""http://portal/info.nl"")&""/""&LEFT(TEXT(VALUE(O3),""00000000""),2)&""/""&RIGHT(VALUE(O3),1)&""/""&REPT(""0"",8-LEN(VALUE(O3)))&(VALUE(O3)&"".tif"")),O2),"""")"

Alvast bedankt.

 

[jkpieterse]

Bijvoorbeeld:

Dim lCt As Long
For lCt = 1 to 3
With Sheets("blad" & lCt)
.Range("AE2:AE" & Application.Max(2, .Cells(.Rows.Count, 15).End(xlUp).Row)) = "=IF(O2>0,HYPERLINK(HYPERLINK((""http://portal/info.nl"")&""/""&LEFT(TEXT(VALUE(O3),""00000000""),2)&""/""&RIGHT(VALUE(O3),1)&""/""&REPT(""0"",8-LEN(VALUE(O3)))&(VALUE(O3)&"".tif"")),O2),"""")"
End With
Next

Let op de punten die ik voor range en Cells heb gezet!!!

 

[Dappre]

Bedankt voor de snelle hulp!