Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматический перенос данных из ячейки в ячейку - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Автоматический перенос данных из ячейки в ячейку
and23032 Дата: Воскресенье, 21.06.2015, 16:06 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ув. специалисты!
Прошу помочь.
Имеется таблица в которой ведется учет продукции на складе.Книга имеет количество листов соответствующее количеству календарных дней в месяце. Листы создаются каждый день и упорядочены по дате в порядке возрастания. Изменения есть каждый день.
Нужно, чтобы при создании(копировании) нового листа, данные с столбца конечного остатка предыдущего дня, копировались в столбец начального остатка настоящего дня.Например :данные из листа 19.06, столбцы- F3-F40, J3-J40,N3-N40,R3-R40,V3-V40 ,автоматически копировались в лист 20.06 столбец C3-C40,G3-G40,K3-K40,O3-O40,S3-S40 .
К сообщению приложен файл: 8077745.xls (85.5 Kb)
 
Ответить
СообщениеУв. специалисты!
Прошу помочь.
Имеется таблица в которой ведется учет продукции на складе.Книга имеет количество листов соответствующее количеству календарных дней в месяце. Листы создаются каждый день и упорядочены по дате в порядке возрастания. Изменения есть каждый день.
Нужно, чтобы при создании(копировании) нового листа, данные с столбца конечного остатка предыдущего дня, копировались в столбец начального остатка настоящего дня.Например :данные из листа 19.06, столбцы- F3-F40, J3-J40,N3-N40,R3-R40,V3-V40 ,автоматически копировались в лист 20.06 столбец C3-C40,G3-G40,K3-K40,O3-O40,S3-S40 .

Автор - and23032
Дата добавления - 21.06.2015 в 16:06
_Boroda_ Дата: Воскресенье, 21.06.2015, 16:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация: 6612 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Для С3
Код
=ЕСЛИОШИБКА(ДВССЫЛ(ТЕКСТ((ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;5)-1);"'ДД.ММ")&ТЕКСТ(--ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;5);"-ДД.ММ'!")&ЯЧЕЙКА("адрес";F3));)

Для столбца С сделал в файле, для остальных аналогично.
И уберите пробел в названии первого листа
К сообщению приложен файл: 8077745_1.xls (88.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Для С3
Код
=ЕСЛИОШИБКА(ДВССЫЛ(ТЕКСТ((ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;5)-1);"'ДД.ММ")&ТЕКСТ(--ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;5);"-ДД.ММ'!")&ЯЧЕЙКА("адрес";F3));)

Для столбца С сделал в файле, для остальных аналогично.
И уберите пробел в названии первого листа

Автор - _Boroda_
Дата добавления - 21.06.2015 в 16:29
and23032 Дата: Воскресенье, 21.06.2015, 18:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Да, СПС, Все вроде получилось! hands
 
Ответить
Сообщение_Boroda_, Да, СПС, Все вроде получилось! hands

Автор - and23032
Дата добавления - 21.06.2015 в 18:10
KSV Дата: Воскресенье, 21.06.2015, 21:35 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
еще вариант
(макросы нужно разрешить)
К сообщению приложен файл: 4507716.xls (69.0 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениееще вариант
(макросы нужно разрешить)

Автор - KSV
Дата добавления - 21.06.2015 в 21:35
and23032 Дата: Воскресенье, 21.06.2015, 23:48 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Дома применил формулу на рабочей таблице для всех столбцов, вроде все получилось,защитил все ячейки кроме столбцов "Приход","Расход",т.к. таблицей пользуются четыре смены и часто сбивают формулы.Скинул таблицу на работу, на работе перестало переносить значения на новый лист. %)
KSV, а как Ваш макрос можно применить на рабочей таблице?


Сообщение отредактировал and23032 - Воскресенье, 21.06.2015, 23:50
 
Ответить
Сообщение_Boroda_, Дома применил формулу на рабочей таблице для всех столбцов, вроде все получилось,защитил все ячейки кроме столбцов "Приход","Расход",т.к. таблицей пользуются четыре смены и часто сбивают формулы.Скинул таблицу на работу, на работе перестало переносить значения на новый лист. %)
KSV, а как Ваш макрос можно применить на рабочей таблице?

Автор - and23032
Дата добавления - 21.06.2015 в 23:48
KSV Дата: Понедельник, 22.06.2015, 00:00 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Нажмите Alt+F11 - откроется окно редактора кода, там увидите код макроса, скопируйте его и вставьте в ваш рабочий файл.
Затем правый клик на кнопке, выбираете пункт "Копировать", затем вставляете ее на последний лист вашей рабочей книги и назначаете ей скопированный ранее макрос (тоже правый клик на кнопке и выбрать "Назначить макрос").

[p.s.]Или скопируйте все нужные листы из вашей рабочей книги в этот файл-пример и пользуйтесь этим файлом, как рабочим.[/p.s.]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Понедельник, 22.06.2015, 00:03
 
Ответить
СообщениеНажмите Alt+F11 - откроется окно редактора кода, там увидите код макроса, скопируйте его и вставьте в ваш рабочий файл.
Затем правый клик на кнопке, выбираете пункт "Копировать", затем вставляете ее на последний лист вашей рабочей книги и назначаете ей скопированный ранее макрос (тоже правый клик на кнопке и выбрать "Назначить макрос").

[p.s.]Или скопируйте все нужные листы из вашей рабочей книги в этот файл-пример и пользуйтесь этим файлом, как рабочим.[/p.s.]

Автор - KSV
Дата добавления - 22.06.2015 в 00:00
and23032 Дата: Понедельник, 22.06.2015, 11:46 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KSV, Пипец, я чайник полный, пол ночи промучался, не могу заставить нормально работать макрос... %)
P.S. Поехал на работу , вечером продолжу втыкать...


Сообщение отредактировал and23032 - Понедельник, 22.06.2015, 11:49
 
Ответить
СообщениеKSV, Пипец, я чайник полный, пол ночи промучался, не могу заставить нормально работать макрос... %)
P.S. Поехал на работу , вечером продолжу втыкать...

Автор - and23032
Дата добавления - 22.06.2015 в 11:46
KSV Дата: Понедельник, 22.06.2015, 11:47 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
:) Что именно не получилось?


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение:) Что именно не получилось?

Автор - KSV
Дата добавления - 22.06.2015 в 11:47
and23032 Дата: Понедельник, 22.06.2015, 11:54 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Скопировал код макроса на рабочую книгу,но не нашел как перенести иконку,простым копированием не получается...
Также пробовал переносить рабочую(не обрезанную таблицу) на Ваш файл , при создании нового дня выскакивает ошибка ,он создается ,но не переносятся конечный в начальный остаток..
 
Ответить
СообщениеСкопировал код макроса на рабочую книгу,но не нашел как перенести иконку,простым копированием не получается...
Также пробовал переносить рабочую(не обрезанную таблицу) на Ваш файл , при создании нового дня выскакивает ошибка ,он создается ,но не переносятся конечный в начальный остаток..

Автор - and23032
Дата добавления - 22.06.2015 в 11:54
KSV Дата: Понедельник, 22.06.2015, 12:15 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
при создании нового дня выскакивает ошибка

Какая? Что написано?
Подозреваю, что просто лист с таким именем (как пытается создать макрос) уже есть в книге.

[p.s.]Кидайте мне на почту УИН и пароль тимвьювера - я подключусь и сделаю.
(Все мои действия вы будете видеть)[/p.s.]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Понедельник, 22.06.2015, 12:17
 
Ответить
Сообщение
при создании нового дня выскакивает ошибка

Какая? Что написано?
Подозреваю, что просто лист с таким именем (как пытается создать макрос) уже есть в книге.

[p.s.]Кидайте мне на почту УИН и пароль тимвьювера - я подключусь и сделаю.
(Все мои действия вы будете видеть)[/p.s.]

Автор - KSV
Дата добавления - 22.06.2015 в 12:15
and23032 Дата: Понедельник, 22.06.2015, 18:16 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KSV, отправил на Email
 
Ответить
СообщениеKSV, отправил на Email

Автор - and23032
Дата добавления - 22.06.2015 в 18:16
and23032 Дата: Вторник, 23.06.2015, 11:24 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KSV, Спасибо за помощь , все работает,осталось несколько вопросов:
1.По окончании месяца,если удалить все предыдущие листы(даты) и оставить последнюю с иконкой "Новый день", и переименовать книгу на "Июль",Макрос будет работать? Вопрос снят, все работает hands
2. Как можно прикрутить защиту листа, оставив незащищенными только Желтые ячейки Прихода и Расхода, и возможно ли защитить иконку "Новый день" от случайного нажатия при вводе данных?
[moder]По пункту 2 нужно создать новую тему. Защита листа к переносу данных не относится.[/moder]
 
Ответить
СообщениеKSV, Спасибо за помощь , все работает,осталось несколько вопросов:
1.По окончании месяца,если удалить все предыдущие листы(даты) и оставить последнюю с иконкой "Новый день", и переименовать книгу на "Июль",Макрос будет работать? Вопрос снят, все работает hands
2. Как можно прикрутить защиту листа, оставив незащищенными только Желтые ячейки Прихода и Расхода, и возможно ли защитить иконку "Новый день" от случайного нажатия при вводе данных?
[moder]По пункту 2 нужно создать новую тему. Защита листа к переносу данных не относится.[/moder]

Автор - and23032
Дата добавления - 23.06.2015 в 11:24
KSV Дата: Вторник, 23.06.2015, 19:06 | Сообщение № 13
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
[offtop]Я ему уже по скайпу ответил[/offtop]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение[offtop]Я ему уже по скайпу ответил[/offtop]

Автор - KSV
Дата добавления - 23.06.2015 в 19:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!