ssteenvoorde
Gebruiker
- Lid geworden
- 4 mei 2018
- Berichten
- 11
Hallo, deze macro heb ik opgenomen en wil ik graag gebruiken voor mijn hele excelsheet tm regel 1500.
Sub voorkeurhousing()
'
' voorkeurhousing Macro
' rapportage housing request
'
' Keyboard Shortcut: Ctrl+Shift+V
'
Range("A1:Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.SmallScroll ToRight:=8
Range("Q2").Select
Application.CutCopyMode = False
Selection.Cut
Range("R2").Select
ActiveSheet.Paste
Range("Q3").Select
Selection.Cut
Range("S2").Select
ActiveSheet.Paste
Range("Q4").Select
Selection.Cut
Range("T2").Select
ActiveSheet.Paste
Range("Q5").Select
Selection.Cut
Range("U2").Select
ActiveSheet.Paste
Range("Q6").Select
Selection.Cut
Range("V2").Select
ActiveSheet.Paste
Range("Q7").Select
Selection.Cut
Range("W2").Select
ActiveSheet.Paste
Range("Q8").Select
Selection.Cut
Range("X2").Select
ActiveSheet.Paste
Range("Q9").Select
Selection.Cut
Range("Y2").Select
ActiveSheet.Paste
Range("P2").Select
Selection.Copy
Range("R1").Select
ActiveSheet.Paste
Range("P3").Select
Application.CutCopyMode = False
Selection.Copy
Range("S1").Select
ActiveSheet.Paste
Range("P4").Select
Application.CutCopyMode = False
Selection.Copy
Range("T1").Select
ActiveSheet.Paste
Range("P5").Select
Application.CutCopyMode = False
Selection.Copy
Range("U1").Select
ActiveSheet.Paste
Range("P6").Select
Application.CutCopyMode = False
Selection.Copy
Range("V1").Select
ActiveSheet.Paste
Range("P7").Select
Application.CutCopyMode = False
Selection.Copy
Range("W1").Select
ActiveSheet.Paste
Range("P8").Select
Application.CutCopyMode = False
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Range("P9").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y1").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("3:9").Select
Range("A9").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Kan iemand mij hiermee helpen aub?
Alvast bedankt!
Groet, Shin-Lee
Sub voorkeurhousing()
'
' voorkeurhousing Macro
' rapportage housing request
'
' Keyboard Shortcut: Ctrl+Shift+V
'
Range("A1:Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.SmallScroll ToRight:=8
Range("Q2").Select
Application.CutCopyMode = False
Selection.Cut
Range("R2").Select
ActiveSheet.Paste
Range("Q3").Select
Selection.Cut
Range("S2").Select
ActiveSheet.Paste
Range("Q4").Select
Selection.Cut
Range("T2").Select
ActiveSheet.Paste
Range("Q5").Select
Selection.Cut
Range("U2").Select
ActiveSheet.Paste
Range("Q6").Select
Selection.Cut
Range("V2").Select
ActiveSheet.Paste
Range("Q7").Select
Selection.Cut
Range("W2").Select
ActiveSheet.Paste
Range("Q8").Select
Selection.Cut
Range("X2").Select
ActiveSheet.Paste
Range("Q9").Select
Selection.Cut
Range("Y2").Select
ActiveSheet.Paste
Range("P2").Select
Selection.Copy
Range("R1").Select
ActiveSheet.Paste
Range("P3").Select
Application.CutCopyMode = False
Selection.Copy
Range("S1").Select
ActiveSheet.Paste
Range("P4").Select
Application.CutCopyMode = False
Selection.Copy
Range("T1").Select
ActiveSheet.Paste
Range("P5").Select
Application.CutCopyMode = False
Selection.Copy
Range("U1").Select
ActiveSheet.Paste
Range("P6").Select
Application.CutCopyMode = False
Selection.Copy
Range("V1").Select
ActiveSheet.Paste
Range("P7").Select
Application.CutCopyMode = False
Selection.Copy
Range("W1").Select
ActiveSheet.Paste
Range("P8").Select
Application.CutCopyMode = False
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Range("P9").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y1").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("3:9").Select
Range("A9").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Kan iemand mij hiermee helpen aub?
Alvast bedankt!
Groet, Shin-Lee