Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Kamekadze_rus от 30 сентября 2016, 14:14

Название: Excel: Одинаковые ячейки в не зависимости от того в какую из них ввели данные
Отправлено: Kamekadze_rus от 30 сентября 2016, 14:14
Всем привет!
Можно ли решить данную проблему?
   
Название города вводится в "желтую" ячейку.
Название может вноситься как в Листе 1 так и в Листе 2.
№1   Нужно чтобы если внесли название в Лист 1 оно поменялось на такое же и в Листе 2
№2   И также наоборот. Если внесли в Лист 2 чтобы поменялось в Листе 1
   
Если ссылаться на ячейку равно в Лист 2 то условие №1 работает
Но когда в Листе 2 вводишь название города, то формула стирается. А ячейка из Листа 1 не меняет название (так как в ней формулы небыло)...
Это как нибудь можно сделать, чтобы ячейки были одинаковы вне зависимости от того в какую из них ты вводишь город


[вложение удалено администратором]
Название: Re: Excel: Одинаковые ячейки в не зависимости от того в какую из них ввели данные
Отправлено: Администратор от 30 сентября 2016, 17:17
Макрос
Sub Макрос()

    Dim sh As Worksheet
   
    '1. Отключение монитора для ускорения макроса.
    Application.ScreenUpdating = False
   
    ' Просмотр всех листов.
    For Each sh In Worksheets
        ' На активном листе не нужно изменять ячейку "D2".
        If sh.Name <> ActiveSheet.Name Then
            '2. Изменение ячейки "D2".
            sh.Range("D2").Value = ActiveSheet.Range("D2").Value
        End If
    Next sh
   
    '3. Включение монитора.
    Application.ScreenUpdating = True
   
    '4. Сообщение, чтобы юзер понял, что макрос сделал работу.
    MsgBox "Данные изменены.", vbInformation

End Sub
[свернуть]
Название: Re: Excel: Одинаковые ячейки в не зависимости от того в какую из них ввели данные
Отправлено: Kamekadze_rus от 01 октября 2016, 01:33
Огромное спасибо за помощь!
Теперь попробую применить этот макрос на рабочей таблице... Если всё получится то будет здорово.
Название: Re: Excel: Одинаковые ячейки в не зависимости от того в какую из них ввели данные
Отправлено: Kamekadze_rus от 01 октября 2016, 02:39
Попытался вставить макрос в свою таблицу.
Выявилась следующая проблема.
Мне требуется чтобы значение менялось в определённых вкладках, а не во всех сразу.
Так как некоторых вкладках находится совсем другая информация...
Не могли бы вы откорректировать макрос чтобы он менял значения не во всех вкладках а только в определённых?
Пытался методом "тыка" заменить в макросе ячейку D2 на Лист1!D2, но что то пошло не так выдает ошибку...
Название: Re: Excel: Одинаковые ячейки в не зависимости от того в какую из них ввели данные
Отправлено: Администратор от 01 октября 2016, 07:41
Вам нужно написать, на каких листах макрос должен изменять данные. По какому принципу макросу работать. Как макросу понять, что на этом листе надо изменить, а на этом не надо.