Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Макрос печати листов по условию, с помощью цикла
 
Nordheim, ошибку даёт. Буду ручками печатать каждый лист  :) . Всем спасибо.  
Макрос печати листов по условию, с помощью цикла
 
Nordheim, к сожалению сюда размер не позволяет загрузить. а так если в не напряг можно посмотреть тут https://yadi.sk/i/UgQdAm5XW4_Dzw.
Пробовал вариант от Nordheim, к сожалению не сработал. Макрос привязаен к кнопке Печать учётных листов.
Спасибо всем откликнувшимся.
Макрос печати листов по условию, с помощью цикла
 
Hugo, точно не знаю
Макрос печати листов по условию, с помощью цикла
 
Александр Моторин,  на первой картинке выдаёт ошибку без вашей строки, а на второй с вашей строкой
Макрос печати листов по условию, с помощью цикла
 
Александр Моторин, возможно. Попробую название макроса поменять .

Принтер исправлен. Спасибо.
Макрос печати листов по условию, с помощью цикла
 
Добрый день.

Стал выдавать макрос ошибку. Хотя раньше работал.В чём может быть причина?

Код
Sub MyPrint()
Dim sh As Worksheet, s
With ThisWorkbook
For Each sh In .Worksheets
If Not sh.[P5].Value = 0 Then s = s & sh.Name & ","
Next sh
s = Split(Left(s, Len(s) - 1), ",")
.Worksheets(s).PrintOut Copies:=1
End With
End Sub
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
V, тоже вариант.Спасибо!
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
Сергей, вы как всегда на высоте. Большое спасибо!
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
Добрый день форумчане.
Чтобы не плодить темы, решил написать в своей же. Да и тема такая же.
Стыдно признаться,но не знаю как реализовать решение с двумя зависимыми выпадающими списками и подстановкой значения в ячейку формулой.

На листе Обслуга есть столбцы Месяц и Должность. Выбираешь месяц, затем должность, в в ячейке столбца Часовая ставка должно проставиться значение с таблицы листа Штатка

Вроде должно быть всё по анологии как выше в этой теме, но не получается. Или неправильно именную диапозоны.Может структуру самой таблицы надо изменить, вверху горизонтально расположить месяца,а сбоку вертикально должность?
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
Сергей, спасибо за участие. с обеда попробую. У нас же час дня. :)
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
Сергей, извиняюсь. Подписал столбцы в таблицах,внёс значения. Думаю теперь будет понятно. Таблицы динамические, строки будут добавляться.
Зависимые выпадающие списки с заполнением четырёх ячеек по строке
 
Доброе утро форумчане.

Есть вопрос по зависимым выпадающим спискам. Первые два зависимых выпадающих списка понятно как реализовать. А вот как дальше делать я запурхался. Как реализовть чтобы при выборе в выпадающем списке столбца Е, четыре следующих значения по строке  копировались соответственно в свои ячейки. ВПР?
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Nordheim, спасибо за помощь. Учитывая что сегодня воскресенье, то в двойне  :)
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Дмитрий(The_Prist) Щербаков, вы правы, вроде работает. Сейчас пообкатываю. Спасибо большое!
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Дмитрий(The_Prist) Щербаков,  вот что выходит при выполнении кода
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Цитата
БМВ написал:
Workbook_NewSheet и Workbook_SheetBeforeDelete.
События добавления или удаления листа? Удаляться листы не будут, только добавляться.
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Nordheim,  вот что код говорит ваш
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Код
Sub CopySheet()
    'Копирование листа
    Application.ScreenUpdating = False
    With Worksheets("таблица")
      .Copy After:=Sheets(ActiveSheet.Index)
      On Error Resume Next
      With ActiveSheet
        Do: Err.Clear: s = InputBox("Новое имя ?", , .Name)
          If Len(s) Then
            .Name = s
            .[e1] = s
          Else
            .Delete  ' Если отмена, то удаляем лист.
          End If
          If Err Then MsgBox Err.Description, vbInformation
        Loop While Err
      End With
      s.Activate
      'Sheets("Оглавление").Activate
    End With
    Application.ScreenUpdating = True
  
