Здравствуйте. В примере код собирает данные с листов: 1;2;3 книги "Экспорт". Проблемма в следующем. Если в книге "Экспорт" создаются листы 4;5;6 и т.д., постоянно нужно вносить изменения в макрос. Помогите внести изменения, чтоб код собирал данные со всех листов, которие находятся в книге "Экспорт" (перебрал листы по циклу). Спасибо.
Здравствуйте. В примере код собирает данные с листов: 1;2;3 книги "Экспорт". Проблемма в следующем. Если в книге "Экспорт" создаются листы 4;5;6 и т.д., постоянно нужно вносить изменения в макрос. Помогите внести изменения, чтоб код собирал данные со всех листов, которие находятся в книге "Экспорт" (перебрал листы по циклу). Спасибо.Amator
Убрал из кода три разных обращения к конкретным листам, вместо этого добавил переменную и перебор листов, протестируйте.
[vba]
Код
Dim X As Long
For X = 1 To .Worksheets.Count With .Worksheets(X) iLastRowTempWb = .Cells(Rows.Count, 1).End(xlUp).Row iLastRowBaza = BazaSht.Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range(.Cells(2, 1), .Cells(iLastRowTempWb, 27)).Copy Destination:=BazaSht.Cells(iLastRowBaza, 1) End With Next X
[/vba]
Amator, здравствуйте.
Убрал из кода три разных обращения к конкретным листам, вместо этого добавил переменную и перебор листов, протестируйте.
[vba]
Код
Dim X As Long
For X = 1 To .Worksheets.Count With .Worksheets(X) iLastRowTempWb = .Cells(Rows.Count, 1).End(xlUp).Row iLastRowBaza = BazaSht.Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range(.Cells(2, 1), .Cells(iLastRowTempWb, 27)).Copy Destination:=BazaSht.Cells(iLastRowBaza, 1) End With Next X
Rioran, здравствуйте. Появилась проблемма. Если в исходных листах формулы- код собирае формулы. Нужно собирать только числа. Помогите ,пожалуйста, внести изменения в код.
Rioran, здравствуйте. Появилась проблемма. Если в исходных листах формулы- код собирае формулы. Нужно собирать только числа. Помогите ,пожалуйста, внести изменения в код.Amator