HenkBakker
Gebruiker
- Lid geworden
- 9 nov 2006
- Berichten
- 164
In ons factuuroverzicht moet ruimte worden gemaakt voor nieuw facturen (die zijn al aangemaakt).
Hiervoor heb ik al geprobeerd een Macro op te nemen. Die werkt op zich wel; maar slechts voor één nieuwe regel...
In de bijlage het factuuroverzicht: Bekijk bijlage factuuroverzicht.xlsx
(Vanwege privacy-redenen heb ik rijen 4 t/m 42 tijdelijk gewist.)
Code:
Hoe kan ik nu 'programmeren' dat een volgende regel wordt gekopieerd (want als ik nu de macro nogmaals uitvoer, wordt wederom rij 94 gekopieerd) rij 95 dus. Ik zoek dus iets als een teller: Rows("94:94")+1 dat resulteert in Rows("95:95").
Hetzelfde voor de ophoging van het factuurnummer in de Hyperlink. Dus iets als '2018-71406'+1 dat resulteert in de volgende factuur '2018-71407'.
Voor het wijzigen van de links in kolommen D t/m K heb ik een formule in A96 gezet, die nadat de macro weer wordt uitgevoerd in A97 staat.
Hiervoor heb ik al geprobeerd een Macro op te nemen. Die werkt op zich wel; maar slechts voor één nieuwe regel...
In de bijlage het factuuroverzicht: Bekijk bijlage factuuroverzicht.xlsx
(Vanwege privacy-redenen heb ik rijen 4 t/m 42 tijdelijk gewist.)
Code:
Code:
Sub nieuwe_regel_in_factuuroverzicht()
'
' nieuwe_regel_in_factuuroverzicht Macro
'
' Sneltoets: Ctrl+b
'
Rows("94:94").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B95").Select
Application.CutCopyMode = False
Selection.Hyperlinks(1).Address = "2018\2018-71406.xlsm"
Selection.Hyperlinks(1).TextToDisplay = "2018-71406"
Rows("95:95").Select
Selection.Replace What:="2018-71405", Replacement:="2018-71406", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Rows("94:94").Select
End Sub
Hoe kan ik nu 'programmeren' dat een volgende regel wordt gekopieerd (want als ik nu de macro nogmaals uitvoer, wordt wederom rij 94 gekopieerd) rij 95 dus. Ik zoek dus iets als een teller: Rows("94:94")+1 dat resulteert in Rows("95:95").
Hetzelfde voor de ophoging van het factuurnummer in de Hyperlink. Dus iets als '2018-71406'+1 dat resulteert in de volgende factuur '2018-71407'.
Voor het wijzigen van de links in kolommen D t/m K heb ik een formule in A96 gezet, die nadat de macro weer wordt uitgevoerd in A97 staat.