Получить номер первой пустой ячейки из другого файла.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получить номер первой пустой ячейки из другого файла. (Макросы/Sub)

AVI

Дата: Понедельник, 07.11.2016, 08:44 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Прошу Вас помочь с макросом.
У меня формируется название файла. Формата "***,..." где *** - это номер первой пустой строки из реестра (из другого файла).
Это номер у меня ловится через формулу

Код

=ПОИСКПОЗ(ИСТИНА();('\\fkr-data\DATA_USER\Отдел правовой и договорной работы\[Реестр соглашений.xlsx]Лист1'!$A$1:$A$5004="");ЛОЖЬ())"

Что бы эта формула срабатывала перед формированием названия файла я забил в макрос обновление связей, а уже дальше остальные действия.
[vba]

Код

Sub Макрос3()
    ActiveWorkbook.RefreshAll
    Call Макрос2
    Call copyRow
    End Sub

[/vba]
Но почему-то связи больше не обновляются даже если я буду нажимать кнопку "обновить связи" из книги эксель.
Этот номер обновляется только если открыть и закрыть сам реестр, куда и ссылается вышеописанная формула.
Вопрос. Можно ли вместо [vba]

Код

ActiveWorkbook.RefreshAll

[/vba] и формулы вставить макрос, что бы сначала ловился номер первой пустой ячейки из диапазона

Код

[Реестр соглашений.xlsx]Лист1'!$A$1:$A$5004

а потом выполнялось [vba]

Код

Sub Макрос3()
    Call Макрос2
    Call copyRow
    End Sub

[/vba]
Возможно ли без файла это сделать?

Сообщение отредактировал AVI - Понедельник, 07.11.2016, 09:13

Ответить

_Boroda_

Дата: Понедельник, 07.11.2016, 09:16 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Ваша формула - формула массива. Если у Вас в столбце А последовательное заполнение и нужно найти последнюю, то попробуйте формулу

Код

=СЧЁТЗ('\\fkr-data\DATA_USER\Отдел правовой и договорной работы\[Реестр соглашений.xlsx]Лист1'!$A$1:$A$5004)+1

Хотя не, та формула тоже срабатывает
Тогда просто тпнитесь в свою формулу макросом
[vba]

Код

Range("A1").FormulaLocal = Range("A1").FormulaLocal
Range("B3").FormulaArray = Range("B3").FormulaArray

[/vba]
В А1 - моя формула
В В3 - Ваша

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995