Копирование данных на другой лист тпри внесении изменений - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование данных на другой лист тпри внесении изменений - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных на другой лист тпри внесении изменений (Макросы/Sub)

Копирование данных на другой лист тпри внесении изменений

Дата: Среда, 02.12.2015, 12:02 | Сообщение № 1

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Доброго всем времени суток!В книге есть лист "График производства".Из него надо скопировать данные на лист "Контроль...."Это я накропал.Но что добавить в макрос, чтобы копировались только изменения на листе "График производства", не трогая уже скопированные?[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I6:AJ1000")) Is Nothing Then
    Sheets("контроль выполнения графика").Select
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
    If Not Intersect(Target, Range("A6:H1000")) Is Nothing Then
    Sheets("контроль выполнения графика").Select
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
End Sub

[/vba][p.s.]и что бы макрос срабатывал при сохранении книги

К сообщению приложен файл: _____.xlsm (65.8 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 02.12.2015, 14:05

Ответить

Дата: Среда, 02.12.2015, 12:48 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

китин, пробуйте

Что сделал:
При открытии книги - создается массив из уже существующих данных на листе контроль...
При изменении на листе "график производства" - эти изменения записываются в этот массив.(только измененные ячейки в контролируемом диапазоне)
При сохранении книги - происходит замена данных на листе "контроль..." новыми консолидированными данными

Как вариант - можно сделать просто словарь с адресами измененных ячеек - а потом при сохранении поочередно копировать данные этих ячеек.
Но ввиду большого количества вставок - будет работать намного дольше при сохранении.

К сообщению приложен файл: -2-.xlsm (69.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Среда, 02.12.2015, 12:56

Ответить

Дата: Среда, 02.12.2015, 12:59 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

китин, а если просто, при изменении листа график производства изменения вносить в лист "контроль выполнения графика"?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I6:AJ99")) Is Nothing Then
    Sheets("контроль выполнения графика").Select
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
End Sub

[/vba]

К сообщению приложен файл: 123.xlsm (70.8 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Дата: Среда, 02.12.2015, 13:07 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Да Марина,кажется оно.Пойду тестить на реальном файле. Спасибо

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 13:12 | Сообщение № 5

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ярослав спасибо.Пошел испытывать.Отпишусь

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 13:30 | Сообщение № 6

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Марина а можно еще еще добавить такое же, только для диапазона А6:Н99 ??? я попробовал вписать в код, но не туда копирует
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I6:AJ1000")) Is Nothing Then
    Sheets("контроль выполнения графика").Select
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
    If Not Intersect(Target, Range("A6:H1000")) Is Nothing Then
    Sheets("контроль выполнения графика").Select
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
End Sub

[/vba]
Что там изменить?И еще :можно, что бы после нажатия на Enter не перескакивало на лист Контроль?
[p.s.]блин почему кракозябры выскакивают?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 02.12.2015, 14:13

Ответить

Дата: Среда, 02.12.2015, 13:33 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 517

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Цитата китин, 02.12.2015 в 13:30, в сообщении № 6

блин почему кракозябры выскакивают?

Копируйте код из файла при RU раскладке клавиатуры

Ответить

Дата: Среда, 02.12.2015, 13:44 | Сообщение № 8

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Manyasha, 02.12.2015 в 12:59, в сообщении № 3

а если просто, при изменении листа график производства изменения вносить в лист "контроль выполнения графика"?

Цитата китин, 02.12.2015 в 13:07, в сообщении № 4

Да Марина,кажется оно.Пойду тестить на реальном файле. Спасибо

а как же тогда:

Цитата китин, 02.12.2015 в 12:02, в сообщении № 1

и что бы макрос срабатывал при сохранении книги

Или это не важно?
но судя по этому:

Цитата китин, 02.12.2015 в 13:30, в сообщении № 6

И еще :можно, что бы после нажатия на Enter не перескакивало на лист Контроль?

важно

Я же делал исходя из того, что нужно переносить изменения только перед сохранением.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Среда, 02.12.2015, 13:52

Ответить

Дата: Среда, 02.12.2015, 14:11 | Сообщение № 9

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ярослав ,да лучше конечно при сохранении.У вас в файлике немного не то.мне надо, что бы изменения на листе Контроль сохранялись при копировании с листа График.Основная работа идет на листе Контроль.Лист График как бы эталонный. Там измения только по официальному извещению

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 14:40 | Сообщение № 10

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Игорь, пробуйте:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I6:AJ99")) Is Nothing Then
        'на листе контроль, сдвигаемся на 1 строчку вверх и на 3 столбца вправо
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
    If Not Intersect(Target, Range("A6:H1000")) Is Nothing Then
        'на листе контроль, сдвигаемся на 1 строчку вверх (вправо уже не нужно, т.к столбцы одинаково расположены)
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1).Value = Target.Value
    End If
End Sub

[/vba]

Цитата китин, 02.12.2015 в 13:30, в сообщении № 6

после нажатия на Enter не перескакивало

проверяла - забыла убрать

ЯД: 410013299366744 WM: R193491431804

Ответить

Дата: Среда, 02.12.2015, 14:42 | Сообщение № 11

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Если лист график - эталонный - то когда Вы копируете с него?
Может просто задать диапазон замены и все?
например так:
[vba]

Код

Sub Макрос1()
    For Each c In Range("B6:E11,H13:J19,N8:Q14")
     Sheets("контроль выполнения графика").Range(c.Address).Offset(-1, 3).Value = c.Value
    Next
End Sub

[/vba]

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 02.12.2015, 15:04 | Сообщение № 12

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ярослав на лист График вносятся добавления к плану, не меняя порядок.А на листе контроль порядок может меняться как угодно, в зависимости от возможностей производства.Вот и хочется автоматом добавлять дополнения к плану в листе График, не меняя порядок на листе Контроль.Наверно непонятно?но так хочет ШЕФ!!! И формулы тут не помогут

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 15:04 | Сообщение № 13

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Марина спасибо.Похоже это ОНО !!!

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 15:38 | Сообщение № 14

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Кажется понял.
Добавил еще дозапись в массив при изменении на листе контроль.
Может пригодится

К сообщению приложен файл: -2-4-.xlsm (69.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 02.12.2015, 15:52 | Сообщение № 15

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ярослав а как там диапазон поменять?в реальности там под 1500 строк

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 02.12.2015, 15:56 | Сообщение № 16

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Изначальный массив создается здесь:
[vba]

Код

Private Sub Workbook_Open()
ar = Sheets("контроль выполнения графика").Range("l5:am100").Value
End Sub

[/vba]
А потом нужно этот же диапазон подставить сюда:
[vba]

Код

Sheets("контроль выполнения графика").Range("l5:am100").Value = ar

[/vba]
или заменить эту строку на
[vba]

Код

Sheets("контроль выполнения графика").Range("l5").Resize(UBound(ar), UBound(ar, 2)).Value = ar

[/vba]

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 02.12.2015, 16:14 | Сообщение № 17

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

спасибо

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 03.12.2015, 08:05 | Сообщение № 18

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

И снова Доброго всем времечка!!!Возникла проблемка. На листе График частенько вносятся изменения в диапазоне А6:Н1000 путем вставления новых строк.Макрос на это не реагирует.Попробовал сваять вот этакое[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("график производства").Select
    Range("A6:H1000").Select
    Selection.Copy
    Sheets("контроль выполнения графика").Select
    Range("A5").Select
    ActiveSheet.Paste
    If Not Intersect(Target, Range("I6:AJ1000")) Is Nothing Then
        'на листе контроль, сдвигаемся на 1 строчку вверх и на 3 столбца вправо
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If

End Sub

[/vba]
выдает ошибку 1004 и выделяет желтым строчку Range("A5").Select

К сообщению приложен файл: 3751022.rar (61.9 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Четверг, 03.12.2015, 08:11

Ответить

Дата: Четверг, 03.12.2015, 10:05 | Сообщение № 19

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Попробуйте так:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("график производства").Range("A6:H1000").Copy Sheets("контроль выполнения графика").Range("A5")
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("I6:AJ1000")) Is Nothing Then
        'на листе контроль, сдвигаемся на 1 строчку вверх и на 3 столбца вправо
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
End Sub

[/vba]
лучше вообще избавлятся от всяких Select ов - во первых жутко тормозит, во вторых увеличивает вероятность ошибки.
ЗЫ
чтото я не совсем понял что Вы хотите этим макросом сделать - колонки А-Н меняются, но данные правее на листе "контроль" остаются те же

К сообщению приложен файл: 1212754.zip (59.4 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 03.12.2015, 10:10

Ответить

Дата: Четверг, 03.12.2015, 10:35 | Сообщение № 20

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

мдя непорядок получается :'(

:'(

а это исправить можно?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных на другой лист тпри внесении изменений (Макросы/Sub)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!