Копирование с условием

[kzld]

Прошу подсказать как осуществить формулу
[файл_получатель_ячейка]=[файл_источник_ячейка(ЕСЛИ БОЛЬШЕ НУЛЯ КОПИРУЕМ, ИНАЧЕ ПЕРЕХОДИМ НА ЯЧЕЙКУ ВНИЗ, ЕСЛИ ОПЯТЬ НОЛЬ-ПЕРЕХОДИМ ЕЩЁ НИЖЕ]

[IgorGO]

=ИНДЕКС(диапазон;ПОИСКПОЗ(1E-307;диапазон;1)+1) - вернет первое число больше 0 из диапазона

[kzld]

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

=ИНДЕКС(диапазон;ПОИСКПОЗ(1E-307;диапазон;1)+1) - вернет первое число больше 0 из диапазона

Спасибо за ответ, но сейчас проверил и понял. что это не то, что мне хотелось бы. Вернее я неправильно сфомулировал запрос. Правильно будет следующим образом:
Есть файл источник, у которого в диапазоне J17:J7652 расположены нужные мне данные. Данные расположены не подряд, а с пропуском, где через 2 строки, где через 5, где через 10
Имеется файл приёмник, в котором те-же данные должны располагаться подряд, без пропусков. Можно конечно применить автофильтр, но налоговая программа не допускает применения автофильтра.
Телепатов на форуме нет, это я много раз слышал, сейчас приложу файлы
Что имеем "istochnik.xlsx", что желаю иметь "poluchatel.xlsx"

[kzld]

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

Спасибо за ответ, но сейчас проверил и понял. что это не то, что мне хотелось бы. Вернее я неправильно сфомулировал запрос. Правильно будет следующим образом:
Есть файл источник, у которого в диапазоне J17:J7652 расположены нужные мне данные. Данные расположены не подряд, а с пропуском, где через 2 строки, где через 5, где через 10
Имеется файл приёмник, в котором те-же данные должны располагаться подряд, без пропусков. Можно конечно применить автофильтр, но налоговая программа не допускает применения автофильтра.
Телепатов на форуме нет, это я много раз слышал, сейчас приложу файлы
Что имеем "istochnik.xlsx", что желаю иметь "poluchatel.xlsx"

Кто нибудь сможет помочь??

[Hugo121]

Макрос не подходит?

[vikttur]

kzld, у Вас нет желания приготовить небольшой пример. Но ведь у других тоже может не быть желания смотреть объемные файлы...

[kzld]

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

Макрос не подходит?

Да, самое то.
Только вот почему то вытаскивает не все значения.
В источнике сумма 25 лимонов, а в получателе 15

Сейчас буду разбираться.
Спасибо за помощь

Всё, разобрался.
Макрос не скопировал ячейки в которых стояло нецифровое значение.
Но , вместе с тем и проверка

[kzld]

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

Макрос не подходит?

Можно ли видоизменить макрос, когда источник и получатель находятся в одной книге, на разных листах.
Источник лист all получатель лист end

[Hugo121]

Конечно, меняете как нужно эти строки:

    Set sh1 = Workbooks("istochnik.xlsx").Sheets(1)
    Set sh2 = Workbooks("poluchatel.xlsx").Sheets(1)

Вместо Sheets(1) можно написать Sheets("all") и Sheets("end"), ну и название файла поставьте своё.
А насчёт "нецифровое значение" - я их специально отсеивал, чтоб как в Вашем примере получилось.
Это здесь:

        If IsNumeric(a(i, 10)) Then
            If a(i, 10) > 0 Then

Ставьте свои условия.
НО при таком отсеивании через массив пропадают формулы - они заменяются на значения!!! Зато быстро.

[kzld]

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

Конечно, меняете как нужно эти строки:

    Set sh1 = Workbooks("istochnik.xlsx").Sheets(1)
    Set sh2 = Workbooks("poluchatel.xlsx").Sheets(1)

Вместо Sheets(1) можно написать Sheets("all") и Sheets("end"), ну и название файла поставьте своё.
А насчёт "нецифровое значение" - я их специально отсеивал, чтоб как в Вашем примере получилось.
Это здесь:

        If IsNumeric(a(i, 10)) Then
            If a(i, 10) > 0 Then

Оба листа и all и end находятся в одной книге
Как правильно записать условие
При попытке

Set sh1 = Workbooks("registr_100.00.030IVA.xlsm").Sheets(all)
    Set sh2 = Workbooks("registr_100.00.030IVA.xlsm").Sheets(end)

Вторую строку выделяет красным