Почему нет равенства?

[valerij]

Всем привет, не пойму почему нет равенства?

Sub zxc()
    Sheets(1).[C3] = Date
        If Sheets(1).[C3] = "10.01." & Year(Date) & "" Then
            MsgBox 555
        End If
End Sub

Если взглянуть по отдельности
MsgBox Sheets(1).[C3]
и
MsgBox "10.01." & Year(Date) & ""
то кажет абсолютно одинаковые данные.

[pashulka]

Вот так прокатит сравнение :

If Sheets(1).[C3] = DateSerial(Year(Now), 1, 10) Then

If Sheets(1).[C3] = CDate("10.01." & Year(Now)) Then

If Format(Sheets(1).[C3], "DD.MM.YYYY") = "10.01." & Year(Now) Then

[valerij]

Сообщение от pashulka

Вот так прокатит сравнение

Всё супер, один вопрос снят, а может и второй прокатит.

Как обойти папку?

Private Sub Workbook_Open()
    Sheets(1).[B2] = Date
    If Sheets(1).[B2] = "31.12.2014" Then
        MkDir "H:\Заявки\" & Year(Date) + 1
    End If
End Sub

Как сделать, что если папка уже создана, то обойти - MkDir ?

Спасибо.

[pashulka]

Предлагаю такой подход, если папки с текущим годом не существует, то создаём её :

Private Sub Workbook_Open()
    'Sheets(1).[B2] = Date
    
    iPath$ = "H:\Заявки\" & Year(Date)
    If Dir(iPath$, vbDirectory) = "" Then MkDir iPath$
End Sub

[valerij]

Сообщение от pashulka

Предлагаю такой подход, если папки с текущим годом не существует, то создаём её

Но создать её надо именно 31.12.хххх

[pashulka]

Если Вас не волнует что человек может :

не выйти на работу 31 декабря
не открыть 31 декабря файл с макросом

то можете просто добавить в первоначальный вариант (пост#1,2) - проверку на существование папки (пост#4)

[valerij]

Сообщение от pashulka

Если Вас не волнует что человек может :

не выйти на работу 31 декабря
не открыть 31 декабря файл с макросом

то можете просто добавить в первоначальный вариант (пост#1,2) - проверку на существование папки (пост#4)

Нет, все выходят, открывают, просто сам файл 2014 года его ещё надо хранить в папке 2014, а подготовка на 2015 год идёт в 2014...

Во написал, сейчас всё проверю.

Всё отлично.

Спасибо.

[Hugo121]

Сообщение от valerij

Но создать её надо именно 31.12.хххх

- почему?
Создать вручную за минуту десяток (или пару десятков) папок впрок и забыть о проблеме навсегда не вариант? О форуме забывать не предлагаю
О том, что можно просто проверять наличие папки каждый раз уже говорили.

[valerij]

Сообщение от Hugo121

- почему?.

потому, что в папке ГОД ещё есть папка с текущим месяцем и туда ложится файл 31 числа, а отсылается файл производителю по почте как следующий день и сохраняется этот файл по именем 01.01.2015 год, значит он уже должен лечь в папку 2015 и в подпапку январь.
И всё это происходит в последний день текущего года.
И так каждый день в течении года, я раз в году приезжал к диспетчеру и правил папки, всё хотел сделать на автомат, но раз поправил и на год забыл, а вот решил наконец то за 5 лет

Создать вручную за минуту десяток (или пару десятков) папок впрок и забыть о проблеме навсегда не вариант?

Теперь понятно, что не вариант?
Тогда всю остальную программу править, зачем, если так всё куда проще.

[Hugo121]

Всё равно не понял, почему нельзя заранее папок наплодить, но не важно...
Мне вообще эта затея с папками не нравится, почему нельзя всё держать в одной папке, раз уже и так в имени файла есть всё что нужно? Только я бы называл файлы иначе - например 20150101, так при сортировке по имени будет хронологический порядок.
Чтоб файл отослать - его по имени можно легко выбрать из кучи.
Зато обработка всего процесса скриптами намного проще, да и глазами сразу видно всё это богатство
А если когда-то кому-то понадобится их разложить по папкам - легко сделать простым скриптом, ну или вручную пару минут работы раз в 10 лет.