• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verplaatsen naar andere locatie in nieuw werkblad

Status
Niet open voor verdere reacties.
M

mobo2018

Gebruiker
Lid geworden
17 jul 2018
Berichten
66
Hallo allen,

Ik heb een grote database waarbij ik gegevens moet verplaatsen naar een andere werkmap.
Nu ben ik gaan spitten en heb ik de oplossing gevonden in een vorig bericht.
Dit werkt perfect voor mijn overzicht.
Het enige dat ik niet voor elkaar krijg is om de verplaatste regels in rij 4 te laten beginnen in het nieuwe werkblad i.p.v. rij 1.
Voor het gemak heb ik het bestand gevoegd dat destijds ook geplaatst is
Wie kan mij bij dat laatste stuk helpen?\

Alvast bedankt.

MO
 

Bijlagen

  • jaaroverzicht.xlsb
    19,4 KB · Weergaven: 43
Kijk of het zo beter gaat.
Code: 
Sub VenA()
With Sheets("Werkmap").Cells(1).CurrentRegion
  For j = 2016 To 2021
    .AutoFilter 5, "*" & j
    .Offset(1).Copy Sheets(CStr(j)).Cells(Rows.Count, 1).End(xlUp).Offset([COLOR="#FF0000"]4[/COLOR])
  Next j
  .AutoFilter
  .Offset(1).ClearContents
End With
End Sub
 
Ik loop nu alleen nog tegen de tabbladen aan
De namen van de tabbladen in het voorbeeld zijn jaartallen en opeenvolgend, waarbij de code dat ook aangeeft (For j = 2016 To 2021)

Ik heb tabbladen bestaande uit namen waarbij er geen opeenvolging mogelijk is.
Ben onder andere al aan de slag gegaan met een verwijzing van de eerste 2 letters van het tabblad, echter zonder resultaat
Hoe kan ik dit aanpassen, zodat het verplaatsen naar de tabblad op naam gebeurt i.p.v. opeenvolgende jaartallen?

Gr,
MO
 
En wat zijn de namen? Laat het even zien in een voorbeeldbestandje.
 
Ik heb ik de bijlage de bestaande jaartallen in kolom "E" vervangen door de namen van de betreffende personen.
In kolom "I" heb ik de jaartallen gedaan die er oorspronkelijk stonden.

Gr,
MO
 

Bijlagen

  • jaaroverzicht Nieuw.xlsb
    20,8 KB · Weergaven: 30
Code: 
Sub VenA()
  With Sheets("Werkmap").Cells(1).CurrentRegion
    For Each sh In Sheets
      If sh.Name <> "Werkmap" Then
        .AutoFilter 5, sh.Name
        .Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp).Offset(4)
      End If
    Next sh
    .AutoFilter
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan