Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Перенос комментария ячейки на другую таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос комментария ячейки на другую таблицу (Макросы/Sub)
Перенос комментария ячейки на другую таблицу
mintunicorn001 Дата: Понедельник, 23.05.2022, 17:37 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Привет!

Подскажите. Вот есть две таблицы. В таблице Каталог есть артикулы и у каждого свой комментарий в виде фото товара. И мне нужно, чтобы вводя в таблицу Отчет артикул, он автоматически добавлял тот же комментарий, который есть в таблице Каталог.

Спасибо за любые советы!
К сообщению приложен файл: ___.xlsm(25.0 Kb)
 
Ответить
СообщениеПривет!

Подскажите. Вот есть две таблицы. В таблице Каталог есть артикулы и у каждого свой комментарий в виде фото товара. И мне нужно, чтобы вводя в таблицу Отчет артикул, он автоматически добавлял тот же комментарий, который есть в таблице Каталог.

Спасибо за любые советы!

Автор - mintunicorn001
Дата добавления - 23.05.2022 в 17:37
jun Дата: Вторник, 24.05.2022, 11:44 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

mintunicorn001, приветствую!
Можно, например так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If Target.CountLarge <> 1 Then Exit Sub
        Call Макрос1(Target)
End Sub
Private Sub Макрос1(Target As Range)
Dim arr_katalog, number_row As Long, lr As Long

With Worksheets("каталог")
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr_katalog = .Range(.Cells(1, 1), .Cells(lr, 2))
    number_row = find_in_array(arr_katalog, Target.Value)
    If number_row Then
        .Cells(number_row, 2).Copy
        Target.PasteSpecial xlPasteComments
    End If
End With
End Sub

Private Function find_in_array(arr, what)
Dim i
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 2) = what Then find_in_array = i: Exit Function
    Next i
End Function
[/vba]
В приложенном файле код в модуле листа "Отчёт"
К сообщению приложен файл: 7428702.xlsm(28.8 Kb)
 
Ответить
Сообщениеmintunicorn001, приветствую!
Можно, например так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If Target.CountLarge <> 1 Then Exit Sub
        Call Макрос1(Target)
End Sub
Private Sub Макрос1(Target As Range)
Dim arr_katalog, number_row As Long, lr As Long

With Worksheets("каталог")
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr_katalog = .Range(.Cells(1, 1), .Cells(lr, 2))
    number_row = find_in_array(arr_katalog, Target.Value)
    If number_row Then
        .Cells(number_row, 2).Copy
        Target.PasteSpecial xlPasteComments
    End If
End With
End Sub

Private Function find_in_array(arr, what)
Dim i
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 2) = what Then find_in_array = i: Exit Function
    Next i
End Function
[/vba]
В приложенном файле код в модуле листа "Отчёт"

Автор - jun
Дата добавления - 24.05.2022 в 11:44
mintunicorn001 Дата: Вторник, 24.05.2022, 12:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, спасибо большое! Уже всю голову сломала, как это реализовать!
 
Ответить
Сообщениеjun, спасибо большое! Уже всю голову сломала, как это реализовать!

Автор - mintunicorn001
Дата добавления - 24.05.2022 в 12:44
mintunicorn001 Дата: Среда, 25.05.2022, 07:34 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, подскажите еще :shy: я добавляю комментарии, но на второй таблице они не добавляются. Я что-то упускаю в действиях? Спасибо еще раз!
 
Ответить
Сообщениеjun, подскажите еще :shy: я добавляю комментарии, но на второй таблице они не добавляются. Я что-то упускаю в действиях? Спасибо еще раз!

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 07:34
jun Дата: Среда, 25.05.2022, 07:42 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

mintunicorn001, уточните, пожалуйста, что не получается?
У меня в таблицу каталог добавляются комментарии корректно.
Может что-то упустили в задаче и я не совсем Вас понял?
 
Ответить
Сообщениеmintunicorn001, уточните, пожалуйста, что не получается?
У меня в таблицу каталог добавляются комментарии корректно.
Может что-то упустили в задаче и я не совсем Вас понял?

