Страницы: 1
RSS
Внесение ежемесячных платежей по ГСК в общую таблицу
 
Просьба помочь в написании макроса. Есть общая таблица содержащая список владельцев гаражей с указанием суммы оплаченных платежей , необходимо вносить новые платежи и суммировать в разрезе каждого владельца . Формат таблиц одинаковый , общая таблица находиться на первом листе , ежемесячные данные на втором.

Примечание , если сумма первого платежа больше или равна 600 , то она не учитывается при сумме
 
В модуль листа МАЙ

Код
Sub Zanesti()
Dim iLastRow2 As Long
Dim iEmptyRow As Long
Dim i As Long
Dim Vladel As String
Dim FoundVladel As Range

    iLastRow2 = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastRow2
         Vladel = Cells(i, 1)
         With Sheets("Платежи")
            Set FoundVladel = .Columns(1).Find(Vladel, , xlValues, xlWhole)
            If Not FoundVladel Is Nothing Then
                 iEmptyRow = .Cells(FoundVladel.Row, 1).End(xlDown).Row + 1
                 .Rows(iEmptyRow).Insert xlDown
                 Range(Cells(i, 1), Cells(i, 5)).Copy .Cells(iEmptyRow, 1)
                 If .Cells(FoundVladel.Row, 5).Value >= 600 Then
                    .Cells(iEmptyRow + 1, 5) = WorksheetFunction.Sum(.Range(.Cells(FoundVladel.Row + 1, 5), _
                                                                .Cells(iEmptyRow, 5)))
                 Else
                    .Cells(iEmptyRow + 1, 5) = WorksheetFunction.Sum(.Range(.Cells(FoundVladel.Row, 5), _
                                                                .Cells(iEmptyRow, 5)))
                 End If
            End If
         End With
    Next
End Sub

 
Спасибо  все  работает  как  надо ,  и еще  один  вопросик  а как поменять макрос  чтобы  выделить  данные в ячейке
Например  они  были  бы   не  в  этом столбике , а в соседнем или  после  этих  ячеек  автоматически  проставлялась пустая  строка .  Т е   смысл как то  отделить отного  владельца  от  другого.

И еще просьба проконсультировать  , а  данный  макрос  сможет  разнести  новых   владельцев  в  общую  таблицу (  т е  тех  которых в  таблице  еще  нет  и  сумма  первого платежа  у которых  больше 600 )

Заранее  спасибо
 
По первому вопросику вообще ничего не понял. Какие данные выделять? В каком столбике?
На листе Платежи владельцы у вас и так отделены друг от друга.
Для новых владельцев надо дописывать макрос.
 
Да действительно перечитал пост , как то  сумбурно получилось. Прикрипил файл, надеюсь так будет нагляднее. Спасибо за помощь.
 
Т.е. вы хотите, чтобы сумма была в столбце F ?
А как же ваше примечание из поста #1:
...если сумма первого платежа больше или равна 600 , то она не учитывается при сумме
 
Да действительно получается  что это невозможно .
Тогда просьба поправить макрос в части отображения  фио владельца  в  столбце  А , и установки   пустой  строки.
 
Посмотрите вариант. Проанализируйте работу макроса. Попробуйте сами
изменить на то, что вам необходимо.
 
Если в сумму в листе МАЙ по Сидорову вставить 600 то она тоже проститывается в общей сумме. Условие в макросе надо проверить .
 
Извиняюсь дело в первом платеже, тогда правильно
Страницы: 1
Читают тему
Наверх