Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Собрать данные с листов на отдельный лист (свод). - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Собрать данные с листов на отдельный лист (свод). (Формулы/Formulas)
Собрать данные с листов на отдельный лист (свод).
Mark1976 Дата: Пятница, 23.04.2021, 11:53 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 662
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Есть база данных (пока 150 учреждений) в дальнейшем больше. Мне необходимо сделать свод на отдельном листе из определенных ячеек (в примере прописал названия ячеек). Возможно это сделать формулами или нужен макрос? Заранее спасибо за решение.
К сообщению приложен файл: 3276977.xlsx(17.3 Kb)
 
Ответить
СообщениеЗдравствуйте. Есть база данных (пока 150 учреждений) в дальнейшем больше. Мне необходимо сделать свод на отдельном листе из определенных ячеек (в примере прописал названия ячеек). Возможно это сделать формулами или нужен макрос? Заранее спасибо за решение.

Автор - Mark1976
Дата добавления - 23.04.2021 в 11:53
Nic70y Дата: Пятница, 23.04.2021, 12:28 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6875
Репутация: 1574 ±
Замечаний: 0% ±

Excel 2010
или нужен макрос?
им проще
[vba]
Код
Sub SheetsSvod()
    Application.ScreenUpdating = False
    For v = 1 To Sheets.Count - 1
        Range("a" & v + 1) = Sheets(v).Range("c1").Value
        Range("b" & v + 1) = Sheets(v).Range("c2").Value
        Range("c" & v + 1) = Sheets(v).Range("c9").Value
        Range("d" & v + 1) = Sheets(v).Range("c10").Value
        Range("e" & v + 1) = Sheets(v).Range("c11").Value
        Range("f" & v + 1) = Sheets(v).Range("c12").Value
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 18.xlsm(26.4 Kb)


ЮMoney(Яндекс Деньги) 41001841029809

Сообщение отредактировал Nic70y - Пятница, 23.04.2021, 12:30
 
Ответить
Сообщение
или нужен макрос?
им проще
[vba]
Код
Sub SheetsSvod()
    Application.ScreenUpdating = False
    For v = 1 To Sheets.Count - 1
        Range("a" & v + 1) = Sheets(v).Range("c1").Value
        Range("b" & v + 1) = Sheets(v).Range("c2").Value
        Range("c" & v + 1) = Sheets(v).Range("c9").Value
        Range("d" & v + 1) = Sheets(v).Range("c10").Value
        Range("e" & v + 1) = Sheets(v).Range("c11").Value
        Range("f" & v + 1) = Sheets(v).Range("c12").Value
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 23.04.2021 в 12:28
Mark1976 Дата: Пятница, 23.04.2021, 12:35 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 662
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, спасибо большое.
 
Ответить
СообщениеNic70y, спасибо большое.

Автор - Mark1976
Дата добавления - 23.04.2021 в 12:35
Mark1976 Дата: Пятница, 23.04.2021, 14:33 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 662
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, я правильно понял, если мне надо добавить данные просто вставляю в макрос новую строку?

[vba]
Код
Range("f" & v + 1) = Sheets(v).Range("c20").Value
[/vba]
 
Ответить
СообщениеNic70y, я правильно понял, если мне надо добавить данные просто вставляю в макрос новую строку?

[vba]
Код
Range("f" & v + 1) = Sheets(v).Range("c20").Value
[/vba]

Автор - Mark1976
Дата добавления - 23.04.2021 в 14:33
Nic70y Дата: Пятница, 23.04.2021, 14:36 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 6875
Репутация: 1574 ±
Замечаний: 0% ±

Excel 2010
правильно, но не совсем
"f" это столбец F - он уже используется
Range("f" & v + 1) = Sheets(v).Range("c12").Value


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщениеправильно, но не совсем
"f" это столбец F - он уже используется
Range("f" & v + 1) = Sheets(v).Range("c12").Value

Автор - Nic70y
Дата добавления - 23.04.2021 в 14:36
Mark1976 Дата: Пятница, 23.04.2021, 14:50 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 662
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, теперь понял. использую следующий.
 
Ответить
СообщениеNic70y, теперь понял. использую следующий.

Автор - Mark1976
Дата добавления - 23.04.2021 в 14:50
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Собрать данные с листов на отдельный лист (свод). (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!