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

• #42231 Pakliman tag huan #42209

  Új Válasz 2019-11-19 08:07:14 #42231

  Ú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

  

  Pakliman

  tag

  válasz huan #42209 üzenetére

  Szia!

  (Egyféle) megoldás kis kiegészítéssel és makróval:
  
  (Ez a kép már a makró általi lista, a színezés az eredeti)
  Minden csoport ki lett egészítve egy új oszloppal, ami azért kell, mert egy tétel többször is szerepelhet és valahogy muszáj megkülönböztetni
  P oszlopban: =DARABTELI($O$2:O2;O2)
  S oszlopban: =DARABTELI($R$2:R2;R2)
  V oszlopban: =DARABTELI($U$2:U2;U2)
  FONTOS!!!! Figyelj a dollárjelre!!!!
  (Beírod pl. a P2 cellába és "lehúzod" P16-ig)

  A kód:

  Public Sub Rendez()
Dim o As Long
Dim s0 As Long
Dim s As Long
Dim us As Long
Dim us2 As Long
Dim bVan As Boolean

For o = 14 To 20 Step 3
us = Columns(o).Rows(Rows.Count).End(xlUp).Row
For s = 2 To us
If o = 14 Then
'1. oszlopcsoport, csak másolunk...
Cells(s, o - 12) = Cells(s, o)
Cells(s, o - 11) = Cells(s, o + 1)
Cells(s, o - 10) = Cells(s, o + 2)
Else
us2 = Columns(o - 15).Rows(Rows.Count).End(xlUp).Row
For s0 = 2 To us2
bVan = (Cells(s0, o - 15) = Cells(s, o)) And (Cells(s0, o - 14) = Cells(s, o + 1)) And (Cells(s0, o - 13) = Cells(s, o + 2))
If bVan Then Exit For
Next s0

If bVan Then
us2 = s0
Else
us2 = Application.Max(Columns(o - 12).Rows(Rows.Count).End(xlUp).Row, Columns(o - 15).Rows(Rows.Count).End(xlUp).Row) + 1
End If
Cells(us2, o - 12) = Cells(s, o)
Cells(us2, o - 11) = Cells(s, o + 1)
Cells(us2, o - 10) = Cells(s, o + 2)
End If
Next s
Next o
End Sub

• #42217 ny.janos tag huan #42209

  Új Válasz 2019-11-18 13:11:38 #42217

  Ú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

  

  ny.janos

  tag

  válasz huan #42209 üzenetére

  Szia!

  Az valós, hogy egy cikkszám több terméket is takarhat, illetve hogy egy-egy termékhez ugyanaz a termék többször is fel van sorolva?

  Az oszlopokban páronként (a1-a2, b1-b2, c1-c2) ugyanúgy háromszor szerepel a 1292092-00 banán, kétszer a 2075637-00 avokádó, a répa cikkszáma pedig azonos a banánéval (1292092-00).

• #42214 Fferi50 Topikgazda huan #42209

  Új Válasz 2019-11-18 12:25:06 #42214

  Ú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

  

  Fferi50

  Topikgazda

  válasz huan #42209 üzenetére

  Szia!
  Pár lépés feltételes formázással és szín szerinti rendezéssel elérhető szerintem a kívánt eredmény.
  1. lépés:
  Kijelölöd a teljes táblázatot - kezdőlap - feltételes formázás - cellakijelölési szabályok - ismétlődő értékek - válaszd az egyedit, mindegy milyen színű lesz. OK.
  2. lépés a két utolsó oszlopot, ahol a színek vannak, kijelölöd. Adatok - rendezés - E oszlop szín szerint - nincs cellaszín felül OK.
  3.Kijelölöd az A-D oszlopot. Utána feltételes formázás mint az 1. lépésben
  4.Kijelölöd a C-D oszlopot. Rendezés mint a 2. lépésben.
  Ekkor már tkp. látod, hogy mi az egyedi.
  5.Kijelölöd az E-F oszlop "fehér celláit", a színeseket nem!. Feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel: A képlet: =DARABTELI($A$1:$D$20;$F1)>=2
  
  Kijelölsz hozzá egy formátumot. OK
  6.A kijelölt területet (E-F oszlop) rendezed szín szerint, de most a színes legyen felül.
  Eredmény:
  
  Ezután megszünteted a feltételes formázást, hisz már nincs rá szükség.
  A "kilógó" tételeket úgy színezed, ahogyan akarod.
  Remélem érthető.
  Üdv.

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