Goedenavond,
Ik heb een Excel gemaakt waarin orders ingevoerd gaan worden. Elke order bestaat uit een aantal productregels en onderaan het totaal (zie bijgaand een voorbeeld). Nu wil ik dat gebruikers van de sheet zelf een nieuwe productregel toe kunnen voegen door middel van een macro. Deze nieuwe productregel moet komen boven de "totaalregel" en de bovenliggende productregel kopiëren.
Onderstaand hetgeen ik reeds gevonden heb om mijn probleem op te lossen:
- zoek regel Totaal 2017 op en voeg een nieuwe regel in:
- Daarnaast heb ik een regel gevonden die een regel kopieert.
. Ik krijg het alleen niet voor elkaar om beide macro's samen te voegen en om het tweede macro het gekopieerde bereik in de nieuw gegenereerde regel te plaatsen. Kan iemand mij hiermee op de juiste weg helpen?
Met vriendelijke groet!
Ik heb een Excel gemaakt waarin orders ingevoerd gaan worden. Elke order bestaat uit een aantal productregels en onderaan het totaal (zie bijgaand een voorbeeld). Nu wil ik dat gebruikers van de sheet zelf een nieuwe productregel toe kunnen voegen door middel van een macro. Deze nieuwe productregel moet komen boven de "totaalregel" en de bovenliggende productregel kopiëren.
Onderstaand hetgeen ik reeds gevonden heb om mijn probleem op te lossen:
- zoek regel Totaal 2017 op en voeg een nieuwe regel in:
Code:
Sub invoegenenkopieren()
Dim Lst As Long, n As Long
Lst = Range("A" & Rows.Count).End(xlUp).Row
For n = Lst To 1 Step -1
With Range("a" & n)
If .Value = "Totaal 2017" Then
.Offset(1).EntireRow.Insert
.EntireRow.Insert
End If
End With
Next n
End Sub
- Daarnaast heb ik een regel gevonden die een regel kopieert.
Code:
.Range("a2:f2").Copy Range("a65536").End(xlUp).Offset(1, 0)
Met vriendelijke groet!