Спасибо Вам большое! Сам бы не смог.
я копался не в ту сторону! Буду изучать countLarge
спасибо!

Юрий М

• Вместо ВПР.xlsm (21.57 КБ)
  

Здравствуйте! Воспользовался Вашим макросом, очень помогло, спасибо!
Но обнаружилась ошибка, своими силами не удаётся решить, помогите пожалуйста!
При вставке новой строки ругается на:
Target.Offset(0, 1) = Rng.Offset(0, 1)

Уважаемые знатоки! Помогите, пожалуйста!

Есть два столбца A и B ("Изделия" и "Кол-во") в таблице
необходимо проверить строки в таблице (кол-во строк плавающее)
Строго: в строке должно быть заполнены оба значения "Изделие" и "Кол-во"

если хоть одно значение в строке не заполнено, то макрос продолжаться не должен
и должно появиться сообщение о незаполнение ячейки

Если обе ячейки заполнены, то макрос должен продолжить работу

я понимаю, что необходимо пробежаться циклом
нижеуказанный цикл пишет сообщение, что "Некорректно указана информация!"
и продолжает макрос


Private Sub CommandButton1_Click()
Dim x As Long

For x = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1

   If IsEmpty(Cells(x, 1)) = False And _
   IsEmpty(Cells(x, 2)) = True _
   Then MsgBox "Некорректно указана информация!"
   Exit Sub
   Exit For
   
   Next x
'----------------------------------------------
'далее продолжение кода


End Sub

Уважаемые знатоки vba!

Помогите пожалуйста скорректировать макрос
Есть 2 столбца, в строке обязательно должны быть заполнены  ячейки этих столбцов

Если не заполнены, цикл должен прерваться и появиться сообщение что не заполнена ячейка в строке

Если ячейки в строке заполнены цикл должен продолжиться


Бьюсь и не получается ничего.
Помогите пожалуйста

asesja, спасибо Вам огроменное! всё отлично работает!

Уважаемые эксперты Excel!

Помогите пожалуйста решить проблему. Есть макрос, который запускается по кнопке, берет значение из ячейки (название новой книги) и  создает ее. Работа происходит в одной общей папке.

Я нашел его на просторах. После эксплуатации файла, выяснилось, что необходимо его немного дополнить.
Макрос работает отлично, вопросов нет. Создается новая книга (с поддержкой макросов) с названием из ячейки, в этой же папке.

Но когда предположим открыты обе книги и основная и созданная, например, я редко, но забывал, что новая книга уже создана и открыта - нажимал на кнопку создать еще раз - сразу получал ошибку!

1. Помогите переделать макрос, чтобы при нажатии кнопки создать новую книгу, он проверял не создана ли уже эта книга.
2. Если она создана, то проверял не открыта ли она.
3. И если она создана и открыта писал сообщение, что книга создана (в случае, если книга создана и закрыта тоже писал сообщение, что книга создана)

Важно: когда новая книга создана, но не открыта, ошибки не возникает, новая книга создается просто еще раз.
Если же книга создана и открыта - только тогда появляется ошибка!

Private Sub CommandButton1_Click()

  'Объявление переменных
  Dim CellValue As String
  Dim Path As String
  Dim FinalFileName As String

  'Временно отключаем показ вспомогательных сообщений
  Application.DisplayAlerts = False

  'Задаём каталог сохранения файла (в данном случае текущий каталог)
  Path = ThisWorkbook.Path & "\"

  'Получаем значение ячейки
  CellValue = Range("A1")

  'Формируем итоговый путь и название файла
  FinalFileName = Path & CellValue

  'Сохраняем файл
  ActiveWorkbook.SaveAs Filename:=FinalFileName, _
                     FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

  'Сообщение с результатом выполнения процедуры
  MsgBox "Файл успешно сохранен с названием - " & CellValue, , "Результат"
 
  'Включаем вывод сообщений
  Application.DisplayAlerts = True


End Sub

