cellen verplaatsen in Excel

[Mechanic777]

Hallo

graag zou ik een rij cellen willen verplaatsen naar "blad2" als deze rij op "geleverd staat"
zoals in het bijgevoegde voorbeeld:
rij A3 t/m F3 zou ik naar "blad2" willen verplaatsen (nu hij op "geleverd" staat)

met de mogelijkheid dat ik deze gegevens vanuit "blad2" ook op dezelfde manier weer naar "blad1" kan zetten

Kan iemand mij hierin helpen

Mvg
Mechanic

 

[emields]

zoiets?

 

[VenA]

Maak er een tabel van en gebruik het autofilter. Of gebruik een draaitabel.

 

[Mechanic777]

@Emiels
helemaal super, hier kan ik zeker iets mee
Thx

 

[VenA]

Met VBA zou het ook kunnen. Nu werkt het niet meer als je meer dan 100 rijen hebt.

 

[Mechanic777]

@Emiels

is het ook mogelijk dat er tegelijkertijd een lege regel (met gegevensvalidatie) erbij wordt gekopieerd in het eerdere bestand ?
Nu wordt de regel met tekst op blad 2 gekopieerd en deze regel verdwijnt met als gevolg dat mijn gemaakte tabel (layout) steeds kleiner wordt.

Verder werkt het TOP.

Ik hoor / zie het wel

 

[emields]

zo dan?

 

[VenA]

Maak gebruik van intelligente tabellen dan heb je het probleem niet. Het verplaatsen van data is over het algemeen niet zo'n goed idee omdat je ook met filters kan werken.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(8)) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    If Target = "geleverd" Then
      With ListObjects(1)
        Sheets("Blad2").ListObjects(1).ListRows.Add.Range.Resize(, 8) = Cells(Target.Row, .Range.Cells(1).Column).Resize(, 8).Value
        .ListRows(Target.Row - ListObjects(1).Range.Cells(1).Row).Delete
      End With
    End If
    Application.EnableEvents = True
  End If
End Sub

 

[ollie50]

Hi VenA,

Jij ook bedankt, ik denk dat ik snap wat je schrijft.
Maar ik begrijp het nog niet helemaal.
Het Excel bestand bekeken, maar ik ben zeker nog niet zo'n pro als jullie.
Maar ik vind de materie wel interessant.

Ik kijk morgen avond nog even naar dat bestand en probeer het te begrijpen en ga kijken of ik het ook kan toepassen.

Maar zeker allemaal bedankt tot dusver! Erg blij mee

 

[VenA]

Je kan beter in jouw eigen draadje reageren.