Ik heb in een excel werkblad een planning gemaakt. De cellen zijn met voorwaardelijke opmaak en opmaak voorzien van de benodigde kleuren welke wijzigen a.d.h.v. de ingevulde waarde.
Nu wil ik met een macroknop een blanco regel toevoegen. Hiervoor heb ik onderaan het document een blanco regel (met opmaak) geplaatst en deze selecte van cellen de naam "Blanco_Projectregels" gegeven, zodat ik deze met een verwijzing kan selecteren.
Echter het invoegen gebeurt niet op de manier zoals ik zou willen.
Ik wil op de regel in de planning gaan staan waar deze tussen moet komen.
Ik heb in de macro vastgelegd dat deze cel de tijdelijke naam krijgt "Temp", zodat je hier na het selecteren van de gekopieerde regels eenvoudig naar teug kan verwijzen. De macro houdt echter het regelnummer van de macroopname vast.
Zie hieronder:
' Kopie_Projectregels_Blanco Macro
'
ActiveWorkbook.Names.Add Name:="Temp", RefersToR1C1:="=werkplanning!R129C1"
Application.Goto Reference:="Blanco_Projectregels"
Selection.Copy
Application.Goto Reference:="Temp"
Rows("129:129").Select
Application.Goto Reference:="Temp"
ActiveWindow.SmallScroll Down:=-6
Selection.Insert Shift:=xlDown
Range("A129").Select
Application.CutCopyMode = False
ActiveWorkbook.Names("Temp").Delete
End Sub
Nu wil ik met een macroknop een blanco regel toevoegen. Hiervoor heb ik onderaan het document een blanco regel (met opmaak) geplaatst en deze selecte van cellen de naam "Blanco_Projectregels" gegeven, zodat ik deze met een verwijzing kan selecteren.
Echter het invoegen gebeurt niet op de manier zoals ik zou willen.
Ik wil op de regel in de planning gaan staan waar deze tussen moet komen.
Ik heb in de macro vastgelegd dat deze cel de tijdelijke naam krijgt "Temp", zodat je hier na het selecteren van de gekopieerde regels eenvoudig naar teug kan verwijzen. De macro houdt echter het regelnummer van de macroopname vast.
Zie hieronder:
' Kopie_Projectregels_Blanco Macro
'
ActiveWorkbook.Names.Add Name:="Temp", RefersToR1C1:="=werkplanning!R129C1"
Application.Goto Reference:="Blanco_Projectregels"
Selection.Copy
Application.Goto Reference:="Temp"
Rows("129:129").Select
Application.Goto Reference:="Temp"
ActiveWindow.SmallScroll Down:=-6
Selection.Insert Shift:=xlDown
Range("A129").Select
Application.CutCopyMode = False
ActiveWorkbook.Names("Temp").Delete
End Sub