verschuiven

[patje8]

Hallo,


Ik ben op zoek naar een formule, liefst via een macro die wanneer er in kolom C bij Groep 1 ok staat dat deze persoon dan verhuisd naar Groep 2 in kolom F van het volgende schooljaar.
Weet er iemand een oplossing?

 

[HierEnNu]

Plaats de volgende code in een module:

Sub verschuiving()
Dim i As Range
For Each i In Sheets("Algemeen").Range("c4:c50")
    If i = "ok" Then
    Range("A" & i.Row).Copy Range("F" & i.Row)
    End If
    Next
    
End Sub/CODE]

Maak vervolgens een knop aan op het werkblad Algemeen (met de werkbalk Formulieren) en koppel de macro aan deze knop.

Groeten,

M.

 

[Warme bakkertje]

Wil je hem zonder knop plak dan onderstaande code achter het betreffende blad (rechtsklikken bladtab >> Programmacode weergeven >> Plakken)
Telkenmale je ok invult in kolom C wordt de naam automatisch gekopieërd naar kolom F

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 And Target.Value = "ok" Then
    Range("A" & Target.Row).Copy Range("F" & Target.Row)
End If
End Sub

Mvg

Rudi

 

[patje8]

Momenteel begrijp ik de macro via een button en de gegevens verschuiven wel maar niet naar de juiste rij.

Het is de bedoeling van de personen van kolom A4:A8 (groep1) waar er ok staat in kolom C moeten verschuiven naar kolom F12:F17 (Groep2)
Hetzelfde met A12:A17 (Groep2), deze moeten naar F20:25 (groep3).

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 And Target.Value = "ok" Then
    Range("A" & Target.Row).Copy Range("F" & Target.Row [COLOR="Red"]+ 8[/COLOR])
End If
End Sub

Mvg

Rudi