Автор - jun
Дата добавления - 25.05.2022 в 07:42
mintunicorn001 Дата: Среда, 25.05.2022, 08:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, ой, я наоборот имела ввиду из каталога комментарий идет в отчет. Потому что отчет будет меняться, а каталог будет статичен
 
Ответить
Сообщениеjun, ой, я наоборот имела ввиду из каталога комментарий идет в отчет. Потому что отчет будет меняться, а каталог будет статичен

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 08:46
jun Дата: Среда, 25.05.2022, 09:03 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

mintunicorn001, так макрос так и работает.
При вводе артикула на листе отчет макрос подтягивает комментарий, при нахождении совпадения, на лист отчет.
Или я что-то не понял :)
 
Ответить
Сообщениеmintunicorn001, так макрос так и работает.
При вводе артикула на листе отчет макрос подтягивает комментарий, при нахождении совпадения, на лист отчет.
Или я что-то не понял :)

Автор - jun
Дата добавления - 25.05.2022 в 09:03
mintunicorn001 Дата: Среда, 25.05.2022, 09:41 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, я вот просто добавляю новые артикулы и он не перетягивает( и если я даже картинку у комментария меняю, то тоже тишина. макросы включены :confused: что-то в моей версии не так
 
Ответить
Сообщениеjun, я вот просто добавляю новые артикулы и он не перетягивает( и если я даже картинку у комментария меняю, то тоже тишина. макросы включены :confused: что-то в моей версии не так

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 09:41
jun Дата: Среда, 25.05.2022, 10:09 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

mintunicorn001, макрос работает так:
добавляете артикул на листе каталог с комментарием и при вводе артикула на листе отчет, если он совпадает с артикулом с листа каталог, добавляется комментарий.
Макрос срабатывает на изменение ячейки столбца С листа отчет
 
Ответить
Сообщениеmintunicorn001, макрос работает так:
добавляете артикул на листе каталог с комментарием и при вводе артикула на листе отчет, если он совпадает с артикулом с листа каталог, добавляется комментарий.
Макрос срабатывает на изменение ячейки столбца С листа отчет

Автор - jun
Дата добавления - 25.05.2022 в 10:09
mintunicorn001 Дата: Среда, 25.05.2022, 10:12 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, а он автоматически срабатывает?
 
Ответить
Сообщениеjun, а он автоматически срабатывает?

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 10:12
jun Дата: Среда, 25.05.2022, 10:36 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

да.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]
срабатывает на изменение ячейки
 
Ответить
Сообщениеда.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]
срабатывает на изменение ячейки

Автор - jun
Дата добавления - 25.05.2022 в 10:36
mintunicorn001 Дата: Среда, 25.05.2022, 12:37 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, что-то я делаю не так %)
К сообщению приложен файл: 7428702.zip(225.9 Kb)
 
Ответить
Сообщениеjun, что-то я делаю не так %)

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 12:37
jun Дата: Среда, 25.05.2022, 13:07 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 15 ±
Замечаний: 0% ±

все работает
вводите артикул на листе отчёт (3 столбец) и артикул, если найдено совпадение, подтягивается.
:)
если не получается, можете описать по шагам, чтобы я лучше Вас понял? :)
 
Ответить
Сообщениевсе работает
вводите артикул на листе отчёт (3 столбец) и артикул, если найдено совпадение, подтягивается.
:)
если не получается, можете описать по шагам, чтобы я лучше Вас понял? :)

Автор - jun
Дата добавления - 25.05.2022 в 13:07
mintunicorn001 Дата: Среда, 25.05.2022, 13:19 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

jun, аааа, все, если заново вбить, то все круто. Спасибо большое!
 
Ответить
Сообщениеjun, аааа, все, если заново вбить, то все круто. Спасибо большое!

Автор - mintunicorn001
Дата добавления - 25.05.2022 в 13:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос комментария ячейки на другую таблицу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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