rij verplaatsen met een kruisje

[wilanne]

Hallo iedereen.

Heb een leuk bestandje gevonden waar ik graag mee wil werken.
(aangepast naar mijn wensen)
Alleen kom ik achter een probleempje. Als je x plaatst komt er een popup met de tabbladen waar
je hem heen wil verplaatsen. Als je geen keuze maakt verdwijnt de regel, deze is vervolgens niet meer terug te vinden.
Iemand een idee of hoe dit op te lossen is?

Alvast bedankt voor het meedenken,
Anne

 

[VenA]

Je kan het zowel binnen het formulier als binnen het Change_event afvangen. Even toetsen of er wel wat gekozen is in de Combobox.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("J2:J100 ")) Is Nothing Then
    If Target.Count = 1 Then
      If Target.Value = "x" Then
        Target.Offset(, -9).Resize(, 9).Copy
        UserForm1.Show
        If UserForm1.ComboBox1.ListIndex > -1 Then
          Target.Offset(, -9).Resize(, 10).ClearContents
          Target.Rows.Delete
        End If
      End If
    End If
  End If
End Sub

Waarbij mij deze

Target.Offset(, -9).Resize(, 10).ClearContents

een beetje onnodig lijkt omdat je de rij toch verwijderd.

 

[wilanne]

Dank je voor de reactie

Op blad voorraad komt alles te staan wat nog moet gebeuren. als je kruisje zet moet hij verplaatst worden naar juiste tabblad.
hij mag da uit de lijst voorraad verdwijnen. blijft bij jouw oplossing staan. was eigenlijk niet de bedoeling.

 

[JeanPaul28]

Zonder kruisje en zonder Userform

 

[VenA]

Waarom geen gestructureerde opzet met een tabel en een draaitabel? Alles op verschillen tabjes geeft weer ellende om gegevens samen te voegen. Maar goed zo werkt het met een Userform.

 

[wilanne]

Dank jullie voor het meedenken hier kan ik mee vooruit

anne