Я должен отсортировать результаты нескольких таблиц в другую. Каждое из электронных таблиц имеет то же имя, что и расширения в массиве "ramais".
Я хочу использовать для каждого, чтобы получить нужную мне информацию в электронной таблице, названной в честь расширения, и поместить ее в столбец электронной таблицы "totais".
На самом деле у меня есть этот парень:
Sub relatoriofinal()
Sheets("Relatorio final").Select
Range("a2").Activate
Dim ramais
ramais = Array(2100, 2101, 2102, 2103, 2104, 2105, 2106, 2017, 2108, 2109, 2110)
Dim element As Variant
Dim firstAddress As String, c As Range, rALL As Range
For Each element In ramais
ActiveCell = element
Sheets("2100").Range("E3:F3").Copy
Worksheets("Relatorio final").Range("C2:C3").PasteSpecial xlPasteValuesAndNumberFormats
ActiveCell.Offset(1, 0).Select
Next
End Sub
я хотел изменить
Sheets("2100").Range("E3:F3").Copy
к чему-то вроде
Sheets("element").Range("E3:F3").Copy
, поэтому он будет правильно искать в той же таблице, названной в честь элемента, над которым работает каждый.
Как я могу это сделать?