Всех женщин с праздником! Любви, удачи! Мужчинам - терпения! Подскажите как из умных таблиц (будут создаваться макросом) вставить соответствующие значения в таблицу на листе СВОДНЫЙ Наименование смет соответствует наименованию листов, критерии значений соответствуют столбцам можно макросом, можно формулами (если формулы то будут вставляться макросом) , что проще-быстрее листов может быть и под 100
Всех женщин с праздником! Любви, удачи! Мужчинам - терпения! Подскажите как из умных таблиц (будут создаваться макросом) вставить соответствующие значения в таблицу на листе СВОДНЫЙ Наименование смет соответствует наименованию листов, критерии значений соответствуют столбцам можно макросом, можно формулами (если формулы то будут вставляться макросом) , что проще-быстрее листов может быть и под 100Gjlhzl
причем, через сводные таблицы не обязательно...это как вариант, просто нужно из таблиц (умные они тоже макросом делаются - сначала имеется простая таблица...может и не нужно в умные переводить, изначально в книгу макросом вставляются просто листы с данными требуеться выудить именно эти значения что в сводной отфильтрованы подскажите как это сделать...
причем, через сводные таблицы не обязательно...это как вариант, просто нужно из таблиц (умные они тоже макросом делаются - сначала имеется простая таблица...может и не нужно в умные переводить, изначально в книгу макросом вставляются просто листы с данными требуеться выудить именно эти значения что в сводной отфильтрованы подскажите как это сделать...Gjlhzl
Сообщение отредактировал Gjlhzl - Среда, 08.03.2023, 20:11
Sub u_745() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row b = Sheets.Count If a > 3 Then Rows("3:" & a - 1).Delete Shift:=xlUp Sheets("СВОДНЫЙ").ListObjects("Таблица7").Resize Range("a1:f" & b + 1) For c = 2 To b d = Sheets(c).Name Sheets("СВОДНЫЙ").Hyperlinks.Add Anchor:=Range("a" & c), Address:="#" _ , SubAddress:="'" & d & "'!A1", TextToDisplay:=d Cells(c, 2) = Sheets(c).Range("s10").Value Cells(c, 3) = Sheets(c).Range("s11").Value Cells(c, 4) = Sheets(c).Range("s12").Value Cells(c, 5) = Sheets(c).Range("s13").Value Cells(c, 6) = Sheets(c).Range("s14").Value Next Application.ScreenUpdating = True End Sub
[/vba]наверно
как-то так [vba]
Код
Sub u_745() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row b = Sheets.Count If a > 3 Then Rows("3:" & a - 1).Delete Shift:=xlUp Sheets("СВОДНЫЙ").ListObjects("Таблица7").Resize Range("a1:f" & b + 1) For c = 2 To b d = Sheets(c).Name Sheets("СВОДНЫЙ").Hyperlinks.Add Anchor:=Range("a" & c), Address:="#" _ , SubAddress:="'" & d & "'!A1", TextToDisplay:=d Cells(c, 2) = Sheets(c).Range("s10").Value Cells(c, 3) = Sheets(c).Range("s11").Value Cells(c, 4) = Sheets(c).Range("s12").Value Cells(c, 5) = Sheets(c).Range("s13").Value Cells(c, 6) = Sheets(c).Range("s14").Value Next Application.ScreenUpdating = True End Sub
Nic70y, спасибо.работает а подскажите пожалуйста а как макросом создать на всех листах с обычных диапазонов умные таблицы, когда диапазоны разные и имена не определены то есть в примере я вручную создал умные таблицы на листах и после вручную сводные уже, а как макросами на каждом листе сначала умные создать после сводные ...думал сам справлюсь че то никак или создать новую тему нужно?
Nic70y, спасибо.работает а подскажите пожалуйста а как макросом создать на всех листах с обычных диапазонов умные таблицы, когда диапазоны разные и имена не определены то есть в примере я вручную создал умные таблицы на листах и после вручную сводные уже, а как макросами на каждом листе сначала умные создать после сводные ...думал сам справлюсь че то никак или создать новую тему нужно?Gjlhzl