Hyperlink intergreren aan een actielijst

[MMV]

Beste Forumleden,


Als bijlage vinden jullie een voorbeeld bestandje.

Doel van de macro: hyperlink mogelijk maken in de actielijst.

Hoe?
- actielijst heb ik gekoppeld met een database
- ik maak een copy van de actielijst omdat advanced filter niet werkt als de lijst gekoppeld is
- ik voeg de hyperlink functie in
- ik verander de opmaak
- ik gebruik advanced filter om de actielijsten te genereren.

Wat gaat er niet goed:
- macro loopt niet door, terwijl ik bepaalde stukken heb opgenomen met de recorder.
- excel loopt soms vast , tewijl de basis van de macro , mijns inzien wel solide is.

Door deze twee punten ben ik bang dat ik iets niet goed doe.
Zou iemand hier wat zinnigs over kunnen zeggen?

 

[robdgr]

Zou iemand hier wat zinnigs over kunnen zeggen?

Je bijlage geeft een storing

 

[MMV]

Nogmaals een poging. Hier opent hij namelijk het bestand wel.

 

[MMV]

Niemand die hier wat zinnings over kan zeggen?

 

[snb]

Vermijd select en activate in VBA-code

Kijk eerst eens wat deze code doet, en hoeveel van jouw code daarmee wordt vervangen:

Sub Actielijst_genereren()
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
    
  With Sheets("Copy Actionlist")
    .UsedRange.ClearContents
    [Actionlist!A1:AB10001].Copy .[A1]
    .Columns("I:J").Insert
    .Range("I:J").NumberFormat = "General"
    .[I1:J1] = split("Hyperlink|Referentie","|")
    .Hyperlinks.Add .[I2:I2001], "http://www.test.nl"
  End With
End Sub

 

[MMV]

Zo ik sta hier van te kijken, wel erg gaaf. Ik ga hier vanavond mee aan de slag. Mocht ik er niet uitkomen horen jullie het!

 

[MMV]

OK ik ben ermee aan de slag gegaan. Ik loop nu tegen een probleem aan dat ik bepaalde kolommen niet kan verwijderen. Welliswaar wel handmatig, maar nu nog in de macro. Onderstaande code zou moeten werken maar doet dat dus niet.

Wat doe ik fout?

Sub forum()
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
    
  With Sheets("Copy Actionlist")
    .UsedRange.ClearContents
    [Actionlist!A1:AB10001].Copy .[A1]
    .Columns("I:J").Insert
    .Range("I:J").NumberFormat = "General"
    .[I1:J1] = Split("Hyperlink|Referentie", "|")
    .Hyperlinks.Add .[I2:I2001], "http://www.test.nl"
    .Range("J2").FormulaLocal = "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"
    .Range("J2").Copy Sheets("Copy Actionlist").Range("J3:J2001")
    .Application.CutCopyMode = False
   [COLOR="Red"] .Range("A:A,C:C,E:E,F:F,N:N,T:T,V:V,W:W,X:X,AD:AD").Delete[/COLOR]    
    
   
  End With

 
End Sub

 

[snb]

Sub forum()
  Application.ScreenUpdating = False
    
  With Sheets("Copy Actionlist")
    .UsedRange.ClearContents
    [Actionlist!A1:AB10001].Copy .[A1]
    .Columns("I:J").Insert
    .Range("I:J").NumberFormat = "General"
    .[I1:J1] = Split("Hyperlink|Referentie", "|")
    .Hyperlinks.Add .[I2:I2001], "http://www.test.nl"
 [COLOR="Blue"]   .[J2].FormulaLocal = "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"
    .[J2:J2001].FillDown
    .Range("A:A,C:C,E:F,N:N,T:T,V:X,AD:AD").entirecolumn.Delete[/COLOR]
  End With
End Sub

Application.cutcopymode=false is overbodig, evenals enableevents=false

 

[MMV]

Bedankt voor je snelle reactie, ik merk dat ik op VBA gebied nog een hoop moet leren. Ik probeer veel te ondervangen middels de macro recorder. Zoals ook wel bleek ;-).

Ik probeerde zojuist het deleten van de geselecteerde kolommen, helaas loopt hij hier steeds op vast (zie rode gedeelte)......ik snap nog steeds niet waarom? Zou iemand kunnen testen of dit bij jullie ook zo is?

Sub forum()
  Application.ScreenUpdating = False
    
  With Sheets("Copy Actionlist")
    .UsedRange.ClearContents
    [Actionlist!A1:AB10001].Copy .[A1]
    .Columns("I:J").Insert
    .Range("I:J").NumberFormat = "General"
    .[I1:J1] = Split("Hyperlink|Referentie", "|")
    .Hyperlinks.Add .[I2:I2001], "http://www.test.nl"
    .[J2].FormulaLocal = "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"
    .[J2:J2001].FillDown
    [COLOR="Red"].Range("A:A,C:C,E:F,N:N,T:T,V:X,AD:AD").entirecolumn.Delete[/COLOR]  End With
End Sub

 

[snb]

Zet End With op de volgende regel.

 

[MMV]

End With staat bij mij al op de volgende regel.

Bij het kopieren/plakken is er iets niet helemaal goed gegaan.

Feit blijft, de macro loopt vast op het moment dat er kolommen verwijdert dienen te worden.

 

[MMV]

To snb: ik kom er zojuist achter dat het commando "Fill.down" niet werkt. De formule hyperlink incl vervang functie neemt de link naar een website niet goed mee. En is dus ook niet te benaderen op deze manier.