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

• #29968 bsh addikt Delila_1 #29967

  Új Válasz 2015-12-26 10:50:53 #29968

  Ú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

  

  bsh

  addikt

  válasz Delila_1 #29967 üzenetére

  én így oldottam meg:
  ez a K oszlop (cikkszám) alapján dolgozik, mivel ahogy látom, a megnevezés (B oszlop) lehet eltérő is ugyanahhoz a cikkszámhoz. (emiatt veszélyes is a makróm, mert törli a sorokat, és a többféle megnevezésekből csak az első marad meg, a többi elvész)
  Sub flt()
  lastrow = Me.UsedRange.Rows(Me.UsedRange.Rows.Count).Row
  Call Me.UsedRange.Sort(Me.Columns("K:K"), xlAscending, Header:=xlYes)
  i = 2
  While i <= lastrow
  o = 1
  While Me.Cells(i, 11) = Me.Cells(i + 1, 11)
  'kategóriák külön oszlopokba (AE, AF, AG, stb.)
  Me.Cells(i, 30 + o) = Me.Cells(i + 1, 30)
  'vagy kategóriák AD oszlopba, vesszővel elválasztva
  'Me.Cells(i, 30) = Me.Cells(i, 30) & ", " & Me.Cells(i + 1, 30)
  Me.Rows(i + 1).Delete
  o = o + 1
  lastrow = lastrow - 1
  Wend
  i = i + 1
  Wend
  End Sub

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