Moje rozwiązanie - nieco inne, aby wygenerować zawartość drugiego arkusza ("Zamowienie") trzeba uruchomić Makro. Sub Makro1() ' ' Const R1 = "A1" ' pierwsza komórka nagłówka tabeli Const W = 6 ' szerokość tabeli Const Q = 5 ' kolumna z ilością produktów Const FixLP = True ' ustawić False jeśli ma kopiować LP z produktu Dim OF As Integer OF = 1 Sheets("Zamowienie").Cells.Clear Sheets("Produkty").Range(R1).EntireRow.Copy Destination:=Sheets("Zamowienie").Range(R1) Sheets("Produkty").Activate Range(R1).Offset(1, 0).Activate While (ActiveCell.Value <> "") If ActiveCell.Offset(0, Q - 1).Value > 0 Then ActiveCell.EntireRow.Copy Destination:=Sheets("Zamowienie").Range(R1).Offset(OF, 0) If FixLP Then Sheets("Zamowienie").Range(R1).Offset(OF, 0).Value = OF Let OF = OF + 1 End If ActiveCell.Offset(1, 0).Select Wend End Sub W załączniku przykład. Można łatwo dostosować do swoich potrzeb.
" L.P. " , " Indeks " , " Nazwa " , " Opakowanie " , " Ilo?? " , " Uwagi "
" 1 " , " 9909574 " , " Artyku? 1 " , " jakiekolwiek " , " 0 " , " brak "
" 2 " , " 9299269 " , " Artyku? 2 " , " jakiekolwiek " , " 0 " , " brak "
" 3 " , " 3810961 " , " Artyku? 3 " , " jakiekolwiek " , " 1 " , " brak "
" 4 " , " 2746207 " , " Artyku? 4 " , " jakiekolwiek " , " 0 " , " brak "
" 5 " , " 6991062 " , " Artyku? 5 " , " jakiekolwiek " , " 0 " , " brak "
" 6 " , " 8078520 " , " Artyku? 6 " , " jakiekolwiek " , " 0 " , " brak "
" 7 " , " 2633927 " , " Artyku? 7 " , " jakiekolwiek " , " 0 " , " brak "
" 8 " , " 707779 " , " Artyku? 8 " , " jakiekolwiek " , " 0 " , " brak "
" 9 " , " 259049 " , " Artyku? 9 " , " jakiekolwiek " , " 0 " , " brak "
" 10 " , " 1331301 " , " Artyku? 10 " , " jakiekolwiek " , " 3 " , " brak "
" 11 " , " 7958164 " , " Artyku? 11 " , " jakiekolwiek " , " 0 " , " brak "
" 12 " , " 5330655 " , " Artyku? 12 " , " jakiekolwiek " , " 0 " , " brak "
" 13 " , " 6080915 " , " Artyku? 13 " , " jakiekolwiek " , " 0 " , " brak "
" 14 " , " 7214745 " , " Artyku? 14 " , " jakiekolwiek " , " 0 " , " brak "
" 15 " , " 4573713 " , " Artyku? 15 " , " jakiekolwiek " , " 0 " , " brak "
" 16 " , " 4604709 " , " Artyku? 16 " , " jakiekolwiek " , " 5 " , " brak "
" 17 " , " 9632187 " , " Artyku? 17 " , " jakiekolwiek " , " 0 " , " brak "
" 18 " , " 8314671 " , " Artyku? 18 " , " jakiekolwiek " , " 0 " , " brak "
" 19 " , " 6127873 " , " Artyku? 19 " , " jakiekolwiek " , " 0 " , " brak "
" 20 " , " 3242652 " , " Artyku? 20 " , " jakiekolwiek " , " 0 " , " brak "
" L.P. " , " Indeks " , " Nazwa " , " Opakowanie " , " Ilo?? " , " Uwagi "
" 3 " , " 3810961 " , " Artyku? 3 " , " jakiekolwiek " , " 1 " , " brak "
" 10 " , " 1331301 " , " Artyku? 10 " , " jakiekolwiek " , " 3 " , " brak "
" 16 " , " 4604709 " , " Artyku? 16 " , " jakiekolwiek " , " 5 " , " brak "