Код |
---|
Public Sub www() Dim tg As Range Set tg = Range("R2:R40").Find("a", , , 1) If tg Is Nothing Then Exit Sub With GetObject(ThisWorkbook.Path & "\склад.xlsm") Cells(tg.Row, 1).Resize(, 17).Copy .Sheets(Cells(tg.Row, 5).Value).[a1] Windows(.Name).Visible = -1 Workbooks("склад.xlsm").Activate Sheets(Cells(tg.Row, 5).Value).[a3] End With End Sub |
Вставил в код, но получилось, что переходит не на скопированный лист, а на последний активный лист книги "склад.xlsm" , поправьте пожалуйста.....