Beste forumleden,
Middels de volgende code kan ik een formule met hyperlink doorkopieren naar verschillende tabbladen in een exel file.
Dit gebeurd allemaal netjes voor de gehele kolom AE waar ook de betreffende link moet worden toegepast.
Nu wil ik aanvullend op deze code nog een aantal formules doorvoeren.
Bijv.
=VERT.ZOEKEN(A2;'C:\test\[test1.0.xlsm]test!$K:$M;2;ONWAAR)
In kolom Z
=VERT.ZOEKEN(A2;'C:\test\[test2.0.xlsm]test!2!$K:$M;3;ONWAAR)
In kolom AA
=VERT.ZOEKEN A2;'C:\test\[test3.0.xlsm]test!3!$K:$L;2;ONWAAR)
In kolom AB
=VERT.ZOEKEN(A2; A2;'C:\test\[test4.0.xlsm]test4!$E:$G;3;ONWAAR)
In kolom AC
=ALS(ISFOUT(Z2)=WAAR;VERT.ZOEKEN(AC3;hulpl!$H:$O;8;ONWAAR);" ")
In kolom AD
Los ervan of de directory van de link werkt of niet, deze kan ik zelf simpel aanpassen wil ik deze formules opnemen in de bovenstaande code.
Wie kan mij helpen?
Middels de volgende code kan ik een formule met hyperlink doorkopieren naar verschillende tabbladen in een exel file.
Dit gebeurd allemaal netjes voor de gehele kolom AE waar ook de betreffende link moet worden toegepast.
PHP:
Dim Hrm As Long
For HrmOverig = 5 To 9
With Sheets("HRM")
.Range("AE2:AE" & Application.Max(2, .Cells(.Rows.Count, 15).End(xlUp).Row)) = "=IF(O2>0,HYPERLINK(HYPERLINK((""https://portal.hrm/files"")&""/""&LEFT(TEXT(VALUE(O2),""00000000""),2)&""/""&RIGHT(VALUE(O2),1)&""/""&REPT(""0"",8-LEN(VALUE(O2)))&(VALUE(O2)&"".tif"")),O2),"""")"
End With
NextNu wil ik aanvullend op deze code nog een aantal formules doorvoeren.
Bijv.
=VERT.ZOEKEN(A2;'C:\test\[test1.0.xlsm]test!$K:$M;2;ONWAAR)
In kolom Z
=VERT.ZOEKEN(A2;'C:\test\[test2.0.xlsm]test!2!$K:$M;3;ONWAAR)
In kolom AA
=VERT.ZOEKEN A2;'C:\test\[test3.0.xlsm]test!3!$K:$L;2;ONWAAR)
In kolom AB
=VERT.ZOEKEN(A2; A2;'C:\test\[test4.0.xlsm]test4!$E:$G;3;ONWAAR)
In kolom AC
=ALS(ISFOUT(Z2)=WAAR;VERT.ZOEKEN(AC3;hulpl!$H:$O;8;ONWAAR);" ")
In kolom AD
Los ervan of de directory van de link werkt of niet, deze kan ik zelf simpel aanpassen wil ik deze formules opnemen in de bovenstaande code.
Wie kan mij helpen?
opgelost!
