Kolom verplaatsen / kopieren.

[Jeroen392]

Hallo Allemaal,

Zou iemand mij kunnen helpen, met het volgende.
Ik heb hier een voorbeeld bestand bij gedaan, en de vraag is:

Hoe kan ik door middel van een (VBA) knop KOLOM C tot en met J weghalen en verplaatsen/kopieren naar achter de laatste kolom die er staat (in dit geval EY tot en met FF) en de data (rij 10 t/m 31 , rij 36 t/m 54, rij 58 t/m 76 die er dan onder leegmaken met zelfde knop.

Ik hoop dat de uitleg duidelijk is.
Alvast voor jullie hulp.

MvGrt Jeroen...

Bekijk bijlage Kopie van Verlofschema actueel 2010.zip

 

[ExcelAmateur]

Jeroen392,

Ik heb nog niet gekeken maar heb je dit al met de macrorecorder geprobeerd op een copy van je File?

 

[Jeroen392]

Hallo ExcelAmateur,

Goeie morgen,

Misschien ben ik wat vergeten te melden bij de vraag.
Deze vraag is omdat we altijd een tijdvak van 13 periodes willen zien op de print die wij dan maken. Dus met andere woorden bv. 5 periodes terug zien, en dan 8 periodes vooruit.
De nummers van de periodes mogen ook maar tot 13 oplopen, daarna moet het weer bij 1 beginnen van week één in het nieuwe jaar. Het zelfde is met de week nummers, dat spreekt voor zich dat er maar 52 in een jaar zitten.

Misschien dat ik nu wat duidelijker ben.

MvGrt. Jeroen..

 

[ExcelAmateur]

Jeroen392,

Onderstaande code is om kolom C tot J te verplaatsen.
Om te testen heb ik hem naar kolom FC verplaatst, Moet je dus even aan passen.
Zet dit dan onder een knop.

Sub Verplaatsen()
  Application.ScreenUpdating = False 'Haal het flitsen van het scherm weg.
    Columns("C:J").Copy Range("FC1")
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

 

[Jeroen392]

Hallo ExcelAmateur,

Ik weet niet wat ik verkeerd doe, maar ik krijg alleen maar end sub errors, en er gebeurt niets. Wat doe ik verkeerd!!

MvGrt. Jeroen..

 

[ExcelAmateur]

Jeroen392,

Bij kolom FN staat een knop en die start de macro.

 

[Jeroen392]

Hallo ExcelAmateur,

Alvast bedankt voor de moeite die je voor mij doet.
Ik heb net gekeken, en hij kopieert goed, alleen kan jij ook nog er voor zorgen dat de kolom die hij kopieert die dan weg haalt vooraan. en de nieuwe kolom die hij dan plaatst dan ook leeg is van kleur en kruisjes.

MvGrt. Jeroen...

 

[ExcelAmateur]

Jeroen392,

Er zijn mensen hier op Helpmij die dit veel beter kunnen dan ik.
Ik neem zoiets op met de Macrorecorder en probeer het dan in te korten.
Soms maakt men die code dan nog korter, vind ik knap hoor.
Het is ook beter om geen Samengevoegde cellen te gebruiken. (kan soms problemen geven bij het kopieren)

kijk eens of dit aan je verwachting voldoet.

 

[Jeroen392]

Hallo ExcelAmateur,

Hallo Excel Amateur,

Sorry dat ik een beetje laat reageer, maar even druk gehad.
Ik heb jou laatste upload bekeken, en daar kan ik mee verder.
Heb nog wat andere aanwijzigingen gevonden hier op de forum,
Dus met wat u voor mij gedaan heeft, met wat andere zaken erbij, ben ik er bijna uit, maar dat ga ik proberen op te lossen. Moet het zelf ook gaan leren natuurlijk.

Bedankt voor de gedane zaken, top.:thumb::thumb::thumb:

MvGrt. Jeroen