Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
создание листов по образцу с заполнением из таблицы
 
Подскажите пожалуйста как мне нужно создать еще 90 листов и чтобы в них проставлялись формулы в автомате. На первых трех листах я формулы проставляла вручную данные брала из сводной(1 лист).
 
Тема: создание листов по образцу с заполнением из таблицы
Создайте лист Образец.
При активном листе "сводная" запустите макрос
Код
Sub CreateList()
Dim i As Long
Dim iLastRow As Long
Dim List1 As Worksheet
  Set List1 = ThisWorkbook.Worksheets("сводная")
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    Worksheets("Образец").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = List1.Cells(i, "A")
    With List1
      .Range("A" & i).Copy Range("A2")       'ФИО
      .Range("B" & i).Copy Range("E2")       'л/с
      .Range("D" & i).Copy Range("C4")       'калории
      .Range("E" & i).Copy Range("D4")       'тариф
      .Range("F" & i).Copy Range("E4")       'сумма
      Range("E4").NumberFormat = "#,##0"
    End With
  Next
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх