Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Формирование отчета по лидерам продаж (более 5 сделок) с указанием количество продаж в регионах
 
Благодарю за правильное решение задачи
memo, огромное спасибо за пример
Изменено: BiruykSer - 04.03.2021 08:52:33
Формирование отчета по лидерам продаж (более 5 сделок) с указанием количество продаж в регионах
 
Прошу помочь с выбором формул
Имеется три столбца данных
НаименованиеКол-во заказовРегион продажи
в Наименовании имя менеджера/компании
во вором столбце считается его количество заказов СЧЁТЕСЛИ($A$2:$A$63;A2)
в третьем столбце регион реализации.
У каждого менеджера/компании идут продажи в разные регионы
Задача:
Формирование отчета по лидерам продаж (более 5 сделок) с указанием количество продаж в регионах

В поиске не смог найти решение (возможно потому что до конца не понимаю что надо использовать)
Подскажите решение пожалуйста
Сохранение в новую книгу только выделенного листа с присвоением имени новой книги из ячейки выделеного листа
 
Цитата
Niko.x87 написал: CopyWsh2
По итогу добавил экспорт в пдф и успокоился...
Код
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

Цитата
Андрей_26 написал: скопировать все на новый лист
это и делает первый макрос который я не смог доработать, идея состояла в том что после того как на новый лист скопирует содержимое, ему надо без сохранения присвоить имя (книги)
Сохранение в новую книгу только выделенного листа с присвоением имени новой книги из ячейки выделеного листа
 
Цитата
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

не могу додуматься как правильно присвоить имя создаваемой книге из ячейки копируемого листа.
Изменено: BiruykSer - 09.05.2020 19:06:10
Страницы: 1
Наверх