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

Вход

Регистрация

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

 

= Мир MS Excel/Перенести данные в самую верхнюю строку автоматически. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести данные в самую верхнюю строку автоматически. (Макросы/Sub)
Перенести данные в самую верхнюю строку автоматически.
Mark1976 Дата: Среда, 14.03.2018, 22:59 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. У меня есть таблица с данными: Лист1. Мне необходимо переместить данные по строкам (снизу, вверх). На выходе хочу получить результат, как на листе: Надо так. Это возможно? И еще вопрос, фильтровать список можно будет в таком виде, чтобы вышло наименование с датами? Сейчас это не получается. Заранее спасибо.
К сообщению приложен файл: 6749557.xlsx (15.9 Kb)
 
Ответить
СообщениеЗдравствуйте. У меня есть таблица с данными: Лист1. Мне необходимо переместить данные по строкам (снизу, вверх). На выходе хочу получить результат, как на листе: Надо так. Это возможно? И еще вопрос, фильтровать список можно будет в таком виде, чтобы вышло наименование с датами? Сейчас это не получается. Заранее спасибо.
Автор - Mark1976
Дата добавления - 14.03.2018 в 22:59
K-SerJC Дата: Четверг, 15.03.2018, 21:17 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
так хотели?
К сообщению приложен файл: Mark1976.xlsm (31.7 Kb)

Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщениетак хотели?
Автор - K-SerJC
Дата добавления - 15.03.2018 в 21:17
Mark1976 Дата: Пятница, 16.03.2018, 00:54 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
K-SerJC, огромное спасибо. Это то, что надо. Еще раз спасибо, что написали мне макрос с решением.
 
Ответить
СообщениеK-SerJC, огромное спасибо. Это то, что надо. Еще раз спасибо, что написали мне макрос с решением.
Автор - Mark1976
Дата добавления - 16.03.2018 в 00:54
Mark1976 Дата: Суббота, 17.03.2018, 14:59 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Выходит вот такое сообщение при выполнении макроса. Дальше, работает только после постоянного нажатия ОК. Почему такое произошло?
К сообщению приложен файл: 8722091.jpg (30.3 Kb)
 
Ответить
СообщениеВыходит вот такое сообщение при выполнении макроса. Дальше, работает только после постоянного нажатия ОК. Почему такое произошло?
Автор - Mark1976
Дата добавления - 17.03.2018 в 14:59
nilem Дата: Воскресенье, 18.03.2018, 08:12 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Mark1976, привет
попробуйте

Цитата Mark1976, 14.03.2018 в 22:59, в сообщении № 1 ()
фильтровать список можно будет в таком виде, чтобы вышло наименование с датами

Для этого наименование пишем в каждой строке.

Уже проголосовали? :)

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеMark1976, привет
попробуйте

Цитата Mark1976, 14.03.2018 в 22:59, в сообщении № 1 ()
фильтровать список можно будет в таком виде, чтобы вышло наименование с датами

Для этого наименование пишем в каждой строке.

Уже проголосовали? :)
Автор - nilem
Дата добавления - 18.03.2018 в 08:12
K-SerJC Дата: Понедельник, 19.03.2018, 08:08 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
Цитата Mark1976, 17.03.2018 в 14:59, в сообщении № 4 ()
Выходит вот такое сообщение при выполнении макроса. Дальше, работает только после постоянного нажатия ОК. Почему такое произошло?
К сообщению приложен файл: 8722091.jpg(30Kb)

перед повторным запуском макроса уже созданный лист удалите

Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение
Цитата Mark1976, 17.03.2018 в 14:59, в сообщении № 4 ()
Выходит вот такое сообщение при выполнении макроса. Дальше, работает только после постоянного нажатия ОК. Почему такое произошло?
К сообщению приложен файл: 8722091.jpg(30Kb)

перед повторным запуском макроса уже созданный лист удалите
Автор - K-SerJC
Дата добавления - 19.03.2018 в 08:08
Mark1976 Дата: Понедельник, 19.03.2018, 23:38 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
K-SerJC, спасибо за ответ. Макрос работает как часы.
 
Ответить
СообщениеK-SerJC, спасибо за ответ. Макрос работает как часы.
Автор - Mark1976
Дата добавления - 19.03.2018 в 23:38
Mark1976 Дата: Воскресенье, 13.05.2018, 16:21 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Всем здравствуйте. Никак не могу понять. На работе макрос работает, дома выходит ошибка. Как же ее исправить. Ошибка как в сообщении №4
К сообщению приложен файл: Mark1976_.xlsm (24.0 Kb)


Сообщение отредактировал Mark1976 - Воскресенье, 13.05.2018, 16:22
 
