shatl1977
Дата: Пятница, 09.07.2021, 16:00 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Здравствуйте. Есть таблица с тремя листами, на которые вносят данные. Лист "сводная" собирает все данные с трех листов и сортирует по времени столбца "В". Подскажите пожалуйста как реализовать?
Здравствуйте. Есть таблица с тремя листами, на которые вносят данные. Лист "сводная" собирает все данные с трех листов и сортирует по времени столбца "В". Подскажите пожалуйста как реализовать? shatl1977
Ответить
Сообщение Здравствуйте. Есть таблица с тремя листами, на которые вносят данные. Лист "сводная" собирает все данные с трех листов и сортирует по времени столбца "В". Подскажите пожалуйста как реализовать? Автор - shatl1977 Дата добавления - 09.07.2021 в 16:00
shatl1977
Дата: Пятница, 09.07.2021, 16:12 |
Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
поправка. при сортировке конечно должна учитываться дата столбца "А"
поправка. при сортировке конечно должна учитываться дата столбца "А" shatl1977
Ответить
Сообщение поправка. при сортировке конечно должна учитываться дата столбца "А" Автор - shatl1977 Дата добавления - 09.07.2021 в 16:12
Pelena
Дата: Пятница, 09.07.2021, 16:45 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте. А что означает вторая дата и второе время? Их как-то надо учитывать?
Здравствуйте. А что означает вторая дата и второе время? Их как-то надо учитывать? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Здравствуйте. А что означает вторая дата и второе время? Их как-то надо учитывать? Автор - Pelena Дата добавления - 09.07.2021 в 16:45
shatl1977
Дата: Пятница, 09.07.2021, 16:48 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
нет, остальные столбцы просто копируются как есть
нет, остальные столбцы просто копируются как есть shatl1977
Ответить
Сообщение нет, остальные столбцы просто копируются как есть Автор - shatl1977 Дата добавления - 09.07.2021 в 16:48
Nic70y
Дата: Пятница, 09.07.2021, 16:55 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Sub u_727() Application.ScreenUpdating = False Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Clear For i = 2 To Sheets.Count Sheets(i).Range("a2:j" & Application.Max(2, Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row)).Copy _ Sheets(1).Range("a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1) Next Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Sort _ key1:=Sheets(1).Range("a2:a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1), _ order1:=xlAscending, Header:=xlNo Application.ScreenUpdating = True End Sub
[/vba]
[vba]Код
Sub u_727() Application.ScreenUpdating = False Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Clear For i = 2 To Sheets.Count Sheets(i).Range("a2:j" & Application.Max(2, Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row)).Copy _ Sheets(1).Range("a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1) Next Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Sort _ key1:=Sheets(1).Range("a2:a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1), _ order1:=xlAscending, Header:=xlNo Application.ScreenUpdating = True End Sub
[/vba] Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Пятница, 09.07.2021, 16:57
Ответить
Сообщение [vba]Код
Sub u_727() Application.ScreenUpdating = False Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Clear For i = 2 To Sheets.Count Sheets(i).Range("a2:j" & Application.Max(2, Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row)).Copy _ Sheets(1).Range("a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1) Next Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Sort _ key1:=Sheets(1).Range("a2:a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1), _ order1:=xlAscending, Header:=xlNo Application.ScreenUpdating = True End Sub
[/vba] Автор - Nic70y Дата добавления - 09.07.2021 в 16:55
Pelena
Дата: Пятница, 09.07.2021, 16:56 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
Как-то так
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Как-то так Автор - Pelena Дата добавления - 09.07.2021 в 16:56
shatl1977
Дата: Пятница, 09.07.2021, 17:10 |
Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
огромное Вам спасибо. буду на Ваших примерах оттачивать свои умения
огромное Вам спасибо. буду на Ваших примерах оттачивать свои умения shatl1977
Ответить
Сообщение огромное Вам спасибо. буду на Ваших примерах оттачивать свои умения Автор - shatl1977 Дата добавления - 09.07.2021 в 17:10