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

Страницы: 1
Автоматический запуск макроса при изменении значение в выбранном диапазоне
 
#
12.11.2018 16:14:20
Вы изменили код примера из предыдущей вашей темы и не правильно.  
 
Перейти    
Автоматический запуск макроса при изменении значение в выбранном диапазоне
 
#
12.11.2018 15:50:12
Или я чего то не понимаю, возможно не внимательно прочитал. Изменяем значение в диапазоне D35:D52, меняется E35:E52 на новую дату, далее происходит сортировка на листе 2. Все работает
 
Перейти    
Автоматическая сортировку на другом листе
 
#
12.11.2018 13:26:39
Смотрите
 
Перейти    
Автоматическая сортировку на другом листе
 
#
12.11.2018 12:30:41
Условия те которые вы просили (при изменении суммы), плюс сортировка даты по убыванию
 
Перейти    
Автоматическая сортировку на другом листе
 
#
12.11.2018 12:04:28
Посмотрите
 
Перейти    
Автоматическая сортировку на другом листе
 
#
12.11.2018 11:47:45
В данной строке ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("B5"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
заменить Range("B5") на Range("А5")
 
Перейти    
Автоматическая сортировку на другом листе
 
#
12.11.2018 11:38:59
Добрый день! Во вложении
 
Перейти    
Оглавление книги разнести по столбцам
 
#
17.10.2018 05:00:31
Казанский, еще раз спасибо!
 
Перейти    
Оглавление книги разнести по столбцам
 
#
16.10.2018 19:27:06
Еще один вопрос. Как вывести оглавление через столбик? К примеру заполняются А,С,E,G и т.д. с теми же условиями Long = 40
 
Перейти    
Оглавление книги разнести по столбцам
 
#
16.10.2018 14:11:45
Казанский, спасибо, большое!
 
Перейти    
Оглавление книги разнести по столбцам
 
#
16.10.2018 13:53:58
Добрый день! Есть код оглавления книги. Данный макрос выводит оглавление на первый лист начиная с ячейки А1 и вниз в столбик. Возможно ли вывести оглавление в нужный диапазон к примеру начиная с А1 до А40 продолжая с В1 до В40 продолжая С1 до С40 и т.д. в зависимости от количества листов. Пример во вложении. Заранее спасибо!
Код
Sub SheetList()
   Dim sheet As Worksheet
   Dim cell As Range
   With ActiveWorkbook
      For Each sheet In ActiveWorkbook.Worksheets
         Set cell = Worksheets(1).Cells(sheet.Index, 1)
         .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A4"
         cell.Formula = sheet.Name
      Next
   End With
End Sub
 
Перейти    
Сохранение листа в отдельной книге с преобразованием формул в значения
 
#
11.10.2017 09:22:48
Добрый день.
 
Перейти    
Порядковый номер документа при печати.
 
#
11.10.2017 08:20:22
Добрый день.
 
Перейти    
Страницы: 1
Наверх