Прошу помочь с выбором формул Имеется три столбца данных
Наименование
Кол-во заказов
Регион продажи
в Наименовании имя менеджера/компании во вором столбце считается его количество заказов СЧЁТЕСЛИ($A$2:$A$63;A2) в третьем столбце регион реализации. У каждого менеджера/компании идут продажи в разные регионы Задача: Формирование отчета по лидерам продаж (более 5 сделок) с указанием количество продаж в регионах
В поиске не смог найти решение (возможно потому что до конца не понимаю что надо использовать) Подскажите решение пожалуйста
Sub CopyWsh3()
If ActiveCell.Value = "" Then
MsgBox "Выделенная ячейка пустая"
Exit Sub
End If
ActiveSheet.Copy
ActiveWorkbook.SaveAs "/Users/sergei/Desktop/" & Range("J4").Value & ".xlsx"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/sergei/Desktop/" & Range("J4").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=ИСТИНА, IgnorePrintAreas:=ЛОЖЬ, OpenAfterPublish:= _
ЛОЖЬ
End Sub
это и делает первый макрос который я не смог доработать, идея состояла в том что после того как на новый лист скопирует содержимое, ему надо без сохранения присвоить имя (книги)
Niko.x87 написал: Не совсем понятно, что собственно нужно сделать
Прошу прощения если ввел вас в заблуждение своими формулировками, Идея такова: При использовании макроса SplitSheets1, создаётся новая КнигаXX, в которой я делаю изменения и после сохраняется в PDF ( использую ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _...) , а ранее созданную КнигаXX закрываю без сохранения за ненадобностью. И получается что предложенный вами вариант сохраняет КнигаXX (в данном случае на раб стол.)
Этот метод безусловно рабочий, но как раз сам файл сохранять мне не надо, да и ячейка с которой брать имя файла статична (J4). Как вы думаете, можно ли в исходный макрос что-то добавить?
Sub SplitSheets1()
Dim AW As Window
Set AW = ActiveWindow
For Each s In AW.SelectedSheets
Set TempWindow = AW.NewWindow 'создаем отдельное временное окно
s.Copy 'копируем туда лист из выделенного диапазона
TempWindow.Close 'закрываем временное окно
Next
End Sub
не могу додуматься как правильно присвоить имя создаваемой книге из ячейки копируемого листа.