Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
объединение двух книг с созданием сводных таблиц на определенном листе в зависимости от даты
 
Здравствуйте. Пожалуйста подскажите как сделать или где посмотреть пример такого макроса. Мне необходимо чтоб данные (имя, адрес и сумма платежа) из книги 1 со всех листов в зависимости от даты переходили в книгу 2 на лист с этой датой. Заранее очень благодарна за любую помощь.
 
Макрос в стандартный модуль книги 2
Обе книги должны быть открыты
Код
Sub Sobrat_Data()
Dim FoundDate As Range
Dim ListName As Date
Dim FirstDate As String
Dim i As Long
Dim n As Integer
Dim iLastRow As Long
Dim iSh As Worksheet
Dim nSh As Worksheet
 For i = 1 To ThisWorkbook.Worksheets.Count
     Set iSh = ThisWorkbook.Worksheets(i)
   ListName = iSh.Name
     With Workbooks("1")
       For n = 1 To .Worksheets.Count
         Set nSh = .Worksheets(n)
           With nSh
             Set FoundDate = .Columns(6).Find(ListName, , xlFormulas, xlWhole)
               If Not FoundDate Is Nothing Then
                FirstDate = FoundDate.Address
                 Do
                   iLastRow = iSh.Cells(Rows.Count, 2).End(xlUp).Row + 1
                     iSh.Cells(iLastRow, 2) = .Cells(FoundDate.Row, 1) 'имя
                     iSh.Cells(iLastRow, 3) = .Cells(FoundDate.Row, 2) 'адрес
                     iSh.Cells(iLastRow, 4) = .Cells(FoundDate.Row, 3) 'дом
                     iSh.Cells(iLastRow, 5) = .Cells(FoundDate.Row, 4) 'кв
                     iSh.Cells(iLastRow, 6) = .Cells(FoundDate.Row, 5) 'сумма платежа
                   Set FoundDate = .Columns(6).FindNext(FoundDate)
                 Loop While FoundDate.Address <> FirstDate
               Else
                  MsgBox "Нет такой даты в столбце F"
               End If
           End With
       Next
     End With
 Next
End Sub
Пробуйте, удачи!
 
Огромнейшее СПАСИБО!  
Не сочтите за наглость, подскажите еще пожалуйста, как расширить это макрос на несколько месяцев?нужно ли указывать какие то дипазоны значений листов, если даты месяцев указаны в разных столбцах?
 
Цитата
если даты месяцев указаны в разных столбцах?
Макрос ищет даты на всех листах книги 1 в столбце F
Страницы: 1
Читают тему (гостей: 1)