Макрос для копирования данных в плавающем диапазоне

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для копирования данных в плавающем диапазоне (Макросы/Sub)

serg667788

Дата: Суббота, 15.12.2018, 14:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

[vba][code][/code][/vba]Здравствуйте дорогие знатоки excel. Недавно столкнулся с проблемой, для решения которой своих познаний (скромных) в excel не хватает, поэтому прошу Вашей помощи. Суть проблемы в следующем. Имеем в столбце А список людей с Ф.И.О. датой рождения, номером дела и перечнем соц. услуг, в столбце В количество оказанных им соц. услуг. Нужно создать макрос, при помощи которого можно было из столбца. А копировать Ф.И.О нескольких людей до ячейки с надписью всего по получателю с количеством оказанных им услуг (столбец В) и переносить на другой лист. Проблема заключается в том, что услуги каждый месяц будут плавающие те прибавляться или убавляться. Пытался записать макрос при помощи excel, но никак не могу решить проблему с плавающим списком услуг... Помогите пожалуйста решить проблему... Вот, что я пытался сделать
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+я
'
Range("A1:B10").Select
Selection.Copy
Sheets("Лист2").Select
Columns("A:A").ColumnWidth = 61.14
Columns("B:B").ColumnWidth = 14.29
Range("A1:B1").Select
ActiveSheet.Paste
Sheets("Лист1").Select
ActiveWindow.SmallScroll Down:=16
Range("A26:B34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("A11:B11").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=11
Sheets("Лист1").Select
ActiveWindow.SmallScroll Down:=20
End Sub

К сообщению приложен файл: 8964939.xlsx (12.6 Kb)

555

Сообщение отредактировал serg667788 - Суббота, 15.12.2018, 20:04

Ответить

Сообщение[vba][code][/code][/vba]Здравствуйте дорогие знатоки excel. Недавно столкнулся с проблемой, для решения которой своих познаний (скромных) в excel не хватает, поэтому прошу Вашей помощи. Суть проблемы в следующем. Имеем в столбце А список людей с Ф.И.О. датой рождения, номером дела и перечнем соц. услуг, в столбце В количество оказанных им соц. услуг. Нужно создать макрос, при помощи которого можно было из столбца. А копировать Ф.И.О нескольких людей до ячейки с надписью всего по получателю с количеством оказанных им услуг (столбец В) и переносить на другой лист. Проблема заключается в том, что услуги каждый месяц будут плавающие те прибавляться или убавляться. Пытался записать макрос при помощи excel, но никак не могу решить проблему с плавающим списком услуг... Помогите пожалуйста решить проблему... Вот, что я пытался сделать
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+я
'
Range("A1:B10").Select
Selection.Copy
Sheets("Лист2").Select
Columns("A:A").ColumnWidth = 61.14
Columns("B:B").ColumnWidth = 14.29
Range("A1:B1").Select
ActiveSheet.Paste
Sheets("Лист1").Select
ActiveWindow.SmallScroll Down:=16
Range("A26:B34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("A11:B11").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=11
Sheets("Лист1").Select
ActiveWindow.SmallScroll Down:=20
End Sub

Автор - serg667788
Дата добавления - 15.12.2018 в 14:59

Pelena

Дата: Суббота, 15.12.2018, 18:56 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19177

Репутация: 4417 ±

Замечаний: ±

Excel 365 & Mac Excel

serg667788, оформите код тегами с помощью кнопки # в режиме правки поста.
И желательно изобразить в файле вручную, как должен выглядеть результат

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для копирования данных в плавающем диапазоне (Макросы/Sub)

Страница 1 из 1
1