Cell selectie versprint bij Macros

[phwac]

*Cell selectie verspringt bij macro's


Allereerst Hallo!


Ik zit met het volgende probleem:

Ik wil dat een macro 4 waardes op de horizontale as selecteert en die plaatst op de verticale ass, vanaf kolom S2.
In deze macro zit een do-loop verwerkt:

Sub Test()
'

'

'

    Range("V2").Select
    ActiveCell.Range("V2:Y2").Select
    
Do Until IsEmpty(ActiveCell)
    Selection.Copy
    Sheets("Macro").Select
    
' Kopier van eerste regel en 1 stap naar beneden
Range("S2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    ActiveCell.Offset(4, 0).Range("A1").Select
    
    
    Sheets("sBU ALL CLOSING SCRIPT").Select
    ActiveCell.Offset(1, 0).Select




Loop
End Sub

////Opgelost///
Het probleem zit hem in het volgende: Nadat ik 4 kolomen heb geselecteerd, en de do-loop start (zie debug mode).
Verspringt het selectie gebied naar kolom AQ, waardoor het scrip niet verder kan met het plaatsen van de waardes, vanaf kolom S2. d
////Opgelost///


In bijlage is dit in actie te zien.


Ik ben benieuwd naar het volgende:
- Wat gaat hier fout en hoe kan ik dit het beste oplossen? = opgelost
- Hoe kan ik het beste deze macro samenvoegen met een andere macro, genaamd "macro4"


ps: Draai eerst Macro 4, daarna macro Test.

Met vriendelijke groet,
Phwac

Bekijk bijlage all-macro - kopie.xlsm

 

[sylvester-ponte]

test macro aangepast:

Sub Test()
'
' Macro4 Macro
'

Sheets("Macro").Select
Range("S2").Select
Sheets("sBU ALL CLOSING SCRIPT").Select
Range("V2").Select
    
    Do Until ActiveCell = ""
    
    ActiveCell.Range("A1:D1").Select
        Selection.Copy
        Sheets("Macro").Select

        ' Kopier van eerste regel en 1 stap naar beneden
        
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                               xlNone, SkipBlanks:=False, Transpose:=True
        ActiveCell.Offset(4, 0).Range("A1").Select


        Sheets("sBU ALL CLOSING SCRIPT").Select
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

 

[phwac]

Beste Sylvester,

Dit heeft het eerste probleem opgelost, mijn dank is groot!

Groetjes,
Phwac

 

[sylvester-ponte]

voeg boven aan in de macro test de regel

Call Macro4

to

 

[phwac]

Sylvester,

Ik wist niet dat je include functie had in macro's ( ik was bezig de codes samen te voegen)
Maar heel erg bedankt! Je hebt mij en mijn baas echt uit de brand geholpen!!!

Met vriendelijke groet,
Phwac!