Macro maken

[Lode2008]

Een macro maken daar ken ik een ietsje van.
Het gaat zo: ik kopieer een en de zelfde regel van enkele niet aan elkaar grenzende kolommen naar beneden, dat ken ik maar als ik telkens een regel naar beneden moet kopieren, hoe moet ik dat in die macro doen.
VB a10:c10; f10:h10; k10:m10 moet gekopieerd worden naar regel elf
de volgende keer moet regel elf naar regel twaalf en zo verder.
Hoe moet ik dat in een macro steken.
Groetjes
Lode

 

[HSV]

Zo zou het kunnen.

Sub tst()
  With Sheets("Blad1")
     .UsedRange.Offset(1).EntireRow.Value = .UsedRange.EntireRow.Value
  End With
End Sub

 

[Lode2008]

Maar als ik nu mijn macro zelf wil maken , hoe en waar moet ik die tekst van u daarin zetten
Groetjes
Lode

 

[HSV]

Dat ligt er aan wat voor macro je maakt.

 

[Lode2008]

Zoals ik in het voorbeeld aangaf wil ik enkele kolommen die niet aangrenzend zijn een regel lager kopieren en de volgende keer weer een regel lager
VB a10:c10; f10:h10; k10:m10 moet gekopieerd worden naar regel elf
de volgende keer moet regel elf naar regel twaalf dan weer naar regel dertien en zoverder
Als ik nu een macro maak voor regel negen om naar regel tien te kopieren dan blijft hij op regel negen kopieren naar regel tien
Groetjes
Lode

 

[Lode2008]

Sub Test01()
'
' Test01 Macro
'

'Hieronder het voobeeld van de macro die ik gemaakt heb
Range("B7:C7").Select
Selection.Copy
Range("B8").Select
ActiveSheet.Paste
Range("E7:G7").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
ActiveSheet.Paste
Range("I7").Select
Application.CutCopyMode = False
Selection.Copy
Range("I8").Select
ActiveSheet.Paste
End Sub

 

[HSV]

Ik begrijp het hele verhaal wel, maar ik dacht dat je een andere macro had waar je die van mij wilde inplementeren, maar doe er eens je bestandje bij, met hoe het er uit
ziet (bv. waar moet de code beginnen met kopiëren).

 

[RB_online]

Zo misschien?

gr
René

 

[Cobbe]

Zou het zo iets moeten worden.
Kan zeker anders,(resize??)

maar het doet wat je wil.

Cobbe

 

[HSV]

Dan mijn bestandje er ook nog maar bij met een tweede macro.
Al blijf ik bij mijn vraag in #7.
Gokken is dokken (uithuilen en opnieuw beginnen).

 

[Warme bakkertje]

Zal ik ook nog iets in de groep gooien

Sub omlaagkopieren()
    With Sheets(1)
    erij = .Range("A65500").End(xlUp).Row + 1
        .Range("B" & erij & ":C" & erij) = .Range("B" & erij - 1 & ":C" & erij - 1).Text
        .Range("E" & erij & ":G" & erij) = .Range("E" & erij - 1 & ":G" & erij - 1).Text
        .Range("I" & erij) = .Range("I" & erij - 1).Text
    End With
End Sub

 

[Lode2008]

HSV heeft twee macro's gezonden en diegene met de knop TEST is de goede
Die kopieer de onderste rij naar beneden
Al de andere kopieren de bovenste rij naar beneden en daar verlies ik de nieuwe ingetypte gegevens.
De vraag is nu, hoe moet ik die macro nu in mijn werkblad gebruiken of gaat dit met kopieren
Groetjes
Lode

 

[Warme bakkertje]

Maar in je 1ste vraag spreek je helemaal niet over de volledige onderste rij, maar over 3 bereiken uit de onderste rij (hetgeen mijn macro doet). Weet zelf eerst wat je wil zodat je weet hoe je je vraag moet formuleren.
Kopieër de macro gewoon naar een standaardmodulemodule en dan kan je hem ofwel starten via ALT+F8, of via een knop of door een sneltoetscombinatie toe te kennen aan de macro.

 

[Lode2008]

Allemaal simpel als je het kent
Maar ik zou niet weten hoe ik die macro naar een standaardmodule moet kopieren
Waar bevindt zich een standaaramodule?
Groetjes
Lode

 

[Warme bakkertje]

Open je bestand en toets ALT+F11
Invoegen >> Module >> Code plakken in linkervenster.

 

[Cobbe]

Bijna goed!

Open je bestand en toets ALT+F11
Invoegen >> Module >> Code plakken in linkervenster.

Open je bestand en toets ALT+F11
Invoegen >> Module >> Code plakken in [COLOR="red"][B]Rechter[/B][/COLOR]venster.

Cobbe

 

[Warme bakkertje]

Oeps
t' Is dat ik ook maar de 1ste keer van VBA hoor

 

[Lode2008]

Ik heb geprobeerd die macro te kopieren en plakken en zie dat hij in mijn werkmap staat, maar hij werkt niet.
Hij moet een van de vele bladen werken .
Moet ik dan de naam van dat blad in die werkmap veranderen.
Ik geraak er echt niet aan uit
Maar de vraag is twee er lei
Hoe kan ik zelf zo een macro maken.
Diegene die ik gemaakt heb weet ik hoe maar hij kopiierst steeds dezelfde lijn.
Hoe moet ik tewerk gaan om die de onderste regel te laten kopieren
Groetjes
Lode

 

[Cobbe]

Kijk in het bestandje goed waar de code staat en zie dat je een Module invoegt.

Cobbe

PS Hoe/wanneer je dat zelf maakt/kunt maken, hangt een beetje van uw eigen wil om het te leren af.

 

[Warme bakkertje]

With Sheets(1)

Zet op de plaats waar de 1 staat de naam van je werkblad tussen dubbele aanhalingstekens dus

Sheets("Naam van je werkblad")