In een macro toevoegen dat er een hyperlink moet worden aangemaakt.

[davylenders123]

Heb een bestand met een werkblad index en een werkblad blanco.
In het werkblad blanco staat een buton en als je daar op klikt dan krijg je een pop up waar je een naam
ingeeft en dan wordt er een werkblad met die naam bij aangemaakt.

Het werkblad index daar moeten eigenlijk in kolom a vanaf rij 2 een hyperlink komen naar elk werkblad behalve naar index en blanco.
Kan er aan de code van de button op werkblad blanco iets toegevoeg worden waardoor er op het werkblad index ook een hyperlink wordt gemaakt naar het nieuw aangemaakte werkblad ?

Sub Nieuwe_Aanmaken()
'
'
' De macro is opgenomen op 3-10-2014 door Lenders, Davy.
'

'
Dim Bladnaam As String

While Bladnaam = ""
Bladnaam = InputBox("Bladnaam: ", "Bladnaam")
Wend

If Not Evaluate("isref(" & Bladnaam & "!A1)") Then
Sheets("Blanco").Copy , Sheets(3)
With ActiveSheet
.Unprotect
.Shapes("Button 1").Delete
.Name = Bladnaam
.[B1] = Bladnaam
End With
Else
MsgBox "Bladnaam bestaat reeds"
End If
Range("F1").Select
End Sub


Bekijk bijlage personeel fiche magazijn.xls

 

[edmoor]

Kijk eens in het menu Invoegen naar Hyperlink, Plaats in dit document.
Dat kun je opnemen en die code in je routine gebruiken.

 

[OctaFish]

En graag je codevoorbeeld opmaken met de CODE knop. Zou je na 4 jaar en 550+ berichtjes moeten weten

 

[davylenders123]

Edmoor

Met opnemen was ik al bezig geweest maar kom niet verder dan

Sheets("Index").Select
    Range("A3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "pol!A1", TextToDisplay:="pol"

Nu zet hij een hyperlink met de naam pol in cel A3 op index .
Dit elke keer opnieuw wanneer ik een werkblad invoeg zelfde naam zelfde plaats.
Heb dit onderaan geplakt en werkte wel maar dat is niet wat het zou moeten zijn.

Het zou moeten zijn dat hij in het blad index steeds de volgende lege cel neemt in kolom a.
En de naam van het pas aangemaakte werkblad.
Maar weet niet hoe ik dat in een code moet ingeven.

OctaFish weet dat dit normaal moet.
Ik had het ook gedaan maar bij het opslaan zag ik dat het toch niet gelukt was.
Wou het nog wijzigen maar kon niet vinden hoe vond de code knop niet terug.

 

[edmoor]

Een opname is precies wat het zegt, een opname van wat je op dat moment hebt gedaan. De truuk daarna is de opgenomen code dusdanig flexibel maken dat je hem in je eigen code zo kunt gebruiken dat de tekst en plek waar hij komt te staan afhankelijk is van de opgegeven naam van het nieuwe blad.

 

[edmoor]

Je code in codetags opmaken is niet zo moeilijk. Tik het volgende:
[ CODE]
je code
[ /CODE]

Maar dan zonder de spaties achter het [ teken.

 

[snb]

Maar het blijft natuurlijk wel vreemd dat we van eenieder vragen code tags te gebruiken, maar dat eenvoudige icoontjes om dat te doen in alle edit schermen, behlave 'geavanceerd' ontbreken....
Dat geldt natturlijk ook voor het toevoegen van bijlagen.

Iets voor de administrator ?

 

[edmoor]

Daar heb je gelijk in en zou een verbetering van de interface zijn.