Страницы: 1
RSS
Перенос данных из одной таблицы в другую., Мне надо дополнить таблицу данными из другой таблицы, но только тем чего нет в первой таблице.
 
Помогите пожалуйста с составлением формулы.Просто для инвентаризации надо, складов 15 шт.и материалов в них гораздо больше.
 
А как быть с Вал карданный КАМАЗ в начале месяца 1 шт, в конце 10 шт. ?
 
всё правильно, потом вычисляется расход или приход за месяц.
 
Так?
 
Выявить позиции которых нет в столбце В можно с помощью дополнительного столбца G. Потом добавить их с помощью ВПР и столбца А. Вставить значения в столбец Е легко с помощью ВПР.
«Всё гениальное просто» перефразировка афоризма Леонардо да Винчи
 
Вы не так поняли в ручную я сам мучаюсь постоянно.Мне нужна формула чтобы автоматически в столбец "A" подставлялись номенклатуры из столбца "G" которых нет в столбце "A".
 
Цитата
потом вычисляется расход или приход за месяц
Так может сразу подтягивать данные на складе в конце месяца в первую таблицу в столбец D,
которые есть в столбце А -  напротив, которых нет - в конец таблицы
 
Добавил поле Приход/Расход
 
Ещё один вариант.
 
Макрос в модуль листа1
Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Nomenklatura()
Dim i As Integer
Dim iLR As Integer
Dim iLastRow As Integer
Dim Nomenklatura As String
Dim FoundNomenklatura As Range
  iLastRow = Range("G4").End(xlDown).Row
  iLR = Range("A4").End(xlDown).Row + 1
  For i = 5 To iLastRow
    Nomenklatura = Cells(i, 7)
    Set FoundNomenklatura = Columns(1).Find(Nomenklatura, , xlValues, xlWhole)
    If Not FoundNomenklatura Is Nothing Then
      Cells(FoundNomenklatura.Row, 4) = Cells(i, 9)
    Else
      Range(Cells(i, 7), Cells(i, 8)).Copy Cells(iLR, 1)
      Cells(i, 9).Copy Cells(iLR, 4)
      iLR = iLR + 1
    End If
  Next
End Sub
 
Можно нажатием одной кнопки все сделать
http://excelvba.ru/programmes/Lookup

В надстройке, если опция копирования недостающих строк в конец таблицы (что в какой столбец копировать - задается в настройках)
Ну и в существующие (совпавшие) строки можно подставить данные, и выделить цветом
 
Огромное спасибо за помощь!
Страницы: 1
Читают тему
Наверх
Loading...