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

• #10790 Delila_1 veterán #94180096 #10789

  Új Válasz 2011-07-11 14:07:14 #10790

  Ú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 #94180096 #10789 üzenetére

  Makróval oldottam meg, mert anélkül nagyon hosszú képletek kellenének.

  Sub kulonbs()
  Dim sor%, sor_1%, usor%
  Columns("G:G").ClearContents
  sor = 5: usor = Range("F50000").End(xlUp).Row
  
  Do While Cells(sor, 2) <> ""
  For sor_1 = 4 To usor
  If Cells(sor, 2) = Cells(sor_1, 6) Then _
  Cells(sor_1, 7) = Cells(sor_1, 7) & " " & Cells(sor, 1)
  Next
  sor = sor + 1
  Loop
  End Sub

  A fenti kódból a Columns("G:G").ClearContents a kigyűjtés előtt törli a teljes G oszlop tartalmát. Ha ez bajt okozna a lapodon, töröld a sort a makróból, és indítás előtt töröld a csatold kép szerinti G4:G8 tartományt.

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