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

Страницы: 1
Макрос: переход на другой лист по условию
 
#
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 18:46:30
Суть проблемы. Есть лист на 5000 строк. Требуется в выделенном диапазоне (например: В323 : В1346 залить цветом (выбранным  на вкладке Главная) каждую 5 ячейку.
 
Перейти    
Копирование листа из одной книги в другую
 
#
21.10.2019 09:55:14
Доброго времени суток!

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

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

Есть книга с 45+ листами. Для нормальной функциональности, нужно в части листов отсортировать данные в столбце В2  от А до Я. Можно это как-то автоматизировать? Возможно макрос или что-то другое. Заранее благодарен за помощь.
 
Перейти    
Отмена преобразования записи в дату и время, Отмена преобразования записи в дату и время
 
#
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:41:15
Нужна формула которая в столбце "вывод" прописывала бы месяц с самым высоким показателем или ссылка на похожую тему на форуме (не нашёл  :cry: )
Изменено: Puhlyi - 15.12.2018 12:43:39
 
Перейти    
Страницы: 1
Наверх