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

Страницы: 1
Макрос: переход на другой лист по условию
 
#
14.11.2020 02:18:40
Огромадное  СПАСИБО!!!
 
Перейти    
Макрос: переход на другой лист по условию
 
#
14.11.2020 01:05:54
Здравствуйте, Подскажите как в макросе прописать переход на другой лист по условию. Знания языка скудные.

Описание: В книге 3 листа "DATALIST", "DATA", "DATABASE". Макрос запускается на листе "DATA" и распределяет значения на листе  "DATABASE" по окончании работы макроса, происходит переход на лист "DATALIST".

Нужно: чтобы по окончании работы макрос осуществлял переход на другой лист по условию.

Условие: Если значение в ячейке "AY1" на листе "DATABASE" больше 2 ("AY1">2), то осуществлялся переход на лист "DATABASE", если меньше или ровно 2 ("AY1"<=2), то осуществлялся переход на лист "DATALIST".

Вот собственно сам макрос"
Код
Sub ToDATABASE()
Dim q1 As Integer
   q1 = Worksheets("DATABASE").Range("E" & Cells.Rows.Count).End(xlUp).Row + 1
    
   Worksheets("DATABASE").Range("A" & q1) = Worksheets("DATA").Range("L3")
   Worksheets("DATABASE").Range("B" & q1) = Worksheets("DATA").Range("C3")
   Worksheets("DATABASE").Range("C" & q1) = Worksheets("DATA").Range("C4")
   Worksheets("DATABASE").Range("D" & q1) = Worksheets("DATA").Range("O3")
   Worksheets("DATABASE").Range("E" & q1) = Worksheets("DATA").Range("C7")
   Worksheets("DATABASE").Range("F" & q1) = Worksheets("DATA").Range("D7")
   Worksheets("DATABASE").Range("G" & q1) = Worksheets("DATA").Range("E7")
   Worksheets("DATABASE").Range("H" & q1) = Worksheets("DATA").Range("F7")
   Worksheets("DATABASE").Range("I" & q1) = Worksheets("DATA").Range("G7")
   Worksheets("DATABASE").Range("J" & q1) = Worksheets("DATA").Range("H7")
   Worksheets("DATABASE").Range("K" & q1) = Worksheets("DATA").Range("I7")
   Worksheets("DATABASE").Range("L" & q1) = Worksheets("DATA").Range("J7")
   Worksheets("DATABASE").Range("M" & q1) = Worksheets("DATA").Range("K7")
   Worksheets("DATABASE").Range("N" & q1) = Worksheets("DATA").Range("L7")
   Worksheets("DATABASE").Range("O" & q1) = Worksheets("DATA").Range("M7")
   Worksheets("DATABASE").Range("P" & q1) = Worksheets("DATA").Range("N7")
   Worksheets("DATABASE").Range("Q" & q1) = Worksheets("DATA").Range("O7")
   Worksheets("DATABASE").Range("T" & q1) = Worksheets("DATA").Range("L4")
   Worksheets("DATABASE").Range("U" & q1) = Worksheets("DATA").Range("M4")
   Worksheets("DATABASE").Range("V" & q1) = Worksheets("DATA").Range("N4")
   Worksheets("DATABASE").Range("W" & q1) = Worksheets("DATA").Range("C5")
   Worksheets("DATABASE").Range("X" & q1) = Worksheets("DATA").Range("D5")
   Worksheets("DATABASE").Range("Y" & q1) = Worksheets("DATA").Range("E5")
   Worksheets("DATABASE").Range("AG1") = Worksheets("DATA").Range("C5")
   Worksheets("DATABASE").Range("AH1") = Worksheets("DATA").Range("D5")
   
   
   Sheets("DATALIST").Select
    Application.ScreenUpdating = True
       
   
    
    
End Sub
 
Перейти    
Очистка фильтров таблиц
 
#
14.10.2020 18:51:23
Здравствуйте, Есть макрос очищающий все фильтры на листе.
Код
Sub Clean_F()
'
' Clean_Filter
'
    ActiveSheet.ShowAllData

End Sub