asesja, СПАСИБО БОЛЬШУЩЕЕ! всё объяснили всё по полочкам разложили!

asesja, а чтобы, если понадобиться обратиться к основной Книге1?

asesja, СПАСИБО Вам!

я пытаюсь после MsgBox "Книга уже открыта!" вставить команду с переменной, чтобы активной оставалась Книга2, которую мы стремимся открыть,но
после сообщения активна становится основная Книга1
...
Else
MsgBox "Книга уже открыта!", 48, "Info"

'wb.Select - не работает
либо
iPath.Select  - тоже не работает

   End If

Уважаемые знатоки VBA Excel
В продолжение темы помогите пожалуйста совместить вышеобсуждаемый макрос открытия книги по значению ячейки с макросом (как проверить открыта ли книга?) https://www.excel-vba.ru/chto-umeet-excel/kak-proverit-otkryta-li-kniga/?ysclid=lrfz88buw9244504679

Долго и упорно пытался совместить своими силами, но как говориться "еще слаб в коленях".
В макросе использован способ открытия через путь, в моём же варианте всё лежит в одной папке и книги с поддержкой макросов

"Или более близкий к жизненной ситуации вариант: надо открыть книгу, внести в книгу изменения, сохранить и закрыть. Если книга кем-то уже открыта - получим ошибку на этапе сохранения или запрос на этапе открытия. Поэтому сначала проверяем доступность книги и если она доступна - вносим изменения и сохраняем."

Sub Test()    Dim sWBFullName As String    Dim wb As Workbook    'полный путь к проверяемой книге    sWBFullName = "C:\Documents\Книга1.xls"    'если книга кем-то открыта - пропускаем обработку этой книги    'книга закрыта - вносим изменения, сохраняем, закрываем    If IsBookOpen(sWBFullName) = False Then        Set wb = Application.Workbooks.Open(sWBFullName)        'изменяем значение ячейки "A1" на первом листе книги        wb.Sheets(1).Range("A1").Value = "www.excel-vba.ru";        ws.Close True    End If End Sub

Спасибо всем пребольшое!!! Прям даже радостно, наконец вопрос решён.

Спасибо громадное!
даже стыдно немного, не работала из-за пропущенного мной пробела

Если не сложно, скажите пожалуйста, а почему команда Close работает только в паре с командой открытия? Потому что там объявляется переменная?

Здравствуйте. через полный  путь мне вариант не подходит. Все файлы лежат в одной папке. Обе книги с поддержкой макросов.
Как пример есть две книги с именами «1» и «2»
»1» открыт
»2» закрыт
В «1» открытой книге есть ячейка со значением 2
как открыть через макрос книгу с именем «2»?

не работает((

Я попробовал Ваш вариант, не работает((

Уважаемые друзья!
Помогите, пожалуйста, решить вопрос открытия и закрытия файла через макрос. Есть таблица, в ней есть столбец с названием книг. Ранее я нашел и скопировал макрос, который создает новые книги в текущей папке через переменную, беря из ячейки таблицы название. Вроде получилось.

Далее мне необходимо открывать и закрывать эти книги, в этом же макросе. А названия книг брать также из таблицы.Нашел команду в аналогичной теме: WorkBooks.Open Filename:=ThisWorkbook.Path & "\файл.xlsx"
Никак не могу скорректировать команду под свою хотелку и похожий ответ тоже не нахожу. Ищу уже неделю, никак.

Моя версия:
Dim z As Range
Set z  = ThisWorkbook.Worksheets("Лист2").Range("A3")
WorkBooks.Open Filename:=ThisWorkbook.Path & z  .xlsm

Но ничего не работает....
1. Подскажите, пожалуйста, как изменить окончание команды для открытия файла, ссылаться на переменную и с расширением поддержка макросов?
2. Аналогично для закрытия в этой же текущей папке (с сохранением и без сохранения книги)?

Если ответ уже обсуждался и я дублирую здесь его, то не ругайте меня сильно пожалуйста.