Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Заполнение таблици в определенном диапазоне с другого листа
 
#1
13.08.2026 11:35:38
Здравствуйте! Есть таблица которая должна заполняться с другого листа по двойному клику. Если снизу этой таблице нет записей то макрос работает и все заполняется по очереди. Но у меня таблица в середине листа.  Пробовал делать именной диапазон (Tab) Тогда нет заполнения по очереди, а просто заменяется первая строка. Пример прилагаю. Макрос с именным диапазоном  "Tab"
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    
    If Not Application.Intersect(Range("A2:A10"), Target) Is Nothing Then 'где делаем клик
    s = Sheets("Лист1").Range("B" & Rows.Count, "Tab").End(xlUp).Row + 1
    Sheets("Лист1").Cells(s, 2) = Cells(Target.Row, 1) 'Куда + откуда
    Sheets("Лист1").Cells(s, 4) = Cells(Target.Row, 2)
    Sheets("Лист1").Cells(s, 5) = Cells(Target.Row, 3)
       End If
     Cancel = 1          ' что бы курсор не проваливался
End Sub
 
 
 
#2
13.08.2026 12:08:51
Владимир S, добрый день. Замените строчку:
Код
s = Sheets("Лист1").Range("B" & Rows.Count, "Tab").End(xlUp).Row + 1
на :
Код
s = Sheets("Лист1").Range("Tab").Columns(1).Find(What:="*", _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row + 1
 
 
 
#3
13.08.2026 12:58:33
Alex Спасибо. Если убрать из стоки 12 значения, то выдает ошибку. Но если расширить именной диапазон начиная со стр11.(B11:F20) Тогда работает.  
 
 
 
#4
13.08.2026 13:02:39
Владимир S, да. Нужно диапазон расширить на заголовки таблицы, чтоб в случае отсутствия значений, находило заголовок и соответственно заполнялось в первую пустую строку после заголовков.
 
 
 
#5
13.08.2026 13:35:21
Alex Спасибо. Тогда все получается.
 
 
 
Страницы: 1
Читают тему
Наверх