End Sub
БМВ, Вы имели ввиду доработать этот код, чтобы сразу при копировании  на странице Оглавление добавлялась запись с ячейки E1 в виде гиперссылке? Хороший был бы способ. Листы будут создаваться только через макрос. Я точно это сам не смогу сделать. :)  
Изменено: Василий Осипов - 27.01.2019 11:34:40
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Nordheim, работает но не совсем так как надо. Надо чтоб в списке гиперссылок выводился текст с ячейки Е1 каждого листа, если конечно эта ячейка не пуста
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Цитата
БМВ написал:
Ну основываясь на прошлой теме, просто добавить формирование оглавления или добавления одного его элемента при копировании листа
Можно подправить макрос с прошлой темы?  
Автоматическое создание гиперссылок на листы в книге по определённому условию
 
Добрый день форумчане.
Нужны светлые головы. Поискал по этой теме в интернете, но не могу сообразить как прикрутить к своей хотелки.
Есть потребность автоматически создавать гиперссылки на все листы в книге, по условию что если на листе  ячейка Е1
не пустая. Гиперссылки должны формироваться на листе "Оглавление" в столбце С, начиная с ячейки С3 и вниз.Текст гиперссылок должен быть содержимым ячеек Е1. Как то формулами думаю это наверно реализовать сложно, если вообще возможно.Наверно макросом только. Забыл уточнить что листы в книге не постоянны. Будут добавляться.  
Изменено: Василий Осипов - 27.01.2019 10:19:36
Копирование определённого листа через макрос.
 
gling,прям в бровь. Спасибо!!!
Копирование определённого листа через макрос.
 
gling,ну так выходной же. Суббота или воскресенье,итог один- быстро пройдут  :cry:  
Копирование определённого листа через макрос.
 
Anchoret, благодарю.
копирует, но остаётся на странице "таблица", а она будет скрыта.Надо оставаться на новой скопированной странице.
Копирование определённого листа через макрос.
 
БМВ, извиняюсь за наглость,но рискну спросить. При копировании листа всплывает копируемый лист. Никак нельзя оставаться на листе Оглавление, а копирование происходило, так сказать по тихому :sceptic:
Это даже наверно не суть важно,важнее в случае отмены копирования не оставаться на копируемом листе,а возращаться на лист Оглавление,лист Таблица  будет мною скрыт и являться как бы шаблоном ,чтобы пользователь не попортил его.
Изменено: Василий Осипов - 26.01.2019 20:20:55
Копирование определённого листа через макрос.
 
Ну да. Забыл я что выходной сегодня
БМВ, Очень признателен за код.  ;)  Всё работает.
Копирование определённого листа через макрос.
 
БМВ, ну так я это и написал что на другом ресурсе такая же тема создана. Никто не откликается. Создал здесь.
Копирование определённого листа через макрос.
 
Прошу помощи у специалистов. В файле есть страница Оглавление. На ней кнопка копировать. Нужно копировать страницу Таблица с вводом в форму желаемого имени. Дополнительно чтобы имя нового листа вводилось в ячейку E1.

На вот этом ресурсе я так-же создал такую тему, но пока никто не откликнулся
Изменено: Василий Осипов - 26.01.2019 15:59:43
Формула массива для подсчёта уникальных значений, В фиксированной таблице работает, в динамической нет.
 
=СУММПРОИЗВ((ЧАСТОТА(ПОИСКПОЗ(A5:A37&"";A5:A37&"";0);ПОИСКПОЗ(A5:A37&"";A5:A37&"";0))>0)*ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ(A6;СТРОКА(A5:A39)-СТРОКА(A6);)))

То есть формула должна быть такая? Туплю по полной :(
Изменено: Василий Осипов - 25.01.2019 13:14:30
Формула массива для подсчёта уникальных значений, В фиксированной таблице работает, в динамической нет.
 
Сергей, ну я точно не телепат. растолкуйте детятки малому :)  
Страницы: 1 2 След.
Наверх