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

• #12021 Delila_1 veterán erich85T #12018

  Új Válasz 2011-11-14 12:27:30 #12021

  Ú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 erich85T #12018 üzenetére

  A makró egy irányított szűréssel indul, ami az A oszlopban lévő neveket szűri meg úgy, hogy minden név csak egyszer szerepeljen az E oszlopban. Ezután a nevek mellé felsorolja az adatokat.

  Sub mm()
  Dim sor As Integer, usor As Integer, sor_név As Integer, usor_név As Integer
  Dim név, oszlop As Integer
  
  'Irányított szűrés az E oszlopba az egyedi nevekkel
  Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
  "E1"), Unique:=True
  
  usor = Range("E1").End(xlDown).Row: usor_név = Range("A1").End(xlDown).Row
  
  'Kigyűjtés
  For sor = 2 To usor
  név = Cells(sor, "E"): oszlop = 6
  For sor_név = 2 To usor_név
  If Cells(sor_név, 1) = név Then
  Cells(sor, oszlop) = Cells(sor_név, 2)
  oszlop = oszlop + 1
  End If
  Next
  Next
  End Sub

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