Добрый день, есть список, его сотрудники пополняют и в конце рабочего дня они выделяют все записи за день и нажимаю кнопку, запись выделенного (на нем макрос)
суть макроса копирование выделенной области на др лист (уже сделал) и копирование выделенных данных в отдельный файл и его пополнение (не сделал) и хочу еще отчищать раб область (лист куда сотрудники в течение дня вводят записи). Очень нужна ваша помощь
копирование в другой файл работает криво, копируется вся строка а не выделение,иногда не все данные копируются
суть макроса копирование выделенной области на др лист (уже сделал) и копирование выделенных данных в отдельный файл и его пополнение (не сделал) и хочу еще отчищать раб область (лист куда сотрудники в течение дня вводят записи). Очень нужна ваша помощь
| Цитата |
|---|
ub ЗаписьВОбщийЖурнал() ' ' Макрос2 Макрос Selection.Copy Sheets("База данных"  .SelectRange("A1" .SelectSelection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste ActiveWorkbook.Save Sheets("Исходные данные" .SelectSelection.ClearContents Range("A3" .Select'это часть работает замечательно ' это копирования выделения в другой файл If Not TypeName(Selection) = "Range" Then Exit Sub Dim lr&, wb As Workbook, lb As Workbook With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With Set wb = GetObject("c:\test.xls" 'путь к файлу-накопителюSet lb = ThisWorkbook lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row Selection.Copy wb.Sheets(1).Cells(lr + 1, 1) wb.Close (True) ' закрыть с сохранением With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With Set wb = Nothing: Set lb = Nothing End Sub |
копирование в другой файл работает криво, копируется вся строка а не выделение,иногда не все данные копируются
