Добрый день! После того как я разбиваю строки рассчетный счет теряет свой перво исходнный вид! помогите сохранить столбец рассчетного счета и бик в первоисходном ввиде!

Здравствуйте. Не работает макрос в офисе 365. Подскажите в чем может быть проблема?

Sub Tablica2dd()
Dim i As Long
Dim iLastRow As Long
Dim FoundNomer As Range
Dim j As Integer
iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
MsgBox iLastRow
With Worksheets("Рейсы")
 For i = 1 To iLastRow
   Set FoundNomer = .Columns(1).Find(Cells(i, "F"), , xlValues, xlWhole)
    If Not FoundNomer Is Nothing Then
      For j = 16 To 26
        If IsEmpty(.Cells(FoundNomer.Row, j + 1)) Or _
                   .Cells(FoundNomer.Row, j + 1) = Worksheets("Рейсы").Range("AX3") Then
          .Cells(FoundNomer.Row, j + 1) = Cells(i, "D") 'date
         
          .Cells(FoundNomer.Row, j + 11) = Cells(i, "I") 'summ
          .Cells(FoundNomer.Row, j + 21) = Cells(i, "K") 'tran
          Exit For
        End If
      Next
    Else
      MsgBox "На листе 'Лист2' нет номера: " & Cells(i, "F")
    End If
 Next
End With
End Sub

Добрый день подскажите пожалуйста как можно проверить макросом на наличие файла в папке по имени "навигация.*" расширение может быть какое угодно.

Добрый день. Надо в реестре по строчно проверить банковские реквизиты. порядок проверки данных указан  тут - https://normativ.kontur.ru/document?moduleId=1&documentId=24444

Если в реквизитах ошибка то выделить красным цветом.

Сколько будет стоить данная работа? Сколько по времени займет?

Добрый день. Нужно на VBA написать макрос. Суть Есть два листа первый "Рейсы" - на нем расположен список заказов. Второй лист "заг. расх." - это реестр оплаты контрагентам по нему нужно найти номер заказа на листе "Рейсы"  и отметить дату и сумму оплаты.

диапазон дат начинается с AU по BD
диапазон сумм начинается с BE по BN

Шагаем по листу "заг. расх." и ищем заявку на листе "Рейсы" если есть убеждаемся что первая ячейка AU равна "" или "00.01.1900"  тогда туда вставляем дату из ячейки  "заг. расх."  В2, если условие не подходит значит переходим к следующей ячейке AV и так дальше. Тоже самое и с суммой.


Пример сюда загрузить не смог весит 900кб выкладываю на яд диск https://yadi.sk/i/5cjIYs0eIVOhCA

Бюджет 1000

Добрый день подскажите пожалуйста, как сравнить месяц если в ячейке стоит значение например А1="Октябрь" с текущим месяцем?

Здравствуйте. У меня есть таблица мне нужно разбить ее на несколько файлов(таблиц), по отделам. Помоги пожалуйста написать макрос!

Здравствуйте. Проблемка на рисовалась при запуске ексель! Выдает ошибку Runtime error ...путь до самого эксель... this application has requested the runtime to terminate. OS Win 10. Office 2010.  Пробывал исправить ошибку ccleaner не выходит! Как можно эту ошибку вылечить!?

Сравниванию абсолютно два  одинаковых значения, но если использовать функцию "если" то формула говорит что значения не равны! Не пойму только почему! Подскажете где собака зарыта!?)

Добрый день! Помогите пожалуйста в написание макроса.
Есть таблица на листе 1  по ней указанна сумма и порядковый номер заявки.
Мне нужно на листе 2 найти номер заявки и внести сумму в первую свободную ячейку( сум.оп.пер1, сум.оп.пер2, сум.оп.пер3...10) и дату сегодняшнею в ячейку (д. опл. Пер1, д. опл. Пер2, д. опл. Пер3...10).

00.01.1900 - значение считается как свободная ячейка.

Например ищем заявку 3151, по листу2, находим свободную ячейку д. опл. Пер2 (сюда нужно вставить текущую дату) и сум.оп.пер2 (а сюда сумму по листу1, 100056)
и так далее до конца списка по листу 1.

Заранее благодарен тем кто сможет мне помочь!  

Добрый день помогите пожалуйста написать макрос для проверки ИНН, БИК, Р\С

Литература по теме
http://www.kholenkov.ru/data-validation/rs/  - Валидация и проверка контрольного числа расчетного счета
https://www.egrul.ru/test_inn.html  - Алгоритм проверки ИНН 10 знаков
Таблица выглядит так, если ошибка в ИНН, БИК, р\с то ячейка должна загореться цветом!

Заранее благодарю тех кто сможет откликнуться, дать подсказку, или возможно у кого уже есть готовое решение!!

Нужно написать макрос который будет собирать в единую таблицу все поступления из банковской выгрузки для 1с.