Ответить
СообщениеВсем здравствуйте. Никак не могу понять. На работе макрос работает, дома выходит ошибка. Как же ее исправить. Ошибка как в сообщении №4
Автор - Mark1976
Дата добавления - 13.05.2018 в 16:21
_Boroda_ Дата: Воскресенье, 13.05.2018, 17:09 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Макрос переписывать не стал, только добавил пару строк, чтобы не ругалось
После Rebrand напишите
[vba]
Код
Application.DisplayAlerts = 0
[/vba]
А в конце макроса
[vba]
Код
Application.DisplayAlerts = 1
[/vba]
К сообщению приложен файл: Mark1976_1.xlsm (33.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМакрос переписывать не стал, только добавил пару строк, чтобы не ругалось
После Rebrand напишите
[vba]
Код
Application.DisplayAlerts = 0
[/vba]
А в конце макроса
[vba]
Код
Application.DisplayAlerts = 1
[/vba]
Автор - _Boroda_
Дата добавления - 13.05.2018 в 17:09
RAN Дата: Воскресенье, 13.05.2018, 17:15 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
В 2010 не работает
Глюк, если это глюк, скорее не в том, что не работает, а в том, что работает.
Смысл кода - наложить на отдельные ячейки формат-маску объединенной ячейки. Далее, при попытке изменить этот формат-маску, excel преобразует эти ячейки в объединенную, со всеми вытекающими...
Если перенести блок
[vba]
Код
'With Selection
'        .HorizontalAlignment = xlLeft
'        .VerticalAlignment = xlTop
'        .WrapText = True
'End With
[/vba]
в нужное место (до копирования формата), все работает.
[vba]
Код
    With rMrgRange
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
    End With
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВ 2010 не работает
Глюк, если это глюк, скорее не в том, что не работает, а в том, что работает.
Смысл кода - наложить на отдельные ячейки формат-маску объединенной ячейки. Далее, при попытке изменить этот формат-маску, excel преобразует эти ячейки в объединенную, со всеми вытекающими...
Если перенести блок
[vba]
Код
'With Selection
'        .HorizontalAlignment = xlLeft
'        .VerticalAlignment = xlTop
'        .WrapText = True
'End With
[/vba]
в нужное место (до копирования формата), все работает.
[vba]
Код
    With rMrgRange
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
    End With
[/vba]
Автор - RAN
Дата добавления - 13.05.2018 в 17:15
Mark1976 Дата: Воскресенье, 13.05.2018, 17:19 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
_Boroda_, спасибо.
 
Ответить
Сообщение_Boroda_, спасибо.
Автор - Mark1976
Дата добавления - 13.05.2018 в 17:19
Mark1976 Дата: Воскресенье, 13.05.2018, 17:21 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
RAN, спасибо за пояснение
 
Ответить
СообщениеRAN, спасибо за пояснение
Автор - Mark1976
Дата добавления - 13.05.2018 в 17:21
Mark1976 Дата: Воскресенье, 13.05.2018, 17:23 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
RAN, а где это нужное место?
 
Ответить
СообщениеRAN, а где это нужное место?
Автор - Mark1976
Дата добавления - 13.05.2018 в 17:23
Mark1976 Дата: Воскресенье, 20.05.2018, 09:03 | Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Всем здравствуйте. Могу в рамках этой темы попросить добавить в таблицу дополнительную колонку? Пример на листе: Надо так, колонка нужна из листа: Лист 1, приход (дата).
К сообщению приложен файл: _2017.xlsm (54.9 Kb)
 
Ответить
СообщениеВсем здравствуйте. Могу в рамках этой темы попросить добавить в таблицу дополнительную колонку? Пример на листе: Надо так, колонка нужна из листа: Лист 1, приход (дата).
Автор - Mark1976
Дата добавления - 20.05.2018 в 09:03
_Boroda_ Дата: Воскресенье, 20.05.2018, 22:57 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Ох, блин, и накрутили Вы там с кодом!
Менять снова ничего особо не стал, просто добавил немного
К сообщению приложен файл: _2017_1.xlsm (58.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеОх, блин, и накрутили Вы там с кодом!
Менять снова ничего особо не стал, просто добавил немного
Автор - _Boroda_
Дата добавления - 20.05.2018 в 22:57
Mark1976 Дата: Понедельник, 21.05.2018, 05:07 | Сообщение № 16
Группа: Проверенные
Ранг: Ветеран
Сообщений: 844
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Спасибо Александр.
 
Ответить
СообщениеСпасибо Александр.
Автор - Mark1976
Дата добавления - 21.05.2018 в 05:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести данные в самую верхнюю строку автоматически. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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