Hey,
I want to copy some cells from all sheets in a workbook into one master workbook. I wrote this code:
HTML Code:
Dim kopia_nazwa
Dim praw1
Dim praw3
Dim praw5
Dim praw10
kopia_nazwa = Range("a1").Value
Worksheets("data").Range("a3").Value = kopia_nazwa
praw1 = Range("e6").Value
Worksheets("data").Range("b" & i).Value = praw1
praw3 = Range("f6").Value
Worksheets("data").Range("c" & i).Value = praw3
praw5 = Range("g6").Value
Worksheets("data").Range("d" & i).Value = praw5
praw10 = Range("h6").Value
Worksheets("data").Range("e" & i).Value = praw10
I found code on the internet that executes the given code for all sheets in a workbook:
HTML Code:
Sub Dosomething2()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode2
Next
Application.ScreenUpdating = True
End Sub
I thought of combining it with a for loop:
HTML Code:
Sub Dosomething2()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For i = 3 To 168
For Each xSh In Worksheets
xSh.Select
Call RunCode2
Next
Next i
Application.ScreenUpdating = True
End Sub
Sub RunCode2()
Dim kopia_nazwa
Dim praw1
Dim praw3
Dim praw5
Dim praw10
kopia_nazwa = Range("a1").Value
Worksheets("data").Range("a3").Value = kopia_nazwa
praw1 = Range("e6").Value
Worksheets("data").Range("b" & i).Value = praw1
praw3 = Range("f6").Value
Worksheets("data").Range("c" & i).Value = praw3
praw5 = Range("g6").Value
Worksheets("data").Range("d" & i).Value = praw5
praw10 = Range("h6").Value
Worksheets("data").Range("e" & i).Value = praw10
End Sub
Why doesn't this work, or how can I do it differently?