Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub CommandButton1_Click()
- Sheets("Отчет о литературе").Activate
- Sheets("Отчет о литературе").Range("P2:P77").Select
- Range("P2:P77").Select
- Selection.Copy
- Sheets("Отчет о литературе").Range("D2:D77").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("Отчет о литературе").Range("F2:L77").Select
- Selection.ClearContents
- Sheets("Приход за текущий месяц").Activate
- Sheets("Приход за текущий месяц").Range("B2:B76").Select
- Selection.ClearContents
- Sheets("Отчет о литературе").Activate
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement