ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel
4 сообщений из 4, страница 1 из 1
VBA Excel
    #39503193
Сергей Ильин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Ильин
Гость
Добрый день.
Есть необходимость работы с одним файлом у большого количества человек и я решил, что самым оптимальным будет занесение информации сотрудниками отдельно на своих компьютерах, а далее уже по "кнопке" перенос этих данных в общий файл, на котором так же есть защита листов.

Всё понятно, когда надо просто скопировать "из" "в", но вот сцепить эту функцию с определением последней заполненной ячейки не получается.

Sub 1
Range("A1:F52").Select
Selection.Copy
ChDir D/
Workbooks.Open Filename:= 111

Range("A6").Select вероятно, в это место нужно вставить определение

ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
...
Рейтинг: 0 / 0
10.08.2017, 11:11
| Ответить | Цитировать | Написать  
VBA Excel
    #39503270
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub 1
Range("A1:F52").Copy
Workbooks.Open Filename:= 111
ActiveSheet.Paste Destination:=Range("$A$" & CStr(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1))
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
...
Рейтинг: 0 / 0
10.08.2017, 12:30
| Ответить | Цитировать | Написать  
VBA Excel
    #39503273
Сергей Ильин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Ильин
Гость
Akina,
Спасибо. Я так понял, без указания путей к файлу идёт расчёт на то, что они лежат в одной директории?
И так же нет указания на лист куда надо вставлять, так же по умолчанию будет копировать на активный?
...
Рейтинг: 0 / 0
10.08.2017, 12:42
| Ответить | Цитировать | Написать  
VBA Excel
    #39503340
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Сергей Ильинбез указания путей к файлу идёт расчёт на то, что они лежат в одной директории?
Текущий каталог зависит от настроек Excel. И может быть изменён кодом. Правильнее - указывать (или запрашивать у пользователя) пути явно.

Сергей Ильиннет указания на лист куда надо вставлять, так же по умолчанию будет копировать на активный?Точно так же - надо указать явно или запросить.
...
Рейтинг: 0 / 0
10.08.2017, 13:37
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]