Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных макросом с одного листа на другой
 
#1
13.02.2026 16:30:54
Чуток зашёл в тупик есть формулы по типу =ЕСЛИОШИБКА(ФИЛЬТР(Материалы!G26:G1000; Материалы!G26:G1000>0); "")
Но на одном ПК работает на другом нет.
Решил проделать путь к макросу и тут осел в кодах их куча какой как работает не до конца понимаю.
Нужна помощь элементарная я думаю для тех кто уже давно в этой теме.

Смысл таков нужно что бы с Листа "Материалы" строки B2, F2, G2 переносились на Лист "Заказать" при значении строки G2 > 0.
Формула что написал почему то не работает на всех ПК потому попытка перейти к макросу.
Заранее спасибо кто помог )
Изменено: Sanja - 13.02.2026 17:31:26
 
 
 
#2
13.02.2026 17:14:51
Пробуйте
Код
Sub Макрос1()
    lr = Worksheets("Материалы").Cells(Rows.Count, 1).End(xlUp).Row
    arr_m = Worksheets("Материалы").Range("A2:G" & lr)
    n = WorksheetFunction.CountA(Worksheets("Материалы").Range("G2:G" & lr))
    If n = 0 Then MsgBox "Ничего не выбрвно": Exit Sub
    ReDim arr_z(1 To n, 1 To 4)
    m = 1
    For n = 1 To UBound(arr_m)
        If arr_m(n, 7) <> "" Then
            arr_z(m, 1) = arr_m(n, 1)
            arr_z(m, 2) = arr_m(n, 2)
            arr_z(m, 3) = arr_m(n, 6)
            arr_z(m, 4) = arr_m(n, 7)
            m = m + 1
        End If
    Next
    lr = Worksheets("Заказать").Cells(Rows.Count, 1).End(xlUp).Row
    If lr > 1 Then Worksheets("Заказать").Range("A2:D" & lr).ClearContents
    Worksheets("Заказать").Cells(2, 1).Resize(UBound(arr_z), UBound(arr_z, 2)) = arr_z
End Sub
 
 
 
#3
13.02.2026 17:21:04
Ознакомьтесь с Правилами форума и предложите название для темы. Помощь скрыта
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
13.02.2026 17:30:16
Помощь зала:
Перенос данных макросом с одного листа на другой
 
 
 
#5
16.02.2026 10:20:09
Спасибо работает, Попробовал перенести на другую схожую таблицу ошибка но думаю разберусь что к чему, а так большое спасибо.
 
 
 
#6
16.02.2026 10:23:26
Sanja, Перенос данных Макросом. Максимально просто я не думаю что это что то нарушило.

2.1. Название темы должно отражать смысл проблемы. Темы с названиями "Помогите", "Help", "Срочно", "Нужен макрос" - плохая идея. Модераторы имеют право переименовать, удалить или закрыть такие темы без предупреждения.

В моем названии и так нету помогите, Help, Срочно, Нужен макрос. В названии в данную минуту  Перенос данных макросом с одного листа на другой.
 
 
 
#7
16.02.2026 10:26:05
Цитата
Dr.ManS написал: В названии в данную минуту...
Исходное название было с нарушением Правил. Данное название предложили НЕ Вы
Изменено: Sanja - 16.02.2026 10:26:43
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
16.02.2026 11:42:26
Sanja, Понял, спасибо
 
 
 
Страницы: 1
Читают тему
Наверх