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 strongm 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

Bijugate
  • Locked
  • Question
Excel update question
Replies
0
Views
291
Bijugate
Bijugate
Pirouette
  • Locked
  • Question
Excel workbook
Replies
1
Views
287
combo
combo
shytott
  • Locked
  • Question
Excel - Toggle Button Code 1
Replies
10
Views
863
shytott
shytott
renigar
  • Question
Excel Power Query refresh error
Replies
3
Views
638
SoftwareRT
SoftwareRT
arvarr
  • Locked
  • Question
Excel Formula Help 1
Replies
7
Views
304
SkipVought
S

Part and Inventory Search

Sponsor

Back
Top