Upresni. V poslednim sesitu v priloze se polozka ID palety nevyskytuje (nebo to je polozka Palette; vzhledem k casovemu odstupu dnesniho pozadavku od posledni upravy si to nepamatuji).
Vyradit podminku ID palety znamena, ze je odstranen prislusny sloupec (tedy Palette) a tim samozrejme i zmena podminek setrideni nebo pouze setrideni podle dvou podminek "KANBAN" a "DAVKA"?
přiřazení hodnoty na základě třech podmínek Vyřešeno
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: přiřazení hodnoty na základě třech podmínek
ano je to palette, jestli to pujde sloupeček by zůstal ale už by se sním nepočítalo. po vyskoušení v praxi by stačilo pouze dva sloupečky "KANBA" a "DAVKA"
díky
díky
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: přiřazení hodnoty na základě třech podmínek
Nize je upravena procedura VBA, vloz do modulu1 misto puvodni, navic osetren stav s prazdnym listem
Kód: Vybrat vše
Option Explicit
Sub PorovnejData()
Dim SBlk As Range, SCll As Range, SortBlk As Range
Dim Polozka As String
Application.ScreenUpdating = False
' definice bloku bunek ve sloupci A:A
With Worksheets("list1")
Set SBlk = .Range(.Range("a2"), .Range("a2").End(xlDown))
If SBlk.Rows.Count >= .Rows.Count - 1 Then
MsgBox "Na listu nejsou data": Set SBlk = Nothing: Application.ScreenUpdating = True: Exit Sub
End If
End With
' odstranit pripadne stare oznaceni v m:m
SBlk.Offset(0, 10).Cells.ClearContents
' definice bloku pro setrideni Kanban-Davka
Set SortBlk = SBlk.Resize(SBlk.Rows.Count + 1, 11).Offset(-1, 0)
' odstranit pripadny InteriorColor
SortBlk.Interior.ColorIndex = xlNone
With SortBlk
.Sort Key1:=.Resize(1, 1).Offset(1, 0), Order1:=xlAscending, Key2:=.Resize(1, 1).Offset(1, 6) _
, Order2:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
' oznacit zaznamy se shodnym Kanban, kde na pozici Vystupni prepraviste
' neni paleta v nejnissi setridene davce - toto poradi
' zajisteno predchozim setridenim
Polozka = vbNullString
For Each SCll In SBlk.Cells
If SCll <> Polozka Then
Polozka = SCll.Value
Else
If SCll.Offset(0, 9).Value = "Výstupní přepraviště" Then
SCll.Offset(0, 10).Value = "***" ' ve sl k:k
SCll.Resize(1, 10).Interior.ColorIndex = 6 ' InteriorColor
End If
End If
Next SCll
SortBlk.Columns.AutoFit
Application.ScreenUpdating = True
Set SCll = Nothing
Set SBlk = Nothing
Set SortBlk = Nothing
End Sub
Re: přiřazení hodnoty na základě třech podmínek
šlo by upravit aby si nevšímal palet na vystupním přepravišti když mají stejnou davku ale podle pallete čísla je na meziskladě.
- Přílohy
-
- FIFO.xls
- (66 KiB) Staženo 16 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: přiřazení hodnoty na základě třech podmínek
Mam pozadavku rozumet tak, ze je potreba pro zmenu oznacit pro shodne Kanban-Davka paletu s nejnizsim cislem, pokud se nachazi v meziskladu namisto doposud pozadovaneho reseni "mladsi" paleta na Vystupnim prepravisti?
No a co zamyslis s listem Upozorneni? Zadej to hned, at se reseni nekouskuje.
No a co zamyslis s listem Upozorneni? Zadej to hned, at se reseni nekouskuje.
Re: přiřazení hodnoty na základě třech podmínek
jen sem myslel že by se neoznačovalo pokud by na vystupním přepraviští i na meziskladu nacházeli stejné dávky, ale zatím my to stačí,
list upozornění používám když aktualizuju sešit a natáhne data z jiného programu, aby se ukázalo co se kde porušilo, stránka upozornění je pouze
pro vyzualizaci.
list upozornění používám když aktualizuju sešit a natáhne data z jiného programu, aby se ukázalo co se kde porušilo, stránka upozornění je pouze
pro vyzualizaci.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: přiřazení hodnoty na základě třech podmínek Vyřešeno
Dobre, tak se tim nebudu dale zabyvat, pokud nebudes pozdeji pozadovat podstanejsi zmeny.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Graf v Excelu ukazuje chybné hodnoty. Příloha(y)
od atari » 25 dub 2024 08:42 » v Kancelářské balíky - 4
- 1897
-
od atari
Zobrazit poslední příspěvek
25 dub 2024 13:28
-
-
-
Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8... - 0
- 1343
-
od Grander
Zobrazit poslední příspěvek
29 čer 2023 17:34
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů