Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копировать значение ячейки в соответствующий столбец другой таблицы
 
#1
05.04.2020 18:32:09
Добрый день, Подскажите как сделать так что-бы при введении наименования и № разрешения  в первой таблице № разрешения автоматически копировался в столбец с соответствующим наименованием во вторую (нижнюю) таблицу.  
 
 
 
#2
05.04.2020 19:34:19
Makuton, а можете детальнее описать что должно проходить, а самое главное как? когда несколько значений? нужно вниз друг под другом подставлять?!

верхняя таблица я так понимаю будет увеличиваться ( по количеству строк?)
Изменено: Mershik - 05.04.2020 19:38:46
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
05.04.2020 20:05:09
Я ввожу наименование и № разрешения в первую таблицу, номер разрешения должен копироваться в пустую ячейку столбца с соответствующим наименованием во второй таблице. Да первая таблица будет увеличиваться.  
 
 
 
#4
05.04.2020 20:36:42
Makuton, не уверен что понял..попробуйте.
в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Double
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Таблица2[№ Разрешения]")) Is Nothing Then
If Not Target = "" Or IsEmpty(Target) Then
Set Myfind = Range("Таблица4[#Headers]").Find(Target.Offset(0, -1))
On Error Resume Next
mycol = Myfind.Column
myrow = Myfind.Row
k = Application.WorksheetFunction.CountIf(Range("Таблица2[Наименование:]"), Target.Offset(0, -1).Value)
For i = myrow To myrow + k
If IsEmpty(Cells(i, mycol)) Then
Cells(i, mycol) = Target
Exit For
End If
Next i
End If
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
05.04.2020 20:40:05
Спасибо огромное, работает отлично.
 
 
 
Страницы: 1
Наверх