Добрый день. Сразу извинюсь за то, что решение проблемы возможно очень простое и есть на форуме, что не стоило создания этой темы, но не могу разобраться. Вопрос такой: Как, выделяя ячейки с нужными значениями (в том числе и с других книг) построить их в 1 нужный диапазон в том месте, где необходимо? Файл прикрепил. Заранее спасибо.
Добрый день. Сразу извинюсь за то, что решение проблемы возможно очень простое и есть на форуме, что не стоило создания этой темы, но не могу разобраться. Вопрос такой: Как, выделяя ячейки с нужными значениями (в том числе и с других книг) построить их в 1 нужный диапазон в том месте, где необходимо? Файл прикрепил. Заранее спасибо.KrosTj
С другой книгой сложнее, а вот если на текущем листе - в модуль листа кладем такой макрос [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Range("A" & Range("A" & Rows.Count).End(3).Row - (Range("A1") <> "")) = Target End Sub
[/vba]
Добавлено * Снова я не так понял
Вот так тогда [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub r1_ = Range("I" & Rows.Count).End(3).Row + 1 If r1_ < 4 Then r1_ = 4 Range("I" & r1_) = Target End Sub
[/vba] Файл перевложил
С другой книгой сложнее, а вот если на текущем листе - в модуль листа кладем такой макрос [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Range("A" & Range("A" & Rows.Count).End(3).Row - (Range("A1") <> "")) = Target End Sub
[/vba]
Добавлено * Снова я не так понял
Вот так тогда [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub r1_ = Range("I" & Rows.Count).End(3).Row + 1 If r1_ < 4 Then r1_ = 4 Range("I" & r1_) = Target End Sub
Ребят, спасибо, а как это применить мне если у меня есть определённые свои ячейки (то было лишь образцом) для построения? Нужно какие-то спец клавиши нажимать выборе или как?
Ребят, спасибо, а как это применить мне если у меня есть определённые свои ячейки (то было лишь образцом) для построения? Нужно какие-то спец клавиши нажимать выборе или как?KrosTj
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub r1_ = Range("I" & Rows.Count).End(3).Row + 1 If r1_ < 4 Then r1_ = 4 Range("I" & r1_) = Target End Sub
[/vba]
Правой мышой на ярлык листа - Исходный текст - появится белое окно, туда этот код вставьте
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub r1_ = Range("I" & Rows.Count).End(3).Row + 1 If r1_ < 4 Then r1_ = 4 Range("I" & r1_) = Target End Sub
[/vba]
Правой мышой на ярлык листа - Исходный текст - появится белое окно, туда этот код вставьте_Boroda_
_Boroda_, Насколько я понял, этот макрос работает так, что пока его код есть на листе на какую бы ячейку я не навёл он будет строить список столбцом, и чтобы мне прекратить эту функцию, когда список создан, мне нужно удалить его с кода листа, правильно? А скажи где конкретно нужно изменить начальную позицию на нужную мне?
_Boroda_, Насколько я понял, этот макрос работает так, что пока его код есть на листе на какую бы ячейку я не навёл он будет строить список столбцом, и чтобы мне прекратить эту функцию, когда список создан, мне нужно удалить его с кода листа, правильно? А скажи где конкретно нужно изменить начальную позицию на нужную мне?KrosTj
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
