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