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

Страницы: 1
Выполняется только первое условие кода, VBA, Выполняется только первое условие
 
Ігор Гончаренко, Дмитрий(The_Prist) Щербаков, Пытливый,

спасибо всем! заработало, сделал как сказал Дмитрий(The_Prist) Щербаков,

Цитата
Дмитрий(The_Prist) Щербаков написал:
1If Not ActiveWorkbook.Name Like "Отчет по Центру А*" Then
Выполняется только первое условие кода, VBA, Выполняется только первое условие
 
Апострофф, со звездочками пример нашел ( тут )
Выполняется только первое условие кода, VBA, Выполняется только первое условие
 
Пытливый, просто ранее на форуме ( тут ) мне предлагали именно такой метод
Выполняется только первое условие кода, VBA, Выполняется только первое условие
 
Привет!

Друзья, посмотрите код, у меня работает только 1 условие:
Код
Sub clearRT()

If ActiveWorkbook.Name <> "Отчет по Центру А*" Then
 Application.ActiveSheet.range("F6:G26").ClearContents
 Application.ActiveSheet.range("L6:L26").ClearContents
ElseIf ActiveWorkbook.Name <> "Отчет по Центру Б*" Then
 Application.ActiveSheet.range("G6:H23").ClearContents
 Application.ActiveSheet.range("M6:M23").ClearContents
ElseIf ActiveWorkbook.Name <> "Отчет по Центру В*" Then
 Application.ActiveSheet.range("F6:G10").ClearContents
 Application.ActiveSheet.range("L6:L10").ClearContents

End if

end
Здесь точно такое же:
Код
If ActiveWorkbook.Name <> "Отчет по Центру А*" Then
Application.ActiveSheet.range("B2").Value = "Центр А" & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)
ElseIf ActiveWorkbook.Name <> "Отчет по Центру Б*" Then
Application.ActiveSheet.range("B2").Value = "Центр Б " & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)
ElseIf ActiveWorkbook.Name <> "Отчет по Центру В*" Then
Application.ActiveSheet.range("B2").Value = "Центр В " & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)

End If

END

Работает только условие по центру А при любом названии книги, как исправить?
Сделать название дня недели с заглавной буквы
 
Привет!
Код
Application.ActiveSheet.range("B2").Value = "Отчет от " & Format(Now - 1, "dd.mm.yy DDDD")

- выдает "Отчет от 22.10.19 вторник"
как поправить так, чтобы было не "вторник", а "Вторник"?
VBA Работа с датами
 
Привет!

Друзья, подскажите макрос, который писал бы в ячейку дату вчерашнего дня в формате: "Магазин "Детский Мир" 22.10.19 Вторник"

Приходится делать на ежедневной основе. Часть "Магазин "Детский Мир" - всегда одинаковая. А вот дата всегда вчерашняя. (если сег 23, то нужно 22)
Макрос с условием по названиям рабочих книг
 
Привет!

Друзья, не подскажете реально ли сделать следующее:

У меня есть 80 рабочих excel-книг с разными названиями. Дело в том, что каждый день необходимо новую вкладку по новому дню, чистить таблицу и прочие формальные моменты. Я могу написать макрос для очистки таблицы. Но в разных книгах таблицы отличаются друг от друга.

Можно ли написать такой макрос, чтобы он, видя название файла применял один из методов соответствующей очистки таблицы?

Например, есть книги
"Отчет А"
"Отчет Б"
"Отчет В"

Что я хочу от макроса:

Если открыт отчет А, то применить метод очистки для А (заранее написанный)
Иначе
Если открыт отчет Б, то применить метод очистки для Б
...
и так далее

если это возможно, то дайте подсказку в каком направлении двигаться
Материалы по обучению VBA
 
супер
дополню от себя, на русском:
https://docs.microsoft.com/ru-ru/office/vba/api/overview/library-reference/reference-object-library-reference-for-office
Материалы по обучению VBA
 
Привет!

Друзья, не подскажете материалов, сайтов, литературы благодаря которой можно было бы обучиться VBA от начального до мастерского уровня. Думаю, многим будет полезно. Если такой топик уже есть, поделитесь ссылкой.
VBA. Циклично копировать значение строки до следующей.
 
Пытливый, Андрей_26, вы просто гении!
VBA. Циклично копировать значение строки до следующей.
 
Привет!
Нужна помощь знатоков VBA. Файл прикрепил.

Дело в том, что копировать от строки до строки очень и очень долго, в примере лишь часть файла, а по факту он огромен.
Нужен макрос, который копировал бы значение строки до тех пор, пока не появится иное значение. А затем копировал это иное значение пока не появится третье и так далее.

Начало таблицы всегда одинаковое, однако количество фамилий (строк соответственно) постоянно меняется.
Страницы: 1
Наверх