Страницы: 1
RSS
Макрос по созданию нового листа из ячейки
 
не могу поправить макрос по созданию нового листа из ячейки, мне нужно, чтобы только из ячеек столбца А создавался новый лист, а у меня создается из последующих еще, помогите пожалуйста.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo A
r_ = Range("a" & Cells.Rows.Count).End(xlUp).Row
If Target.Row = r_ And Range("a" & r_) <> "" Then
    n_ = Format(Range("a" & r_), "MMMM YYYY")
    s_ = ThisWorkbook.Sheets.Count
    Sheets("Øàáëîí").Copy After:=Sheets(s_)
    Sheets(s_ + n).Name = n_
End If
Exit Sub
A: MsgBox "Ïðîâåðü, íåò ëè ëèñòà ñ òàêèì èìåíåì."
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo A
r_ = Range("a" & Cells.Rows.Count).End(xlUp).Row
If Target.Row <= r_ And Range("a" & r_) <> "" Then
n_ = Format(Target, "MMMM YYYY")
    Sheets(n_).Activate
End If
A:
End Sub

 
fast,
Код
If Target.Column <> 1 Then Exit Sub
 
Jungl, я совершенно не соображаю в кодах, это где нужно прописать?
 
fast, после строки private sub
 
Jungl, спасибо.
Страницы: 1
Наверх