🚀 go-pugleaf

Marcin Przyby³ek wrote:

> [...]
> Teraz pozostalo tylko to aby w jakis sposob makrem wybrac wszystkie linie z
> np. RA w 1 kolumnie i skopiowac do innego skoroszytu - i tak dla innech
> producentow.

Moze takie cos Ci sie nada, oczywiscie po drobnych przerobkach

Sub Kopiuj(wartosc As Variant)
  Dim CurSource, NextSource
  Dim CurOut, NextOut
  Set CurOut = Worksheets("cel").RANGE("A2") ' lub tez jako parametr
  Set CurSource = Worksheets("zrodlo").Range("A2") 'lub jako parametr
  Do While Not IsEmpty(CurSource)
    Set NextSource = CurSource.Offset(1, 0)
    If CurPar.Value = Wartosc Then 'znaleziony wiersz
      CurOut.Offset(0, 0) = CurSource.Offset(0,0)
      CurOut.Offset(0, 1) = CurSource.Offset(0,1)
      'itd
      Set NextOut = CurOut.Offset(1, 0)
      Set CurOut =  NextOut
    End If
    Set CurSource = NextSource
  Loop
End Sub

Pozdrowienia