• 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.

Automatische rij invoegen bij X en formule overnemen

Status
Niet open voor verdere reacties.

soundguy

Gebruiker
Lid geworden
27 okt 2007
Berichten
167
hallo,

voor een excel zou ik graag willen dat er automatische een rij word ingevoegd op het moment dat er in kolom A een X word gezet.
de rij moet toegeveogd worden onder de rij met de X en de formule uit de bovenliggende rij moet overgenomen worden.

voor het eerste deel heb ik in een oud topic op dit forum het volgende gevonden :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ExSub

i = Cells(Cells.Rows.Count, "G").End(xlUp).Row

    If Not Intersect(Target, Range("G1:G" & i)) Is Nothing Then
        If Target = "Afspraak" Then
            Target.Offset(1, 0).EntireRow.Insert
            Target.Offset(1, -3).Select
        End If
    End If
    
ExSub:
    Exit Sub

End Sub

echter neemt deze niet de formule over...

weet iemand hoe ik dit moet doen ?

mvg,
soundguy
 
neem eens een macro op die een regel invoegt en de regel daarboven copyeerd en er onder plakt enz....
 
..zou ik graag willen dat er automatische een rij word ingevoegd op het moment dat er in kolom A een X word gezet. De rij moet toegevoegd worden onder de rij met de X en de formule uit de bovenliggende rij moet overgenomen worden.
Vreemde gang van zaken vind ik. Als bv. in A4 een X getypt wordt (in A4 kan dan geen formule staan), moet onder A4 een rij toegevoegd worden en daarin moet dan de formule komen die in A3 staat... (??).
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan