Страницы: 1
RSS
Перенос данных с двух листов в 1, Нужно перенести данные с 2х листов в один, так что бы при изменение последовательности колонок данные в 1ый лист подтягивались
 
Добрый день.
Нужна ваша помощь.
С листов Лист2 и Лист3 с помощью формул перенести значения в соответствующие ячейки таблицы таким образом, чтобы при изменении последовательности колонок  на исходных листах 2 и 3 , значения на данный лист вставали в соответствующие поля/ячейки
Файл прикреплен
 
AnnaD543926, ничего не понятно. Что куда переносить  по какому критерию?
что за январь и февраль?

почему не результата который должен получится?
Изменено: Mershik - 28.01.2020 20:09:20
Не бойтесь совершенства. Вам его не достичь.
 
Кнопок не увидел ни на одном из листов.
"Все гениальное просто, а все простое гениально!!!"
 
Mershik, забыла изменить наименование листов :cry:
Задачка выглядит так:
С листов Январь и Февраль с помощью формул перенести значения в соответствующие ячейки таблицы ниже таким образом, чтобы при изменении последовательности колонок  на исходных листах январь и февраль , значения на данный лист вставали в соответствующие поля/ячейки

Новый файл прикреплен...
 
AnnaD543926,
Цитата
с помощью формул перенести значения в соответствующие ячейки таблицы
Я формулами не умею, вот макрос в стандартный модуль попробуйте, запускать при активном
листе Лист1
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim ListMonth As Worksheet
Dim FoundFIO As Range
Dim FoundOplata As Range
Dim j As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 10 To iLastRow
   If Not IsEmpty(Cells(i, "A")) Then
    Set ListMonth = ThisWorkbook.Worksheets(Cells(i, "A").Text)
      With ListMonth
        Set FoundFIO = .Columns(1).Find(Cells(i, "B"), , xlValues, xlWhole)
         For j = 3 To 7
           Set FoundOplata = .Rows(1).Find(Cells(9, j), , xlValues, xlWhole)
            Cells(i, j) = .Cells(FoundFIO.Row, FoundOplata.Column)
         Next
      End With
   End If
  Next
End Sub
 
Kuzmich,спасибо!!!
Все работает!
Страницы: 1
Наверх