Are you saying that you want the macro to repeat for all sheets?
If so, you need to set up a loop to process all sheets.
Using your macro, you can create a separate macro like:
Sub Process_All()
Dim Sht for each Sht in Sheets if ((sht.name <> "Summary A") _ and
(sht.name <> "Summary B") _ and (sht.name <> "Summary C") _ ) then
sht.select movedata end if next Sht
Paul
-----------------------------------------
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-----------------------------------------
From: gargee singh <garge...@hotmail.com>
To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
Sent: Monday, August 17, 2015 3:28 AM
Subject: $$Excel-Macros$$ not able to repeat code through all sheets in
workbook
#yiv9893916402 #yiv9893916402 -- .yiv9893916402hmmessage
P{margin:0px;padding:0px;}#yiv9893916402
body.yiv9893916402hmmessage{font-size:12pt;font-family:Calibri;}#yiv9893916402
Hello Experts, I have this code which works fine except that I am not able to
repeat inon all sheets. When I edit the code it doesn’t perform the same
routine. I have multiple sheets in a workbook and I want this code to run on
allthe sheets except the first 3 (named – Summary A, Summary B, Summary C) Sub
movedata() Dim Lastcolumn As Integer, i, j As Integer, erow, ocell As Integer
Lastcolumn = Cells(Columns.count, ActiveCell.Column).End(xlToRight).Column For
i = 7 To 34 If Cells(9, i) = 1 Then Range(Cells(9, i), Cells(54, i +
34)).Select Selection.Cut End If Next i For j = 7 To Lastcolumn If Cells(8, j)
= Cells(1, 5) Then Cells(9, j).Select ActiveSheet.Paste Cells(19, j).Activate
ActiveCell.Value = 1 End If Next j Columns("BY:BY").Select Selection.Copy
Columns("G:AK").Select Selection.PasteSpecialPaste:=xlPasteFormats,
Operation:=xlNone, _ SkipBlanks:=False,Transpose:=False End Sub
Thanks for the help in advance.
Thanks and Regards,
Gargee Singh
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
