personen met @ op ander tabblad plaatsen plus gegeven in kolom F t/m J

[samui]

Toevoeging verlangd personen met @ op ander tabblad

Onderstaande is perfect opgelost, mijn dank voor de oplossingen. Alle namen die een @ achter hun naam hebben staan komen in beeld op tabblad 2. Echter als ik personen weghaal die in het bestaande bestand ook nog niet aanwezig zijn krijg ik alleen Anky, Simone en Evy in beeld. Rein en alle anderen daaronder met de @ komen dan niet op tabblad 2, terwijl dit wel noodzakelijk is. Is dat ook nog te realiseren VenA? :thumb: De rijen x t/m 38 blijven leeg totdat er personen bij komen.
Hoop dat het te realiseren is.

Heb bestandje toegevoegd

Graag zou ik zien dat al die personen in tabblad Deze week met het @ teken in kolom E achter hun naam op alfabetische volgorde komen te staan op het tabblad Blad2 vanaf cel AB9.

Daarnaast zou ik ook graag de bijbehorende gegevens bij die persoon op het tabblad Blad2 er naast zien van week 41 qua d, a, z of n

In het voorbeeld heb ik Arie al gezet hoe ik het graag zou zien, daaronder zouden dus de andere personen moeten komen die een @ achter hun naam hebben staan.

Hoop dat iemand een mooie oplossing heeft.

Alvast bedankt voor de reacties,

Frank

 

[VenA]

Begin eerst eens met een gedegen opzet. Kleurplaten kan ja dan altijd nog maken. Verschillende gegevens in 1 kolom, verborgen rijen etc. Denken vanuit opgemaakte sheets en er vervolgens informatie? van te maken kan wel maar is niet logisch.

 

[samui]

Begin eerst eens met een gedegen opzet. Kleurplaten kan ja dan altijd nog maken. Verschillende gegevens in 1 kolom, verborgen rijen etc. Denken vanuit opgemaakte sheets en er vervolgens informatie? van te maken kan wel maar is niet logisch.

Beste VenA,

Had effe niet in de gaten vwb de gesloten rijen. De "kleurplaat" op tabblad Blad2 is enkel om aan te geven waar ik de gegevens zou willen zien verschijnen.
De gegeven die voor kolom AB staan zijn niet relevant om in beeld te brengen voor deze vraag.
Hoop hier wat ruis op de lijn weggehaald te hebben. Hoop dat je me nu kan helpen, of iemand anders op dit forum, met een macro om die personen met een @ op tabblad Blad2 te krijgen.
Beginnende met wegzetten in celAB9.
Zal aangepast bestand oploaden.

Alvast bedankt voor een oplossing.

Frank

 

[VenA]

Sub VenA()
  ar = Sheets("Deze week").Cells(4, 1).CurrentRegion
  ReDim ar1(UBound(ar), 5)
  For j = 4 To UBound(ar)
    If ar(j, 5) = "@" Then
      ar1(t, 0) = ar(j, 2)
      ar1(t, 1) = ar(j, 6)
      ar1(t, 2) = ar(j, 7)
      ar1(t, 3) = ar(j, 8)
      ar1(t, 4) = ar(j, 9)
      ar1(t, 5) = ar(j, 10)
      t = t + 1
    End If
  Next j
  With Sheets("Blad2")
    .Cells(Rows.Count, 28).End(xlUp).Offset(1).Resize(t, 6) = ar1
    .Cells(8, 28).CurrentRegion.Sort .Cells(8, 28), , , , , , , xlYes
  End With
End Sub

 

[samui]

Sub VenA()
  ar = Sheets("Deze week").Cells(4, 1).CurrentRegion
  ReDim ar1(UBound(ar), 5)
  For j = 4 To UBound(ar)
    If ar(j, 5) = "@" Then
      ar1(t, 0) = ar(j, 2)
      ar1(t, 1) = ar(j, 6)
      ar1(t, 2) = ar(j, 7)
      ar1(t, 3) = ar(j, 8)
      ar1(t, 4) = ar(j, 9)
      ar1(t, 5) = ar(j, 10)
      t = t + 1
    End If
  Next j
  With Sheets("Blad2")
    .Cells(Rows.Count, 28).End(xlUp).Offset(1).Resize(t, 6) = ar1
    .Cells(8, 28).CurrentRegion.Sort .Cells(8, 28), , , , , , , xlYes
  End With
End Sub

Helemaal het einde VenA. Werkt precies zoals het hoort. Helemaal blij. Bedankt voor de supersnelle afhandeling vsn mijn probleem.
Sluit de vraag hierbij. Tot een volgende keer.

 

[HSV]

Sneller, korter, eenvoudiger.

Sub hsv()
Application.ScreenUpdating = False
With Sheets("deze week").UsedRange.Offset(2)
  .AutoFilter 5, "@"
   Union(.Columns(2), .Columns(6), .Columns(7), .Columns(8), .Columns(9), .Columns(10)).Offset(1).Copy
   Sheets("blad2").Cells(Rows.Count, 28).End(3).Offset(1).PasteSpecial -4163
  .AutoFilter
End With
  With Sheets("blad2")
    .Cells(8, 28).CurrentRegion.Sort .Cells(8, 28), , , , , , , 1
  End With
End Sub

 

[snb]

@samui

svp niet citeren/quoten zie:https://www.helpmij.nl/forum/announcement.php?f=5

 

[snb]

Zonder samengevoegde cellen;
Met in AB9:AG9 naam m d w d v

Sub M_snb()
    Blad5.Cells(1, 21) = "z"
    Blad5.Cells(2, 21) = "@"
    Blad5.Cells(4, 1).CurrentRegion.Offset(2).Resize(, 10).AdvancedFilter 2, Blad5.Range("U1:U2"), Blad1.Range("AB9:AG9")
End Sub