gegevens overzetten naar volgend tabllad als waarde is geselcteerd

[Isabelle Hoorens]

Hallo,

 

ik ben hier nieuw maar zit ergens vast met het maken van een gegevensbestand.

Ik zou willen als de kandidaat geselecteerd is dat deze dan automatisch naar het tweede tabblad komt bij geselecteerde kandidaten.

ik stuur bestand door ter info, lijkt mij duidelijker.

alvast bedankt !

sollicitanten (2).xlsx

[bakerman]

In de bladmodule van Blad1.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(8)) Is Nothing Then
        If LCase(Target.Value) = "geselecteerd" Then
            With Sheet2
                .ListObjects("TBL_Kandidaten").ListRows.Add
                .Cells(.ListObjects("TBL_Kandidaten").ListRows.Count + 4, 2).Resize(, 6).Value = Cells(Target.Row, 1).Resize(, 6).Value
            End With
        End If
    End If
End Sub

PS: Ik hoop dat het niet jouw echt telefoonnummer en emailadres is in het voorbeeldbestand.

[JeanPaul28]

Kijk eens naar mijn bijdrage

in kolom H kan je kiezen met validatie iconen V X ***

V voor geselecteerd

X voor niet

*** voor reserve

Wanneer je keuze maakt geselecteerd of niet, zal je de validatie niet meer kunnen gebruiken.

Bij keuze reserve kan de validatie wel nog gebruikt worden

Bij keuze geselecteerd zal een macro de geselecteerde rij in tabblad Geselecteerde kandidaten de data bijvoegen.

sollicitanten (JP)-1.xlsm