Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

loop excel makro

Status
Not open for further replies.
andreas57

andreas57

Technical User
Sep 29, 2000
110
CH
how can i make this makro go through a hole document and do the changes liken in the first line?

Rows("2:2").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll ToRight:=5
Range("O1").Select
Selection.Cut Destination:=Range("N2")
Range("O1").Select
Columns("O:O").ColumnWidth = 6
Range("P1").Select
Columns("O:O").ColumnWidth = 4.86
Selection.Cut Destination:=Range("N3")
Range("Q1").Select
Selection.Cut Destination:=Range("N4")
Range("R1").Select
Selection.Cut Destination:=Range("N5")
Range("S1").Select
Selection.Cut Destination:=Range("N6")
Range("T1").Select
Selection.Cut Destination:=Range("N7")
Range("N7").Select
ActiveWindow.SmallScroll ToRight:=5
Range("V1").Select
Selection.Cut Destination:=Range("U2")
Range("W1").Select
Selection.Cut Destination:=Range("U3")
Range("X1").Select
Selection.Cut Destination:=Range("U4")
Range("Y1").Select
Selection.Cut Destination:=Range("U5")
Range("Z1").Select
Selection.Cut Destination:=Range("U6")
Range("AA1").Select
Selection.Cut Destination:=Range("U7")
Range("U7").Select
ActiveWindow.SmallScroll ToRight:=5
Range("AC1").Select
Selection.Cut Destination:=Range("AB2")
Range("AD1").Select
Selection.Cut Destination:=Range("AB3")
Range("AE1").Select
Selection.Cut Destination:=Range("AB4")
Range("AF1").Select
Selection.Cut Destination:=Range("AB5")
Range("AG1").Select
Selection.Cut Destination:=Range("AB6")
Range("AH1").Select
Selection.Cut Destination:=Range("AB7")
Range("AB7").Select
ActiveWindow.SmallScroll ToRight:=-9
Rows("8:8").Select
Range("G8").Activate

i would be very thankfull for help

andreas owen
aowen@swissonline.ch
 
Sort by date Sort by votes
you need to put in the defragmental flux capacitor over your CPU, that should sort it
 
Upvote 0 Downvote
rfeenie: He's puncturing the space/time continuum.

Andreas: It would be a lot easier if you just typed the steps that tell exactly what you want to do. Feel free to email the spreadsheet and an explicit explanation to me. I'll help you out.

~dreamboat~
Brainbench MVP for Microsoft Word
techsupportgirl@home.com
Brainbench MVP for Microsoft Word
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Swi
  • Locked
  • Question
Excel Webservice
Replies
2
Views
356
mintjulep
M
Kennelbloke
  • Solved
Excel Unique-Filter issue
Replies
3
Views
243
SkipVought
S
bkoopers
  • Question
Problem with Excel pasting into filtered cells
Replies
1
Views
105
combo
combo
renigar
  • Locked
  • Question
Having trouble with Excel Lookup
Replies
5
Views
674
renigar
renigar
Bijugate
  • Locked
  • Question
Excel update question
Replies
0
Views
548
Bijugate
Bijugate

Part and Inventory Search

Sponsor

Back
Top