Выгрузка выглядит так:
1CClientBankExchange
ВерсияФормата=1.02
Кодировка=Windows
Отправитель=Cистема Авангард Интернет-Банк
Получатель=Бухгалтерский учет, редакция 4.4
ДатаНачала=01.03.2018
ДатаКонца=16.03.2018
РасчСчет=40701848778134308
СекцияРасчСчет
ДатаНачала=01.03.2018
ДатаКонца=16.03.2018
РасчСчет=40701848778134308
НачальныйОстаток=10007.26
ВсегоПоступило=175000
ВсегоСписано=236756.29
КонечныйОстаток=58350.97
КонецРасчСчет
СекцияДокумент=Платежное поручение
Номер=144
Дата=05.03.2018
Сумма=13000
ДатаСписано=
Плательщик=ИНН 16608498919 ОВОЩЕБАЗА ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ
ПлательщикИНН=166845999
ПлательщикКПП=166001001
ПлательщикСчет=40702810000050008106
Плательщик1= ОВОЩЕБАЗА  ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ
ПлательщикРасчСчет=4070480050008106
ПлательщикБанк1=АКБ "ЭНЕРГОБАНК" (ПАО)
ПлательщикБанк2=г. КАЗАНЬ
ПлательщикБИК=049205770
ПлательщикКорсчет=30101810300000000770
ДатаПоступило=05.03.2018
Получатель=ИНН 63248741 ООО "ЖТК "
ПолучательИНН=63248741
ПолучательСчет=40702810312300036308
Получатель1=ООО "ЖТК "
ПолучательРасчСчет=40702810312300036308
ПолучательБанк1=ПАО АКБ "АВАНГАРД"
ПолучательБанк2=г. МОСКВА
ПолучательБИК=044525201
ПолучательКорсчет=30101810000000000201
ВидОплаты=01
СрокПлатежа=05.03.2018
Очередность=5
НазначениеПлатежа=Оплата по сч № 20302 от 02.03.18 Сумма 13000-00В т.ч. НДС  (18%) 1983-05
КонецДокумента
СекцияДокумент=Платежное поручение
Номер=144
Дата=05.03.2018
Сумма=13000
ДатаСписано=
Плательщик=ИНН 16608498919 СЫРОБАЗА ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ
ПлательщикИНН=166845999
ПлательщикКПП=166001001
ПлательщикСчет=40702810000050008106
Плательщик1= СЫРОБАЗА ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ
ПлательщикРасчСчет=4070480050008106
ПлательщикБанк1=АКБ "ЭНЕРГОБАНК" (ПАО)
ПлательщикБанк2=г. КАЗАНЬ
ПлательщикБИК=049205770
ПлательщикКорсчет=30101810300000000770
ДатаПоступило=05.03.2018
Получатель=ИНН 63248741 ООО "ЖТК "
ПолучательИНН=63248741
ПолучательСчет=40702810312300036308
Получатель1=ООО "ЖТК "
ПолучательРасчСчет=40702810312300036308
ПолучательБанк1=ПАО АКБ "АВАНГАРД"
ПолучательБанк2=г. МОСКВА
ПолучательБИК=044525201
ПолучательКорсчет=30101810000000000201
ВидОплаты=01
СрокПлатежа=05.03.2018
Очередность=5
НазначениеПлатежа=Оплата по сч № 20302 от 02.03.18 Сумма 13000-00В т.ч. НДС  (18%) 1983-05
КонецДокумента
КонецФайла

из этого надо получить таблицу
наименование банка куда мы получили деньги(ЖТК Авангард), дата(11.04.18), наименование клиента(ООО СЫРОБАЗА), сумма(13000),назначение платежа(Оплата по сч № 20302 от 02.03.18 Сумма 13000-00В т.ч. НДС  (18%) 1983-05)

кто может взяться за работу?

Здравствуйте. Может кто то поможет осилить задачку:
Алгоритм проверки контрольного числа

1. Для проверки контрольного числа требуется БИК.
   
2. Составить 23-значное число из 3-х последних цифр БИК и расчетного счета.
   
3. Вычислить сумму младших разрядов произведений цифр 23-значного числа на следующие коэффициенты — 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 1.
   
4. Если младший разряд полученной суммы равен 0, то расчетный счет считается верным.
   

Или может есть тема какая то аналогичная(я не нашел). Заранее спасибо!

Добрый день! Помоги разобраться в ситуации. При нажатии фильтра он очень долго прогружается в чем может быть проблема?

Добрый вечер! У меня есть таблица в которой указаны ключевые данные длязаполения платежного поручения (ИНН, КПП, Сумма.. и т.д) так вот может кто то чем то подскажет, как преобразовать эти данные в экспортный файл для импорта в  банк клиент сбербанка и ВТБ24? Или хотя бы знает структуру это файла? Очень буду благодарен за любую информацию!

Смысл идеи в том чтобы бухгалтер не тратил уйму времени на вбивание платежных поручений, в день их может быть по 50-100шт, руками набивать не удобно, бухгалтер не справляется! Хелп!)

Добрый день! Прошу помощи! Задача у меня такова -  есть большой список где значится несколько отделов у которых есть смежные счета, нужно понять у какого отдела на каком счете сколько имеется денег. Пример прилагаю, прошу дайте совет или хотя бы частичный пример как можно реализовать эту задачку!?

Добрый вечер! подскажите как можно "не правильную дату" конвертировать в дату с которой можно работать через фильтр.

Добрый день! Бьюсь над цифрами, не могу одалеть! ctrl+f не помогает, =ПОДСТАВИТЬ() и =СЖПРОБЕЛЫ тоже не выручает.
Прикладываю пример, уже всю голову сломал - выручайте советом или подсказкой! Как удалить пробелы между цифрами?

Привет! помогите пожалуйста сравнить месяц фомулой, пример прикладываю!

Добрый день подскажите пожалуйста в чем может быть проблема. Есть функция которая отделяет числа от текста в отдельную ячейку. Но при этом числа не суммируются формулой =сумм(А:А)!

Доброго времени суток, коллеги) Подскажите в связи с чем могут  письма через CDO не уходить? Код рабочий на других машинах проверялся. Какие настройки можно проверить!?