Добрый день! Очень нужна ваша помощь. Есть задача....при выборе ФИО сотрудника (лист "расчет"), заполняется информация о нем в ячейках B4, B5, B6. Данные берутся с листа "май".
Заранее благодарю.
Добрый день! Очень нужна ваша помощь. Есть задача....при выборе ФИО сотрудника (лист "расчет"), заполняется информация о нем в ячейках B4, B5, B6. Данные берутся с листа "май".
Это своего рода карточка сотрудника, на которой будет множество информацию, взятой из разных листов excel. Делать все функциями, конечно можно, но макрос бы мне значительно упростил задачу.
Это своего рода карточка сотрудника, на которой будет множество информацию, взятой из разных листов excel. Делать все функциями, конечно можно, но макрос бы мне значительно упростил задачу.ane4ka87
Private Sub Worksheet_Change(ByVal Target As Range) Dim idData As Range Set idData = Intersect(Target, Range("C1")) If Not idData Is Nothing Then Set shData = Sheets("май") If idData <> "" Then With shData r = .Columns(1).Find(idData, , xlValues, xlWhole).Row c = .Rows(1).Find("Проект", , xlValues, xlWhole).Column Range("B4").Resize(3) = WorksheetFunction.Transpose(.Cells(r, 2).Resize(, 3)) End With End If End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim idData As Range Set idData = Intersect(Target, Range("C1")) If Not idData Is Nothing Then Set shData = Sheets("май") If idData <> "" Then With shData r = .Columns(1).Find(idData, , xlValues, xlWhole).Row c = .Rows(1).Find("Проект", , xlValues, xlWhole).Column Range("B4").Resize(3) = WorksheetFunction.Transpose(.Cells(r, 2).Resize(, 3)) End With End If End If End Sub
У вас данные на листе май расположены по горизонтали, а вам их надо трансформировать в вертикальный столбец, поэтому WorksheetFunction.Transpose Аргумент с можно не вычислять, т.к. и так ясно, что Проект - это 2-ой столбец
У вас данные на листе май расположены по горизонтали, а вам их надо трансформировать в вертикальный столбец, поэтому WorksheetFunction.Transpose Аргумент с можно не вычислять, т.к. и так ясно, что Проект - это 2-ой столбецKuzmich
Сообщение отредактировал Kuzmich - Четверг, 19.05.2022, 22:18
Kuzmich, добрый вечер! Подскажите, пожалуйста, нужно чтобы часть данных с листа "май" переносилась в другие ячейки на листе "расчет". Как это можно осуществить?
Kuzmich, добрый вечер! Подскажите, пожалуйста, нужно чтобы часть данных с листа "май" переносилась в другие ячейки на листе "расчет". Как это можно осуществить?ane4ka87
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
