Új hozzászólás Aktív témák

• #23694 Delila_1 veterán Oly #23690

  Új Válasz 2014-10-14 10:04:57 #23694

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Oly #23690 üzenetére

  A2-től lefelé vannak a megnevezések, B2-től mellettük az adatok.
  D1-től jobbra bevittem a keresendő megnevezéseket, ezek alá írja a makró a találatokat. A példád szerint

  D1 -> barack
  D2 -> őszi
  D3 -> kajszi

  E1 -> alma
  E2 -> piros
  E3 -> zöld

  Sub kigyűjt()
  Dim oszlop As Integer, usor As Long, uoszlop As Integer
  
  uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
  Range(Cells(2, "D"), Cells(400000, uoszlop)) = ""
  Range("A1").Select
  
  For oszlop = 4 To uoszlop
  Selection.AutoFilter Field:=1, Criteria1:=Cells(1, oszlop)
  usor = Range("B" & Rows.Count).End(xlUp).Row
  Range("B2:B" & usor).Select
  Selection.Copy Cells(2, oszlop)
  Next
  
  Selection.AutoFilter
  End Sub

  Írhatsz bele képernyőfrissítés tiltást-, engedélyezést.

Új hozzászólás Aktív témák