Месяц: Август 2016

Sub test_GET_SUM() Dim DC As New DataCopy Dim DC90 As New DataCopy90 Dim Format1 As New Format Dim TotaRec As Integer Application.ScreenUpdating = False DC.SheetSelect ActiveSheet.Name, «Контрагент (приходы)» ThisWorkbook.Sheets(«Приходы»).Select Range(DC.KontrRow — 3 & «:» & DC.ObItog2Row).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Продолжить чтение Сумма по 51 + классы DataCopy→