Tormozilka2000
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Многоуважаемые! Как упростить код? Дано: Sheet1 с фиксированными полями.туда заливаются ежедневные данные. Есть Sheet "X". В нем колонки с датами. В ШЫТ1 есть фиксированное поле с датой. Задача: проверить дату в ШЫТ1 с датой в ШЫТ X и скопировать данные из множества непоследовательного выделения(фиксированное) ячеек из ШЫТ1 в другое мн-во непослед.ячеек на другом листе(ШЫТ Х). И будет ли это все работать, если ШЫТ1 вынести в другую книгу? Sub Macro1() If Sheets("Sheet1").Range("B1").value = Sheets("Daily Loans Outs Actual").Range("B5").value Then GoTo ActivateCopyPaste ElseIf Sheets("Sheet1").Range("B1").value = Sheets("Daily Loans Outs Actual").Range("C5").value Then GoTo ActivateCopyPaste2 Exit Sub End If ActivateCopyPaste: Application.ScreenUpdating = False Sheets("Sheet1").Select Range("B6:B8").Copy Sheets("Daily Loans Outs Actual").Select Range("B40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B10:B12").Copy Sheets("Daily Loans Outs Actual").Select Range("B44").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B14:B16").Copy Sheets("Daily Loans Outs Actual").Select Range("B48").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B18:B20").Copy Sheets("Daily Loans Outs Actual").Select Range("B56").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B22:B24").Copy Sheets("Daily Loans Outs Actual").Select Range("B60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Exit Sub ActivateCopyPaste2: Application.ScreenUpdating = False Sheets("Sheet1").Select Range("B6:B8").Copy Sheets("Daily Loans Outs Actual").Select Range("C40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B10:B12").Copy Sheets("Daily Loans Outs Actual").Select Range("C44").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B14:B16").Copy Sheets("Daily Loans Outs Actual").Select Range("C48").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B18:B20").Copy Sheets("Daily Loans Outs Actual").Select Range("C56").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("B22:B24").Copy Sheets("Daily Loans Outs Actual").Select Range("C60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |