Перенести данные с одной вкладки в другую с кнопки
serega190188
Дата: Четверг, 18.05.2017, 10:48 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Всем, привет! Нужно сделать инструмент, с помощью написания макроса, который будет помогать вести учет, Мне нужно, чтобы данные с одной вкладки перебрасывались в другую, с помощью кнопки. Например: Сотрудник заходит во вкладку " Приход" Вносит там данные по дате, ФИО, Описание товара, Кол-во и нажимаем кнопку " Принять", и тут же все эти данные переходят в закладку " Движение ТМЦ". Следующий товар принимает, все данные снова перебрасываются в "Движение ТМЦ", в нижнюю строку по порядку(получается по нажатию кнопки идет циклом с первой строчки вниз, пока не найдёт пустую, найдя пустую, считать её подходящей), тоже самое нужно сделать со вкладкой "Расход". Нажимаем кнопку "выход", файл сохраняется и книга закрывается. Заранее огромное человеческое спасибо.
Всем, привет! Нужно сделать инструмент, с помощью написания макроса, который будет помогать вести учет, Мне нужно, чтобы данные с одной вкладки перебрасывались в другую, с помощью кнопки. Например: Сотрудник заходит во вкладку " Приход" Вносит там данные по дате, ФИО, Описание товара, Кол-во и нажимаем кнопку " Принять", и тут же все эти данные переходят в закладку " Движение ТМЦ". Следующий товар принимает, все данные снова перебрасываются в "Движение ТМЦ", в нижнюю строку по порядку(получается по нажатию кнопки идет циклом с первой строчки вниз, пока не найдёт пустую, найдя пустую, считать её подходящей), тоже самое нужно сделать со вкладкой "Расход". Нажимаем кнопку "выход", файл сохраняется и книга закрывается. Заранее огромное человеческое спасибо. serega190188
Сообщение отредактировал serega190188 - Четверг, 18.05.2017, 11:24
Ответить
Сообщение Всем, привет! Нужно сделать инструмент, с помощью написания макроса, который будет помогать вести учет, Мне нужно, чтобы данные с одной вкладки перебрасывались в другую, с помощью кнопки. Например: Сотрудник заходит во вкладку " Приход" Вносит там данные по дате, ФИО, Описание товара, Кол-во и нажимаем кнопку " Принять", и тут же все эти данные переходят в закладку " Движение ТМЦ". Следующий товар принимает, все данные снова перебрасываются в "Движение ТМЦ", в нижнюю строку по порядку(получается по нажатию кнопки идет циклом с первой строчки вниз, пока не найдёт пустую, найдя пустую, считать её подходящей), тоже самое нужно сделать со вкладкой "Расход". Нажимаем кнопку "выход", файл сохраняется и книга закрывается. Заранее огромное человеческое спасибо. Автор - serega190188 Дата добавления - 18.05.2017 в 10:48
китин
Дата: Четверг, 18.05.2017, 10:50 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Четверг, 18.05.2017, 10:51
Ответить
китин
Дата: Четверг, 18.05.2017, 10:59 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
вы первую ссылку прочитали? а теперь попробуйте набрать в поиске Запутался Макрос. . а потом расскажите что там будет. ОК? [p.s.] Запутался Макрос. а почему в " Вопросы по Excel"???
вы первую ссылку прочитали? а теперь попробуйте набрать в поиске Запутался Макрос. . а потом расскажите что там будет. ОК? [p.s.] Запутался Макрос. а почему в " Вопросы по Excel"??? китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение вы первую ссылку прочитали? а теперь попробуйте набрать в поиске Запутался Макрос. . а потом расскажите что там будет. ОК? [p.s.] Запутался Макрос. а почему в " Вопросы по Excel"??? Автор - китин Дата добавления - 18.05.2017 в 10:59
serega190188
Дата: Четверг, 18.05.2017, 11:03 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Исправил тему. Удалите тут мою тему. Я пересоздам ее в разделе " Вопросы по VBA",там же нужно решать вопросы с макросами.
Исправил тему. Удалите тут мою тему. Я пересоздам ее в разделе " Вопросы по VBA",там же нужно решать вопросы с макросами. serega190188
Сообщение отредактировал serega190188 - Четверг, 18.05.2017, 11:06
Ответить
Сообщение Исправил тему. Удалите тут мою тему. Я пересоздам ее в разделе " Вопросы по VBA",там же нужно решать вопросы с макросами. Автор - serega190188 Дата добавления - 18.05.2017 в 11:03
китин
Дата: Четверг, 18.05.2017, 11:10 |
Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
модераторы перенесут.
модераторы перенесут. китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение модераторы перенесут. Автор - китин Дата добавления - 18.05.2017 в 11:10
китин
Дата: Четверг, 18.05.2017, 12:24 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
ну вот такой вам , несколько ущербный вариант( только учусь)
[vba]
Код
Sub prihod() Dim pr& Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False pr = Sheets("Движение ТМЦ").Cells(Rows.Count, 3).End(xlUp).Row + 1 Range("C5").Copy Sheets("Движение ТМЦ").Range("A" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("E5").Copy Sheets("Движение ТМЦ").Range("C" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("F5").Copy Sheets("Движение ТМЦ").Range("E" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("G5").Copy Sheets("Движение ТМЦ").Range("F" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
ну вот такой вам , несколько ущербный вариант( только учусь)
[vba]
Код
Sub prihod() Dim pr& Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False pr = Sheets("Движение ТМЦ").Cells(Rows.Count, 3).End(xlUp).Row + 1 Range("C5").Copy Sheets("Движение ТМЦ").Range("A" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("E5").Copy Sheets("Движение ТМЦ").Range("C" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("F5").Copy Sheets("Движение ТМЦ").Range("E" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("G5").Copy Sheets("Движение ТМЦ").Range("F" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение ну вот такой вам , несколько ущербный вариант( только учусь)
[vba]
Код
Sub prihod() Dim pr& Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False pr = Sheets("Движение ТМЦ").Cells(Rows.Count, 3).End(xlUp).Row + 1 Range("C5").Copy Sheets("Движение ТМЦ").Range("A" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("E5").Copy Sheets("Движение ТМЦ").Range("C" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("F5").Copy Sheets("Движение ТМЦ").Range("E" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Range("G5").Copy Sheets("Движение ТМЦ").Range("F" & pr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
Автор - китин Дата добавления - 18.05.2017 в 12:24
serega190188
Дата: Четверг, 18.05.2017, 12:41 |
Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Только еще один момент, а как сделать авто обновление сводной таблице, во вкладке "Итог". После того, как данные улетели во вкладку "Движение ТМЦ", нужно переходить во вкладку "Итог" и там в ручную обновлять, а как сделать, чтобы автоматически обновление проходило.
Только еще один момент, а как сделать авто обновление сводной таблице, во вкладке "Итог". После того, как данные улетели во вкладку "Движение ТМЦ", нужно переходить во вкладку "Итог" и там в ручную обновлять, а как сделать, чтобы автоматически обновление проходило. serega190188
Сообщение отредактировал serega190188 - Четверг, 18.05.2017, 13:35
Ответить
Сообщение Только еще один момент, а как сделать авто обновление сводной таблице, во вкладке "Итог". После того, как данные улетели во вкладку "Движение ТМЦ", нужно переходить во вкладку "Итог" и там в ручную обновлять, а как сделать, чтобы автоматически обновление проходило. Автор - serega190188 Дата добавления - 18.05.2017 в 12:41
китин
Дата: Четверг, 18.05.2017, 12:51 |
Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
немного только проще сделать,
будем тренироваться [p.s.]а вы видите как я свой код оформил? хорошо читается? а ваш абсолютно нечитабелен. исправьте, а то замечание от наших добрейшей души модераторов вам обеспечено[/p.s.]
немного только проще сделать,
будем тренироваться [p.s.]а вы видите как я свой код оформил? хорошо читается? а ваш абсолютно нечитабелен. исправьте, а то замечание от наших добрейшей души модераторов вам обеспечено[/p.s.]китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Четверг, 18.05.2017, 12:53
Ответить
Сообщение немного только проще сделать,
будем тренироваться [p.s.]а вы видите как я свой код оформил? хорошо читается? а ваш абсолютно нечитабелен. исправьте, а то замечание от наших добрейшей души модераторов вам обеспечено[/p.s.]Автор - китин Дата добавления - 18.05.2017 в 12:51
KuklP
Дата: Четверг, 18.05.2017, 12:55 |
Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
del
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Четверг, 18.05.2017, 13:07
Ответить
Сообщение del Автор - KuklP Дата добавления - 18.05.2017 в 12:55
serega190188
Дата: Четверг, 18.05.2017, 13:14 |
Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Спасибо.
Сообщение отредактировал serega190188 - Четверг, 18.05.2017, 13:34
Ответить
Сообщение Спасибо. Автор - serega190188 Дата добавления - 18.05.2017 в 13:14
китин
Дата: Четверг, 18.05.2017, 13:28 |
Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
пост 7 поправляем и решение получаем
пост 7 поправляем и решение получаем китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение пост 7 поправляем и решение получаем Автор - китин Дата добавления - 18.05.2017 в 13:28
serega190188
Дата: Четверг, 18.05.2017, 13:35 |
Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Сообщений: 4080 Репутация: 631 ± Замечаний: 0% ± Excel 2007;Excel 2010 пост 7 поправляем и решение получаем
Исправил)
Сообщений: 4080 Репутация: 631 ± Замечаний: 0% ± Excel 2007;Excel 2010 пост 7 поправляем и решение получаем
Исправил)serega190188
Ответить
Сообщение Сообщений: 4080 Репутация: 631 ± Замечаний: 0% ± Excel 2007;Excel 2010 пост 7 поправляем и решение получаем
Исправил)Автор - serega190188 Дата добавления - 18.05.2017 в 13:35
китин
Дата: Четверг, 18.05.2017, 14:21 |
Сообщение № 13
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
[vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
[/vba]
[vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
[/vba] китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Четверг, 18.05.2017, 14:22
Ответить
Сообщение [vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
[/vba] Автор - китин Дата добавления - 18.05.2017 в 14:21
serega190188
Дата: Четверг, 18.05.2017, 14:29 |
Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
А в какой макрос вставить?
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
А в какой макрос вставить?serega190188
Ответить
Сообщение Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh
А в какой макрос вставить?Автор - serega190188 Дата добавления - 18.05.2017 в 14:29
китин
Дата: Четверг, 18.05.2017, 14:33 |
Сообщение № 15
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
в приход и расход перед [vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
в приход и расход перед [vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba] китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Четверг, 18.05.2017, 14:34
Ответить
Сообщение в приход и расход перед [vba]Код
Sheets("Итого").Activate ActiveSheet.PivotTables("СводнаяТаблица9").PivotCache.Refresh Sheets("Приход").Select Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba] Автор - китин Дата добавления - 18.05.2017 в 14:33
serega190188
Дата: Четверг, 18.05.2017, 15:01 |
Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Простите и последнее, как сделать. При выборе из списка, хотелось бы побольше видеть слова в описании, большего размера, чтобы без не присматриваться, а выбор открылся бы на половину экрана выбрал что нужно и далее выполняешь дальше действия. см. Скриншот 2
Простите и последнее, как сделать. При выборе из списка, хотелось бы побольше видеть слова в описании, большего размера, чтобы без не присматриваться, а выбор открылся бы на половину экрана выбрал что нужно и далее выполняешь дальше действия. см. Скриншот 2 serega190188
Сообщение отредактировал serega190188 - Четверг, 18.05.2017, 15:39
Ответить
Сообщение Простите и последнее, как сделать. При выборе из списка, хотелось бы побольше видеть слова в описании, большего размера, чтобы без не присматриваться, а выбор открылся бы на половину экрана выбрал что нужно и далее выполняешь дальше действия. см. Скриншот 2 Автор - serega190188 Дата добавления - 18.05.2017 в 15:01
Manyasha
Дата: Четверг, 18.05.2017, 17:52 |
Сообщение № 17
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
serega190188 , со списком из проверки данных этого не сделать. Посмотрите похожую тему: http://www.excelworld.ru/forum/2-2881-1 Последний Ваш вопрос не относится к этой теме. Если ссылка не поможет, создавайте новую.
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение serega190188 , со списком из проверки данных этого не сделать. Посмотрите похожую тему: http://www.excelworld.ru/forum/2-2881-1 Последний Ваш вопрос не относится к этой теме. Если ссылка не поможет, создавайте новую.Автор - Manyasha Дата добавления - 18.05.2017 в 17:52