Sub SaveBalt()
Filesavename = Application.GetSaveAsFilename("Balt", "Excel Files (*.xls), *.xls")
If Filesavename <> False Then
Sheets("Balt").SaveAs Filename:=(Filesavename)
End If
End Sub
Sub safe_Balt()
Dim iFileName As String
iFileName = Range("A2")
Sheets("Balt").Copy
ActiveWorkbook.SaveAs Filename:="R:\Balt\Balt_" & iFileName & " - " & Date & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
End Sub
Предположу, что нажатие кнопок у вас вызывается командой Call. И соответственно если после этой команды идет еще код, то выполнив "вызванный" макрос, продолжается выполнение дальнейшего кода. Вам нужно эти события включить в тело самого кода и записать где нужно exit sub.
p.s. это всего лишь мои предположения и я не очень хорошо знаю vba.
Вопрос печатать данные 1 человека на 1 листе бумаги, или несколько строк с "шапками" на 1 листе бумаги. Если 1 чел-1 лист бумаги, то Казанский дал решение. Только надо внимательно прочитать
Суть в определении самой нижней/правой ячейки с данными, полученными в результате вычисления формул. Нижняя и правая ячейка с результатами вычислений может меняться в зависимости от исходных данных. Ниже и правее есть ячейки с формулами, которые не надо учитывать.
и UsedRange не подходят Пробовал копировать на другой лист специальной вставкой, все равно задает границы скопированного диапазона Как их можно определить? В примере этот диапазон Е22-АВ41 (имеет заливку) Спасибо.
перекинул на вспомогательный лист, увеличил диапазон до 500 строк (этого пока хватит с запасом). Есть одно исключение: если один из массивов 1-1, то неправильно считает, если есть массивы с элементом 2.
Поиск всех диапазонов чисел в массивах, чтобы этот диапазон встречался в максимальном количестве массивов
БМВ, благодарю за совет. Ігор Гончаренко, если это не относится ни ко мне, ни к теме обсуждения, то прошу придержать ваши "мысли вслух" при себе, либо выражать их в другом месте, и не засорять ветку. Модераторы удалите пжл посты не имеющие отношение к теме топика #2, #5 - #13, #15 и этот тоже
поможете, буду благодарен, нет - не обижусь. Просто тон Ваших уточнений попахивает ехидством и высокомерием, уж извините. А насчет решения проблемы, то я ее решу, просто потребуется больше времени. Убедительно прошу давайте на этом закончим оффтоп,
Спасибо за совет, но ничего не понял. Пытаюсь реализовать другим путем. Загоняю все данные в один многомерный массив. И уже из этого массива попытаться вытащить нужные данные. Но пока еще не придумал как