Hi
I have a macro that will cut and paste cell B11 to cell A13. I need it to do that for every sheet in the workbook. Can someone please help me complete this macro?
Sub CellCopy() ' CellCopy Macro Sheets(1).Activate For Each Sheet In Sheets If Sheet.Index 1 Then Range("B11").Select Selection.Cut Destination:=Range("A13") Range("A13").Select End If Next Sheet End Sub
FYI, I'm doing this from my phone, so it might not be formatted correctly.
Last edited by lyoung1124; 07-17-2014 at 09:14 AM.
sheets("Sheet1").Range("B11").copy Destination:=Sheet.Range("A13")
sheet.Range("A13").Select
also this checking sheet.index<>1 then
I wouldnt use variable names like that, too confusing use something like wsSheetInspected, as Sheets is a keyword of excel, so mighty close. :o)
Hope this helps
Sometimes its best to start at the beginning and learn VBA & Excel.
Please dont ask me to do your work for you, I learnt from Reading books, Recording, F1 and Google and like having all of this knowledge in my head for the next time i wish to do it, or wish to tweak it.
Available for remote consultancy work PM me
Sub CellCopy() Dim ws As Worksheet For Each ws In Sheets With ws .Range("B11").Cut Destination:=.Range("A13") End With Next ws End Sub
AB33, you're cutting the original back into the original, he needs the index check.
Nath,
What is an index check?
Thanks AB33. That code worked.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks