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

• #29975 biker nagyúr Delila_1 #29967

  Új Válasz 2015-12-27 08:16:44 #29975

  Ú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

  

  biker

  nagyúr

  válasz Delila_1 #29967 üzenetére

  szia!
  ez fut olyan 6-7 perce, nem tudom, mi lesz a vége, de most nézem, a B oszlopot a termék nevekkel felülírja #values-al, ami nem jó jel, a K oszlopba 1 1 1 1 2 2 2 és hasonlók kerülnek be
  Kíváncsi leszek, mi lesz a végeredmény, ha lefut (core i7 16gb ram macbook pro)

• #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