Opgelost Regel toevoegen en bepaalde inhoud cel meenemen

[Tweety1]

Ik ben opzoek naar een VBA die het volgende doet.
Veranderd in kolom "E" de waarde dan wil ik een regel daarboven toevoegen.
De toegevoegde regel dient de waarde uit kolom "C" en "D" mee te nemen.
De waarde die in Kolom "E" staat dient geplaatst te worden in kolom "F"

mvg
Kasper

 

[snb]

In kolom 'E' verandert hier alleen met een t.

 

[Tweety1]

In kolom 'E' verandert hier alleen met een t.

Sorry voor typefout

 

[cow18]

Sub Invoegen()
     Dim r, c, c1

     Application.ScreenUpdating = False
     Sheets("data").Copy after:=Sheets(Sheets.Count)
     With ActiveSheet
          If .AutoFilterMode Then .AutoFilterMode = fals
          If .FilterMode Then .ShowAllData

          r = .Range("E" & Rows.Count).End(xlUp).Row
          For i = r To 2 Step -1
               If .Cells(i, "E").Value <> .Cells(i - 1, "E").Value And .Cells(i, "E").Value <> "" Then
                    Set c1 = .Cells(i - 1, "E")
                    c1.Offset(1).EntireRow.Insert
                    With c1.Offset(1, -2).Resize(, 5)
                         .Value = .Offset(1).Value
                    End With
                    c1.Cells(2, 2).Value = c1.Cells(3, 1).Value
                    c1.Offset(1).ClearContents
                    i = i - 1
               End If
          Next
     End With
     Application.ScreenUpdating = True

End Sub

de 1e regel maakt nog een kopie van "Data", straks schrap je die en werk j direct op "data"

 

[Tweety1]

Thanks

 

[Tweety1]

VBA werkt goed alleen gaat het fout als er maar 1x waarde voorkomt (in geel aangeven).
De regels boven en onder de waarde zijn namelijk niet gelijk.
Hij neemt daardoor de verkeerde waarde mee.

 

[Tweety1]

Ik heb nogmaals zitten kijken of er iets verkeerd staat in de gegevens maar kan niks raars vinden. Kan iemand mij helpen?

 

[Tweety1]

Ik ben er wel achter gekomen dat het fout gaat in het volgende stukje van de macro.
Enig idee hoe ik dit kan aanpassen?

i = i - 1

 

[snb]

Gebruik een dynamische tabel.
Zet daarin een kolom voor 'groepering'.
Aarzel niet om te sorteren
Rijen invoegen is in Excel niet mogelijk, het aantal rijen is constant: 2^20.
Met een correcte gegevensstruktuur is in jouw geval VBA overbodig.