Выполняю макрос - все хорошо - закрываю файл, пробую потом снова - ошибка... и бывают разные - пишет типа: то не удалось открыть книгу, то копирование низя то сбрасывается выделенный диапазон... вообщем - не пойму в чем дело - если кто-то сталкивался с подобным - разъясните плиз... мб криво эксель установлен или руки не те... Эксель 2007. Винда 7.
ЗЫ: раз случилось - что каким-то образом в окне где прописывал макрос - появились как бы дублированные листы... - их нет на самом деле, но в них есть прописанные макросы, а в настоящих - оказывалось пусто..
[CODE][/CODE]
ЗЫ: раз случилось - что каким-то образом в окне где прописывал макрос - появились как бы дублированные листы... - их нет на самом деле, но в них есть прописанные макросы, а в настоящих - оказывалось пусто..
[CODE][/CODE]
Sub КВмельница() |
Dim LastRow As Long |
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по столбцу А |
Range(Cells(4, 2), Cells(LastRow, 3)).Select |
Selection.Copy |
ChDrive "C:\Users\Dok\Documents" |
Workbooks.Open Filename:= _ |
"C:\Users\Dok\Documents\ХОРОШИЕ РЕШЕНИЯ\Готовые примеры\Мельница\Реал2016проба.xlsm" |
Worksheets("ПРОБА_ОТЧЕТА ").Select |
Dim EmptyCell As Range |
Const StartCell = "a4" |
If Len(Range(StartCell)) = 0 Then |
Set EmptyCell = Range(StartCell) |
Else |
Set EmptyCell = Range(StartCell).End(xlToRight).Offset(0, 1) |
End If |
EmptyCell.Select |
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ |
True, Transpose:=False |
End Sub |
Поспешай медленно