• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

rij invoegen formules kopieren

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
800
Hallo allemaal

Ik wil graag een rij naar beneden kopieren (via een userform moet het werkblad steeds groter worden)

heb
Code: 
Private Sub CommandButton2_Click()
'Voegt onder de actieve cel een rij in
'en kopieert de formules van die actieve cell
'naar die ingevoegde rij
ActiveCell.Offset(1, 0).EntireRow.Insert
Rows(ActiveCell.Offset(1, 0).Row).FillDown
Application.Goto Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp)
End Sub

wat ik graag zou willen is dat de rij naar beneden gekopieerd wordt (insert row) de waardes uit cel a t/m c (die ik handmatig heb ingevoerd) niet mee kopieren
De formules van D t/m H wel mee kopieren
zodat ik in de eerste 3 cellen data kan invoeren via een userform

----------------------------------------------------------------------------------------

Of mijn vraag zo uitgelegd: ActiveCell.Offset(1, 0).EntireRow.Insert
Rows(ActiveCell.Offset(1, 0).Row).FillDown
en de overgenomen waardes van de bovenstaande rij wissen (cel a t/m c wissen) de rest niet
dit wil ik via een userform gaan invullen

don
 
Laatst bewerkt:
Als activecell in kolom A staat.
Code: 
activecell.offset(1).resize(,3).clearcontents
 
Code: 
Private Sub CommandButton1_Click()
Dim r As Integer
r = ActiveCell.Row + 1
Rows(r).Insert
Range(Cells(r, 4), Cells(r, 8)).FillDown
Application.Goto Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp)
End Sub
 
@Don,
Let er op dat ik commandbutton1 heb gebruikt in plaats van 2.
 
zapatr, had ik gezien
beide oplossingen werken perfect, bedankt maar weer eens een keer

Don
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan