s7os7ed
Дата: Понедельник, 02.04.2018, 02:01 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
Здравствуйте знатоки. На работе раздали файл, с помощью которого мы теперь заполняем нужную программу. Я VBA вообще не знаю, а без него как я понимаю не реально реализовать мой замысел. Я создал примерный образ и попробую пояснить… В строке Е2 выпадающий список обслуживаемых фирм. При выборе одной из них идет автоматическое заполнение столбцов Е9:J39 (но не в моем файле…) и одни из этих данных по датам мне нужно переносить в другую программу. В строках N2 и Р2 я создал список дат. Допустим я там для примера выбираю (с 7.4.18 по 22.4.18) и рядом кнопка КОПИРОВАТЬ. Возможно ли сделать чтобы при нажатии на кнопку автоматически копировались строки по установленным датам, в данном случае строки Е15:J30. То есть чтобы копирование шло в строках Е9:J39 по установленным датам с стролбцах с N2 по Р2. Помогите плиз, просто очередной раз скопируешь не те строки, а потом в итоге ищешь ошибку, где не то скопировал.
Здравствуйте знатоки. На работе раздали файл, с помощью которого мы теперь заполняем нужную программу. Я VBA вообще не знаю, а без него как я понимаю не реально реализовать мой замысел. Я создал примерный образ и попробую пояснить… В строке Е2 выпадающий список обслуживаемых фирм. При выборе одной из них идет автоматическое заполнение столбцов Е9:J39 (но не в моем файле…) и одни из этих данных по датам мне нужно переносить в другую программу. В строках N2 и Р2 я создал список дат. Допустим я там для примера выбираю (с 7.4.18 по 22.4.18) и рядом кнопка КОПИРОВАТЬ. Возможно ли сделать чтобы при нажатии на кнопку автоматически копировались строки по установленным датам, в данном случае строки Е15:J30. То есть чтобы копирование шло в строках Е9:J39 по установленным датам с стролбцах с N2 по Р2. Помогите плиз, просто очередной раз скопируешь не те строки, а потом в итоге ищешь ошибку, где не то скопировал. s7os7ed
Сообщение отредактировал s7os7ed - Понедельник, 02.04.2018, 02:03
Ответить
Сообщение Здравствуйте знатоки. На работе раздали файл, с помощью которого мы теперь заполняем нужную программу. Я VBA вообще не знаю, а без него как я понимаю не реально реализовать мой замысел. Я создал примерный образ и попробую пояснить… В строке Е2 выпадающий список обслуживаемых фирм. При выборе одной из них идет автоматическое заполнение столбцов Е9:J39 (но не в моем файле…) и одни из этих данных по датам мне нужно переносить в другую программу. В строках N2 и Р2 я создал список дат. Допустим я там для примера выбираю (с 7.4.18 по 22.4.18) и рядом кнопка КОПИРОВАТЬ. Возможно ли сделать чтобы при нажатии на кнопку автоматически копировались строки по установленным датам, в данном случае строки Е15:J30. То есть чтобы копирование шло в строках Е9:J39 по установленным датам с стролбцах с N2 по Р2. Помогите плиз, просто очередной раз скопируешь не те строки, а потом в итоге ищешь ошибку, где не то скопировал. Автор - s7os7ed Дата добавления - 02.04.2018 в 02:01
китин
Дата: Понедельник, 02.04.2018, 07:20 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
А стандартный фильтр не пойдет? фильтр по дате между набираете нужные даты
А стандартный фильтр не пойдет? фильтр по дате между набираете нужные даты китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение А стандартный фильтр не пойдет? фильтр по дате между набираете нужные даты Автор - китин Дата добавления - 02.04.2018 в 07:20
s7os7ed
Дата: Понедельник, 02.04.2018, 09:03 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
А стандартный фильтр не пойдет?
Нет к сожалению, уже пробовал… Тоже бывают свои заморочки… Поэтому и обратился
А стандартный фильтр не пойдет?
Нет к сожалению, уже пробовал… Тоже бывают свои заморочки… Поэтому и обратилсяs7os7ed
Ответить
Сообщение А стандартный фильтр не пойдет?
Нет к сожалению, уже пробовал… Тоже бывают свои заморочки… Поэтому и обратилсяАвтор - s7os7ed Дата добавления - 02.04.2018 в 09:03
китин
Дата: Понедельник, 02.04.2018, 11:03 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
а куда скопированное вставлять то? на новый лист? или рядом с этой таблицей?
а куда скопированное вставлять то? на новый лист? или рядом с этой таблицей? китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение а куда скопированное вставлять то? на новый лист? или рядом с этой таблицей? Автор - китин Дата добавления - 02.04.2018 в 11:03
китин
Дата: Понедельник, 02.04.2018, 11:21 |
Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
вставил на тот же лист
[vba]
Код
Private Sub CommandButton1_Click() Dim ttt&, ttt1&, ttt3 ttt = Sheets("Лист1").Cells(8, 2).End(xlDown).Row ttt3 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:W" & ttt3).Clear dd1 = Sheets("Лист1").Range("N2").Value dd2 = Sheets("Лист1").Range("P2").Value Sheets("Лист1").Range("B8:J" & ttt).AutoFilter ActiveSheet.Range("$B$8:$J$" & ttt).AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(CDate(dd1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(dd2)) ttt1 = Sheets("Лист1").Cells(8, 2).End(xlDown).Row Sheets("Лист1").Range("B8:J" & ttt1).SpecialCells(xlCellTypeVisible).Copy Sheets("Лист1").Range("P8").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("$B$9:$B$39").AutoFilter Field:=1 ttt4 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:P" & ttt4).NumberFormat = "m/d/yyyy" Sheets("Лист1").Range("P8:W" & ttt4).Borders.LineStyle = xlContinuous End Sub
[/vba]
вставил на тот же лист
[vba]
Код
Private Sub CommandButton1_Click() Dim ttt&, ttt1&, ttt3 ttt = Sheets("Лист1").Cells(8, 2).End(xlDown).Row ttt3 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:W" & ttt3).Clear dd1 = Sheets("Лист1").Range("N2").Value dd2 = Sheets("Лист1").Range("P2").Value Sheets("Лист1").Range("B8:J" & ttt).AutoFilter ActiveSheet.Range("$B$8:$J$" & ttt).AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(CDate(dd1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(dd2)) ttt1 = Sheets("Лист1").Cells(8, 2).End(xlDown).Row Sheets("Лист1").Range("B8:J" & ttt1).SpecialCells(xlCellTypeVisible).Copy Sheets("Лист1").Range("P8").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("$B$9:$B$39").AutoFilter Field:=1 ttt4 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:P" & ttt4).NumberFormat = "m/d/yyyy" Sheets("Лист1").Range("P8:W" & ttt4).Borders.LineStyle = xlContinuous End Sub
[/vba]
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 02.04.2018, 11:25
Ответить
Сообщение вставил на тот же лист
[vba]
Код
Private Sub CommandButton1_Click() Dim ttt&, ttt1&, ttt3 ttt = Sheets("Лист1").Cells(8, 2).End(xlDown).Row ttt3 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:W" & ttt3).Clear dd1 = Sheets("Лист1").Range("N2").Value dd2 = Sheets("Лист1").Range("P2").Value Sheets("Лист1").Range("B8:J" & ttt).AutoFilter ActiveSheet.Range("$B$8:$J$" & ttt).AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(CDate(dd1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(dd2)) ttt1 = Sheets("Лист1").Cells(8, 2).End(xlDown).Row Sheets("Лист1").Range("B8:J" & ttt1).SpecialCells(xlCellTypeVisible).Copy Sheets("Лист1").Range("P8").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("$B$9:$B$39").AutoFilter Field:=1 ttt4 = Sheets("Лист1").Cells(8, 16).End(xlDown).Row Sheets("Лист1").Range("P8:P" & ttt4).NumberFormat = "m/d/yyyy" Sheets("Лист1").Range("P8:W" & ttt4).Borders.LineStyle = xlContinuous End Sub
[/vba]
Автор - китин Дата добавления - 02.04.2018 в 11:21
s7os7ed
Дата: Понедельник, 02.04.2018, 16:53 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
китин , Спасибо, все верно. Полазил, более менее разобрался и не много изменил копируемые данные...
китин , Спасибо, все верно. Полазил, более менее разобрался и не много изменил копируемые данные...s7os7ed
Ответить
Сообщение китин , Спасибо, все верно. Полазил, более менее разобрался и не много изменил копируемые данные...Автор - s7os7ed Дата добавления - 02.04.2018 в 16:53