Здравствуйте. Есть база данных (пока 150 учреждений) в дальнейшем больше. Мне необходимо сделать свод на отдельном листе из определенных ячеек (в примере прописал названия ячеек). Возможно это сделать формулами или нужен макрос? Заранее спасибо за решение.
Здравствуйте. Есть база данных (пока 150 учреждений) в дальнейшем больше. Мне необходимо сделать свод на отдельном листе из определенных ячеек (в примере прописал названия ячеек). Возможно это сделать формулами или нужен макрос? Заранее спасибо за решение.Mark1976
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
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