Файл на 30К+ строк при помощи фильтров я нашёл искомое(допустим ячейка (Р4567). выделил ячейку теперь мне нужно сбросить фильтры но  так чтобы активная ячейка оказалась перед глазами.
Но на деле при сбрасывании фильтров, таблица переходит в начало. То есть на мониторе я вижу таблицу от "А1-Х35", нужно от "А4550-Х4584"
как сделать что бы выделенная(активная) ячейка была по центру.
Изменено: Puhlyi - 15.10.2020 18:27:24
 
Перейти    
[ Закрыто] Есть ли решение формулой?, Заливка ячейки цветом в выделенном диапазоне через заданные промежутки
 
#
24.06.2020 19:04:43
Смотрел, но проблема в том что ячейки пустые.
 
Перейти    
[ Закрыто] Есть ли решение формулой?, Заливка ячейки цветом в выделенном диапазоне через заданные промежутки
 
#
24.06.2020 18:46:30
Суть проблемы. Есть лист на 5000 строк. Требуется в выделенном диапазоне (например: В323 : В1346 залить цветом (выбранным  на вкладке Главная) каждую 5 ячейку.
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
22.10.2019 18:39:18
Спасибо огромадное!!!
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 21:07:19
Сортировать нужно только те листы, что были в файле-примере.
По любому спасибо что нашли время!
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 14:15:10
Свой. Оригинальный файл выслал в приват
 
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 12:26:10
Всё таки я криворукий :(

теперь выдаёт такую ошибку
Изменено: Puhlyi - 21.10.2019 12:26:55
 
Перейти    
Копирование листа из одной книги в другую
 
#
21.10.2019 12:05:07
Спасибо гляну
 
Перейти    
Копирование листа из одной книги в другую
 
#
21.10.2019 11:10:19
Цитата
Юрий М написал:
Код ? 123456Sub qqq()Dim i As Long    For i = 1 To 300        ThisWorkbook.Sheets("Лист1").Copy    NextEnd Sub
Если я правильно понял это макрос который копирует Лист1 300 раз но вот куда? Как указать книги куда этот лист нужно скопировать
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 11:02:41
Цитата
bedvit написал:
т.е. нужно создать единый массив и его отсортировать.
нет всё отлично только надо отладить, единый массив не нужен.
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 10:57:47
А можно в файле-примере сделать любую кнопку и прописать макрос. Возможно я криворукий :)
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 10:42:41
Выдаёт ошибку.
Изменено: Puhlyi - 21.10.2019 10:53:23
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 10:10:18
Нескольких листов. Но везде это столбец В2
 
Перейти    
Копирование листа из одной книги в другую
 
#
21.10.2019 09:55:14
Доброго времени суток!

Задача:
Есть лист не содержит макросов и формул, только условное форматирование и стили, его нужно скопировать в другие книги (300+ книг). в одну книгу не проблема открыл обе и скопировал но так делать 300+ раз тяжко, можно это как-то автоматизировать или упростить?

Заранее благодарен за совет?
 
Перейти    
Автоматизация сортировки данных от А до Я на нескольких листах в пределах одной книги
 
#
21.10.2019 09:32:01
Доброго времени суток!

Есть книга с 45+ листами. Для нормальной функциональности, нужно в части листов отсортировать данные в столбце В2  от А до Я. Можно это как-то автоматизировать? Возможно макрос или что-то другое. Заранее благодарен за помощь.
 
Перейти    
В макросе сменить IE на Edge или Хром
 
#
10.08.2019 11:15:00
Спасибо всем!
 
Перейти    
Отмена преобразования записи в дату и время, Отмена преобразования записи в дату и время
 
#
14.06.2019 20:17:05
СПАСИБО ОГРОМНОЕ!
 
Перейти    
Отмена преобразования записи в дату и время, Отмена преобразования записи в дату и время
 
#
14.06.2019 17:10:58
Это не работает(((

как только я осуществляю замену ":"  на "-" или наоборот для приведения к единообразию. Все сбиваться на даты и время.
 
Перейти    
Отмена преобразования записи в дату и время, Отмена преобразования записи в дату и время
 
#
14.06.2019 12:51:58
есть таблица с архивом футбольных матчей где часть счета матча записаны как "2:2", часть в "2-2" при копирование и вставке части данных на другой лист счёт преобразуется в "2:02:00" и "02.02.2019". Как от этого избавиться?
 
Перейти    
В макросе сменить IE на Edge или Хром
 
#
30.03.2019 10:34:23
Нужно в макросе изменить данную строку
Код
Set ie = CreateObject("InternetExplorer.Application")

на аналогичную для Edge или Хром
Перешёл на Windows 10. Макрос стал выдавать ошибку. Возможно есть способ вернуть IE.
 
Перейти    
Вывод по наиболее высокому показателю(Excel 2013), Нужно самое простое решение
 
#
15.12.2018 12:59:31
Громадное спасибо!!
 
Перейти    
Вывод по наиболее высокому показателю(Excel 2013), Нужно самое простое решение
 
#
15.12.2018 12:46:24
Спасибо! А можно данное решение, но только через функцию Если. (нужно для других целей)
 
Перейти    
Вывод по наиболее высокому показателю(Excel 2013), Нужно самое простое решение
 
#
15.12.2018 12:41:15
Нужна формула которая в столбце "вывод" прописывала бы месяц с самым высоким показателем или ссылка на похожую тему на форуме (не нашёл  :cry: )
Изменено: Puhlyi - 15.12.2018 12:43:39
 
Перейти    
Страницы: 1
Наверх