Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Adamantid
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Не работает формула в макросе, Не работает формула в макросе
 
#
04.07.2017 15:35:06
День добрый.

Форумчане, помогите пожалуйста.
Учусь создавать макрос, но пока не получается.
Код
Sub 123()
    Dim text As Variant
    Dim formula As Variant
    Application.ScreenUpdating = False
    Dim wb1 As Workbook, wb2 As Workbook, Mwb As Workbook, p$
    Set Mwb = ThisWorkbook
    p = Mwb.Path
    Set wb1 = Workbooks.Open(p & "/" & "1.xlsx")

      wb1.Sheets("ВЗ").Copy Before:=Mwb.Sheets(1)
      wb1.Sheets("Сиб").Copy Before:=Mwb.Sheets(2)
      wb1.Sheets("БК").Copy Before:=Mwb.Sheets(3)
      wb1.Sheets("КФС").Copy Before:=Mwb.Sheets(4)
      wb1.Sheets("ШК").Copy Before:=Mwb.Sheets(5)
      wb1.Sheets("ПП").Copy Before:=Mwb.Sheets(6)
      wb1.Sheets("Продо").Copy Before:=Mwb.Sheets(7)

      Workbooks("1.xlsx").Close False 'закрываем книгу
      Sheets("ОБЩИЙ").Select
      
    Range("С5").FormulaLocal = "=СУММЕСЛИМН(ВЗ!H:H;ВЗ!B:B;""Продажа заказ"")"
    Range("D5").FormulaLocal = "=НАИБОЛЬШИЙ(ВЗ!A:A;1)" 'Расчёт ВЗ
End Sub

Всё вроде работает, но без строчки:
 
Код
  Range("С5").FormulaLocal = "=СУММЕСЛИМН(ВЗ!H:H;ВЗ!B:B;""Продажа заказ"")"

Как только ставлю не работает.
Хотел таким образом написать ещё несколько строк, но смыла пока нет, не работает.

Помогите новичку.
 
Перейти    
Копирования нескольких листов, в книгу с выбором пути файла., Копирования нескольких листов, в книгу.
 
#
09.06.2017 13:29:52
День добрый.

Подскажите пожалуйста, нужен макрос.
Необходимо копировать нескольких листов ( к примеру 1,2,3,4,5,6,7 ), из книги (дд\мм\гг, переменный) предварительно выбрать файл, через проводник, откуда брать листы ( файл всегда в разных местах, но вкладки одни и те же 1,2,3,4,5,6,7)
Кнопка запуска находится в открытом файле "Пересчет", вкладки созданы 1,2,3,4,5,6,7.

Необходимо что бы листы (1,2,3,4,5,6,7) из файла который находится в разных местах, попали в файл "пересчёт".
 
Перейти    
Счёт по вертикали в зависимости от даты, Формулы
 
#
21.03.2017 23:17:35
Приветствую Вас.

Как посчитать количество выхода на работу на "завтра".
А также болен, выходной.

Но что бы формула была постоянной, и учет менялся в зависимости от завтрашней даты, как бы сегодня()+1
 
Перейти    
Подсчёт ячеек с текстом, после копирования из файла с формулами, формулы
 
#
21.03.2017 15:20:14
День добрый.

После создания определенного файла формулами, копирую, только значения, в другой файл (без формул).
Но в ново созданном файле, при использовании подсчёта, с помощью =СЧЁТЕСЛИ(D2:D128;"*"), считает и пустые ячейки как занятые.
Так же при выделении всего столбца, в правом нижнем углу, выдаёт не верную информацию.
Приходится использовать формулу:
Код
=СЧЁТЕСЛИ(D2:D128;"*")-СЧИТАТЬПУСТОТЫ(D2:D128)

Есть ли какой-нибудь упрошенный вариант?

Может можно как то по другому копировать?
Может можно как то уменьшить формулу подсчета?
Может какой макрос?

В примере пустые ячейке: D3,6,7,10, но считаются как полные.
 
Перейти    
Как копировать цвет с выделенного диапазона, по условию?
 
#
19.03.2017 16:09:50
День добрый.

Как скопировать цвет, в столбец А, В, С и D, если в Е цвет выбирается по условному форматированию?
Условное форматирование по слову "Без водителя" - Желтый; "Ремонт" - Желтый; "Регион" - Тёмно красный.
Слова могут меняться местами в D и Е, изо дня в день.
 
Перейти    
Страницы: 1
Наверх