Копирование строки на другой лист ! - Microsoft Office Excel

Maksiart · 21.11.2011, 16:16

Добрый день ! Прошу помочь в решении следующей задачи.

Имеется список - длинный. В последнем столбце (I) стоит значение (0)- количество.

Задача: при изменении значения 0 на любое другое число строчка копируется на 3 лист документа.

И т.д. относительно всего списка.

Фаил шаблона в приложении (естественно он будет заполняться).

Сам я в ЕХЕЛЕ в лудшем случае накладную нарисую. глубже знания отсутствуют.

Так что даже если надо будет вписать куда либо макрос, я не знаю где и как это делать.

Заранее благодарю за посильную помощь !

Maksiart · 21.11.2011, 16:21

сам файл

EducatedFool · 21.11.2011, 16:23

Пример - в файле: http://excelvba.ru/XL_Files/Sample__...__18-28-05.zip

Вот весь код:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 9 And Target.Row > 1 Then
        If Target.Text = "0" Then
            Target.EntireRow.Cells(2).Resize(, 8).Copy _
                    res.Range("a" & res.Rows.Count).End(xlUp).Offset(1)
        End If
    End If
End Sub

Maksiart · 21.11.2011, 22:45

Спасибо большое ! Но всё с точностью до наоборот

В данном случае все строки со значением (0) копируются. А надо бы наоборот. Они не нужны ! Нужны как раз те где не (0) а - 1,2,3,4,...999...10000.
что то типа такого .

kuklp · 21.11.2011, 23:31

Надо же как-то и вникать в то, что Вам дают.

Код:

If Target.Text <> "0" Then

Maksiart · 21.11.2011, 23:47

СПАСИБО ! В последний раз программированием занимался 16 лет назад !
И это был ТП 7. Да понимаю - элементарно! Но простите голова кругом !

21.11.2011, 16:16	#1
Maksiart Новичок Джуниор Регистрация: 21.11.2011 Сообщений: 4	Копирование строки на другой лист ! Добрый день ! Прошу помочь в решении следующей задачи. Имеется список - длинный. В последнем столбце (I) стоит значение (0)- количество. Задача: при изменении значения 0 на любое другое число строчка копируется на 3 лист документа. И т.д. относительно всего списка. Фаил шаблона в приложении (естественно он будет заполняться). Сам я в ЕХЕЛЕ в лудшем случае накладную нарисую. глубже знания отсутствуют. Так что даже если надо будет вписать куда либо макрос, я не знаю где и как это делать. Заранее благодарю за посильную помощь !

21.11.2011, 16:23	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Пример - в файле: http://excelvba.ru/XL_Files/Sample__...__18-28-05.zip Вот весь код: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 9 And Target.Row > 1 Then If Target.Text = "0" Then Target.EntireRow.Cells(2).Resize(, 8).Copy _ res.Range("a" & res.Rows.Count).End(xlUp).Offset(1) End If End If End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 21.11.2011 в 16:29.

21.11.2011, 23:31	#5
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Надо же как-то и вникать в то, что Вам дают. Код: `If Target.Text <> "0" Then` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копирование данных фильтра на другой лист	GieNa	Microsoft Office Excel	7	08.08.2011 17:29
Копирование данных по определенным критериям на другой лист.	Dilmira	Microsoft Office Excel	5	28.04.2011 16:11
копирование в другой лист	nisan	Microsoft Office Excel	1	28.10.2010 19:44
Отбор за критерием и копирование данних на другой лист	vova123zx	Помощь студентам	1	20.04.2010 00:26
Автоматизированное копирование данных выборки автофильтра на другой лист при помощи кнопки	outstrip	Microsoft Office Excel	0	12.08.2009 11:28

21.11.2011, 22:45	#4
Maksiart Новичок Джуниор Регистрация: 21.11.2011 Сообщений: 4	Спасибо большое ! Но всё с точностью до наоборот В данном случае все строки со значением (0) копируются. А надо бы наоборот. Они не нужны ! Нужны как раз те где не (0) а - 1,2,3,4,...999...10000. что то типа такого .

21.11.2011, 23:47	#6
Maksiart Новичок Джуниор Регистрация: 21.11.2011 Сообщений: 4	СПАСИБО ! В последний раз программированием занимался 16 лет назад ! И это был ТП 7. Да понимаю - элементарно! Но простите голова кругом !