Страницы: 1
RSS
Перенос информации только из видимых строк на другие страницы
 
На странице Учет вся информация о товаре и действиях с ним.
С этой страницы на страницы Отправка и Утилизация переносится часть информации.
Надо сделать так что бы при выборе любых фильтров на станице Учет на другие страницы переносилась информация только из видимых строк.
 
Код
Option Explicit

Sub ОтправитьУтилизировать()
    With Sheets("Учет")
        Dim y As Long
        Dim u As Long
        Dim arr As Variant
        Dim orr As Variant
        Dim urr As Variant
        y = .UsedRange.Row + .UsedRange.Rows.Count - 1
        arr = .Range(.Cells(1, 1), .Cells(y, 8))
        ReDim orr(1 To y, 1 To 2)
        ReDim urr(1 To y, 1 To 5)
        For y = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count - 1
            If Not .Rows(y).Hidden Then
                u = u + 1
                orr(u, 1) = arr(y, 1)
                orr(u, 2) = arr(y, 2)
                
                urr(u, 1) = arr(y, 1)
                urr(u, 2) = arr(y, 2)
                urr(u, 3) = arr(y, 4)
                urr(u, 4) = arr(y, 6)
                urr(u, 5) = arr(y, 8)
            End If
        Next
    End With
    
    If u > 0 Then
        Sheets("Отправка").Cells.Clear
        Sheets("Утилизация").Cells.Clear
        
        Sheets("Отправка").Cells(1, 1).Resize(UBound(orr, 1), UBound(orr, 2)) = orr
        Sheets("Утилизация").Cells(1, 1).Resize(UBound(urr, 1), UBound(urr, 2)) = urr
    End If
End Sub
 
В программировании не разбираюсь, ничего не понял. ))
Есть еще варианты?
 
A C, да, вручную копипастить. Для понимания - ознакомьтесь.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
A C, помогу вам. Вставил макрос от МатросНаЗебре в файл и сохранил с расширением XLSM (макросы не могут храниться в файле XLSX). Откройте файл, нажмите на оранжевую кнопку, посмотрите ваши 2 листа
Изменено: New - 12.10.2021 12:32:59
Страницы: 1
Наверх