Создаю книгу для приема заявок с магазинов. Как сделать так чтобы названия листов 1-30 бралось с ячеек A7:A36(лист "маршрут"). Книгу excel "Заявки" прилагаю
Создаю книгу для приема заявок с магазинов. Как сделать так чтобы названия листов 1-30 бралось с ячеек A7:A36(лист "маршрут"). Книгу excel "Заявки" прилагаюvalikbag
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 6 And Target.Row < 37 Then ' MsgBox SheetTarget & " " & Target.Value
Sheets(SheetTarget).Name = Target.Value End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 6 And Target.Row < 37 Then SheetTarget = Target.Value2(1, 1) End If End Sub
[/vba]
valikbag, в один из модулей [vba]
Код
Public SheetTarget As String
[/vba]
В код листа маршрут [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 6 And Target.Row < 37 Then ' MsgBox SheetTarget & " " & Target.Value
Sheets(SheetTarget).Name = Target.Value End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 6 And Target.Row < 37 Then SheetTarget = Target.Value2(1, 1) End If End Sub
Wasilich, Согласен. Порой не понятна цель, но спрашивают не путь достижения, а конкретный этап, возможно неверного пути, придуманого. Я уж не говорю о теме. которая противоположна самому смыслу запроса. Но если будут вопросы, как достичь цели, то то не уложится в ответ по конкретным приемым , формулам. Это уже разработка цликом.
Wasilich, Согласен. Порой не понятна цель, но спрашивают не путь достижения, а конкретный этап, возможно неверного пути, придуманого. Я уж не говорю о теме. которая противоположна самому смыслу запроса. Но если будут вопросы, как достичь цели, то то не уложится в ответ по конкретным приемым , формулам. Это уже разработка цликом.bmv98rus
Замечательный Временно просто медведь , процентов на 20.