Automatisch rij in excel toevoegen wanneer de juiste waarde in een cel wordt gegeven

[moeka]

Beste forumgebruikers,

Ik ben een beetje aan het knooien in excel maar krijg het niet voor elkaar om automatisch een rij in te laten voegen wanneer G27 de waarde afspraak heeft. Bij voorkeur moet automatisch vak d 28 worden geselecteerd.Bekijk bijlage Klantcontactdatabase 2.xls

Dit wil ik doorvoeren in heel kolom G. kan iemand mij hiermee helpen?

 

[WinteE]

Dag Moeka,

Kopieer de volgende code in het Microsoft Excel Object van het betreffende werkblad. Met de toetscombinatie <Alt> + <F11> ga je naar de macro-omgeving.

Private Sub Worksheet_Change(ByVal Target As Range)

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

End Sub

Iedere keer wanneer je nu in kolom G het woord "Afspraak" invoert wordt er een regel toegevoegd en springt de selectie naar kolom D in de nieuwe rij.

Succes,
Erik

 

[WinteE]

Met een kleine aanpassing aan de 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

 

[moeka]

Hallo Erik,

Bedankt voor je reactie en mijn excuses dat ik nu pas de mogelijkheid heb om te reageren. Ik heb de programmacode teogevoegd en het heeft even geduurt voordat ik in de gaten had dat deze hoofdletter gevoelig is maar nu heb ik het voor elkaar.

hartelijk dank.