Bij waarde rij verplaatsen naar andere tab

[RE86]

Hallo,

Ik heb vanmiddag al van alles geprobeerd om het volgende voor elkaar te krijgen. Nu zag ik op internet diverse macro's staan om in bva in te voeren. Ik heb van alles geprobeerd maar kon ze niet werkend krijgen, echter is mijn kennis niet toereikend om te zien wat ik verkeerd doe.... Mogelijk is er iemand op het forum die mij kan helpen.

Ik wil dat als er een waarde geselceteerd wordt in kolom I (status) de desbetreffende rij automatisch in het desbetreffende tabblad gekopieerd wordt. Dus als ik in kolom I, bijvoorbeeld Open selecteer, wil ik dat de hele rij wordt gekopieerd in het tabblad Open. De rij moet wel blijven staan in het tabblad werkoverzicht.

Ik hoop dat er iemand is die mij kan helpen. Ik heb mijn bestand als bijlage gevoegd. Alvast bedankt.

Bekijk bijlage Werkoverzichtopzet.xlsx

 

[gast0660]

Zoiets?
Voorzetje
Werkt voor tab Open en Toegewezen probeer het voor de rest van uw tabs.
De bedoeling van

De rij moet wel blijven staan in het tabblad werkoverzicht.

is niet echt duidelijk. (blijft nu wel staan)

 

[RE86]

Zoiets?
Voorzetje
Werkt voor tab Open en Toegewezen probeer het voor de rest van uw tabs.
De bedoeling van is niet echt duidelijk. (blijft nu wel staan)

Bedankt! Dit lijkt er inderdaad wel op. Is het ook mogelijk zonder de knop overzetten? Dat hij automatisch hem kopieert op het moment dat ik hem de status geef.

Met de laatste opmerking bedoel ik, dat alle info altijd in het werkoverzicht blijft staan.

Ik zie de Makro's niet die jij hebt ingevoerd, mogelijk kijk ik verkeerd... Kan jij mij vertellen waar de makro's staan?

 

[gast0660]

Hoi,

Ik zie de Makro's niet die jij hebt ingevoerd, mogelijk kijk ik verkeerd... Kan jij mij vertellen waar de makro's staan?

Het verplaatsen gebeurt met VBA code. De code kan je vinden in de VBA editor onder het werkblad 'Werkoverzicht'
De VBA editor kan je openen met ALT + F11.

Met de laatste opmerking bedoel ik, dat alle info altijd in het werkoverzicht blijft staan.

Hier moet ik eens over nadenken, nu is het zo dat als de gegevens blijven staan worden ze iedere keer opnieuw overgezet, wat niet de bedoeling is denk ik.

 

[VenA]

Probeer het zo eens

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(9)) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    c00 = Target.Value
    Application.Undo
    If Target.Value <> "" Then
        MsgBox "deze regel is al gekopieerd"
      Else
        Target = c00
        Target.Offset(, 1) = Date
        Rows(Target.Row).Copy Sheets(c00).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If
    Application.EnableEvents = True
End If
End Sub

 

[RE86]

Hoi,

Het verplaatsen gebeurt met VBA code. De code kan je vinden in de VBA editor onder het werkblad 'Werkoverzicht'
De VBA editor kan je openen met ALT + F11.


Hier moet ik eens over nadenken, nu is het zo dat als de gegevens blijven staan worden ze iedere keer opnieuw overgezet, wat niet de bedoeling is denk ik.

Bedankt voor de tip. Het is helaas niet zo als ik wil... Ik wil het zonder knop. Zeg maar dat je als je open aan klikt, dat hij dan direct bij het tabblad open komt.

 

[RE86]

Probeer het zo eens

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(9)) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    c00 = Target.Value
    Application.Undo
    If Target.Value <> "" Then
        MsgBox "deze regel is al gekopieerd"
      Else
        Target = c00
        Target.Offset(, 1) = Date
        Rows(Target.Row).Copy Sheets(c00).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If
    Application.EnableEvents = True
End If
End Sub

Hallo Vena,

Bedankt voor je hulp. Het enige is dat er nu de in jou macro genoemde tekst verschijnt op het moment dat ik iets aan klik bij status. Echter kopieert hij geen gegevens...

 

[VenA]

svp niet quoten.

Dan haal je de controle of er al gekopieerd is er toch uit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(9)) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
        Target.Offset(, 1) = Date
        Rows(Target.Row).Copy Sheets(c00).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Application.EnableEvents = True
End If
End Sub