Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » kroling
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
16.09.2016 14:58:27
Код
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" , поправьте пожалуйста.....
 
Перейти    
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
15.09.2016 15:11:48
а еще подскажите пожалуйста как сделать в вышестоящем макросе так , чтобы после каждого копирования управление передавалось бы на тот лист куда было произведено копирование для последующего ввода данных....(напр в ячейку A3)  
Изменено: kroling - 15.09.2016 15:54:50
 
Перейти    
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
11.09.2016 18:09:49
Еще раз благодарю.  Подходит идеально. Восхищаюсь Вашим профессионализмом !!!
 
Перейти    
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
11.09.2016 17:00:30
да приблизительно так - :)  СПАСИБО :) , только перенос строки необходимо было сделать через кнопку, а не постоянным при изменении положения маркера ...  Еще бы понять что за что отвечает , чтоб переделать.... :D  Будем разбираться....   Еще раз спасибо за помощь.
 
Перейти    
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
11.09.2016 16:20:25
Сори, опечатался, делал наспех пример....  С кем не бывает....

Специально для Вас..... :)  
 
Перейти    
Макрос для копирования строки по условию на определенный лист, помогите новичку.....
 
#
11.09.2016 13:39:39
Здравствуйте уважаемые гуру Excel. Прошу помощи от ваших светлых голов. Для вас может быть моя задача будет элементарной, но для меня, знакомого с макросами 3-й день - это пока сложновато.... Итак задача такая: есть документ со списком файл "база" в столбце R есть маркер которым отмечается строка, и кнопка "переместить". Необходимо, чтобы по нажатию кнопки "переместить" значения отмеченной маркером строки скопировалась в книгу "склад" в ячейку A1, но на лист в зависимости от значения в ячейке "E" копируемой строки. (т.е. если в ячейке "Е" копируемой строки стоит значение "склад-1", то эта строка копируется в лист "Склад-1", а если "Склад -4" - то в лист "Склад-4". При повторном копировании в один и тот же лист - строки заменяются.
Надеюсь понятно изложил....
Если можно с комментариями , хочу понять что как делается.....
Изменено: kroling - 11.09.2016 16:21:25
 
Перейти    
[ Закрыто] Макрос для копирования строки по условию
 
#
10.09.2016 18:20:26
Здравствуйте уважаемые гуру Excel. Прошу помощи от ваших светлых голов. Для вас может быть моя задача будет элементарной, но для меня, знакомого с макросами 3-й день - это пока сложновато....  Итак задача такая: есть документ со списком  файл "база" в столбце R есть маркер которым отмечается строка, и кнопка "переместить". Необходимо, чтобы по нажатию кнопки "переместить" значения отмеченной маркером строки скопировалась в книгу "склад" в ячейку A1, но на лист в зависимости от значения в ячейке "E" копируемой строки. (т.е. если в ячейке "Е" копируемой строки стоит значение "склад-1", то эта строка копируется в лист "Склад-1", а если "Склад -4" - то в лист "Склад-4". При повторном копировании в один и тот же лист - строки заменяются.
Надеюсь понятно изложил....
Если можно с комментариями , хочу понять что как делается.....
 
Перейти    
Страницы: 1
Наверх