Название листов по дате

[judge_arm]

Есть такая проблема ... В рабочей книге есть лист с названиями месяцев, типа "июль, август", нужно скопировать последний лист по месяцам т.е. август и назвать его сентябрь. Кто может помогите, возможно кто-то имеет пример кода или от чего отталкиваться!

[doober]

Нужно оттолкнутся от кнопки записать макрос,проделать все необходимые операции,посмотреть код и применить в написании макроса

[judge_arm]

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

[The_Prist]

Может так?

Sub Copy_Sheet_And_ReName()
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = MonthName(Sheets.Count)
End Sub

[judge_arm]

У меня в файле, листы не только с месяцами...

[The_Prist]

Сообщение от judge_arm

У меня в файле, листы не только с месяцами...

Я-то этого не знаю. В первом Вашем посте про это ничего не написано. Может у Вас и листы с пробелами или опечатки есть. Накидайте пример файла с листами(как они располагаться будут в реале) и тогда получите более адаптированный вариант.

[judge_arm]

Сорри, просто недогадался о таком варианте, потому ненаписал)). Набросил пример файла ...

[The_Prist]

Вот так.

Option Explicit

Sub Copy_Sheet_And_ReName()
    Dim wsSheet As Worksheet
    Dim iNumMonth As Integer, iNum As Integer
    iNumMonth = 0
    For Each wsSheet In Sheets
    On Error Resume Next
        iNum = Switch(LCase(wsSheet.Name) = "январь", 1, LCase(wsSheet.Name) = "февраль", 2, LCase(wsSheet.Name) = "март", 3, _
                           LCase(wsSheet.Name) = "апрель", 4, LCase(wsSheet.Name) = "май", 5, LCase(wsSheet.Name) = "июнь", 6, _
                           LCase(wsSheet.Name) = "июль", 7, LCase(wsSheet.Name) = "август", 8, LCase(wsSheet.Name) = "сентябрь", 9, _
                           LCase(wsSheet.Name) = "октябрь", 10, LCase(wsSheet.Name) = "ноябрь", 11, LCase(wsSheet.Name) = "декабрь", 12)
    If iNumMonth < iNum Then iNumMonth = iNum
    Next wsSheet
    On Error GoTo 0
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = MonthName(iNumMonth + 1)
End Sub

[judge_arm]

Все гуд! Очень благодарен!!!

[valerij]

Сообщение от The_Prist

Option Explicit

The_Prist!
Че делает, поясни!