Hello everyone,
I need some help to make a new macro.
Atm i have it setup to press a cell that he creat a copy of the template and it give it a new name.
Only what i really want is that he also make a new Hyperlink and put it in a new cel.
So basicly if i make a copy of the template the name will appear in cell c3, if c3 is full it will make automaticly it in cell c4 if that is full it go to c5 etc etc.
It should take the new template name and make straight a hyperlink on it to that cell.
What i do now is :
Sub NieuweEvenement()
'Popup invoerveld voor Evenement
Evenement = InputBox("Wat is de Evenement van de klant?")
'Stop wanneer Evenement leeg is of op Cancel wordt gedrukt
If Evenement = "" Then Exit Sub
'Kopieer Template sheet, en hernoem naar de Evenement
Sheets("Template Events").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Evenement
'Selecteer nieuwe sheet
Sheets(Evenement).Select
End Sub
in the tab i have this to open the macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("L4:O5")) Is Nothing Then
Call NieuweEvenement
End If
End Sub
now it make's a copy of my template but it do not add in a cell or make a hyperlink.
Anyone can help me whit this?
THanks allot
I need some help to make a new macro.
Atm i have it setup to press a cell that he creat a copy of the template and it give it a new name.
Only what i really want is that he also make a new Hyperlink and put it in a new cel.
So basicly if i make a copy of the template the name will appear in cell c3, if c3 is full it will make automaticly it in cell c4 if that is full it go to c5 etc etc.
It should take the new template name and make straight a hyperlink on it to that cell.
What i do now is :
Sub NieuweEvenement()
'Popup invoerveld voor Evenement
Evenement = InputBox("Wat is de Evenement van de klant?")
'Stop wanneer Evenement leeg is of op Cancel wordt gedrukt
If Evenement = "" Then Exit Sub
'Kopieer Template sheet, en hernoem naar de Evenement
Sheets("Template Events").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Evenement
'Selecteer nieuwe sheet
Sheets(Evenement).Select
End Sub
in the tab i have this to open the macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("L4:O5")) Is Nothing Then
Call NieuweEvenement
End If
End Sub
now it make's a copy of my template but it do not add in a cell or make a hyperlink.
Anyone can help me whit this?
THanks allot