přiřazení hodnoty na základě třech podmínek Vyřešeno

[Danyy]

zdravím neví někdo jak na základě třech podmínek se přiřadila např. 1
podmínka - 1. Datum
2.položky
3.pozice z které položka je vyexpedována
zda se dá přiřadit k položce která nesplňuje tři podmínky hodnotu nebo upozornění

díky

[Reklama]

[atari]

Zde je jiné zadání než v přiloženém sešitu. Jak se pozná nesprávné datum? Nějak jsem to zadání nepochopil.

[Danyy]

jde aby řadilo od nejstaršího k novějšímu datu. nevím jestli bude umět, najít položku např A277 a vyhodnotit jestli na "Výstupní přepraviště" je opravdu nejstarší paleta, jestli nemáme novější paletu A277 na Výstupní přepraviště, uplně by my stačilo když se tak stane zadá se vedle "1"

[atari]

Pořád tápu, takže kdy to napíšu slovníkem programátora, tak zadání je toto:
Ve sloupci "C" vyhledat všechny položky A277, a ta která je na pozici "Výstupní přepraviště", a má nejstarší datum ze všech položek dané položky, tak se označí ve sloupci "I" číslem 1. Takto to udělat u všech položek. Je to tak?
Pokud to je tak, tak to už je na VBA, a na to si nějak netroufám.

[navstevnik]

to Danny:
Proc nenapises jednoduse, ze je potreba overit, zda na vystupnim prepravisti neni paleta polozky Xyyy s datem prijmu novejsim, nez je datum prijmu jine palety polozky Xyyy v meziskladu; jeste jinak: zda v meziskladu nezustava paleta s drivejsim datem prijmu polozky Xyyy.
Podivam se, co s tim.
Dotaz: Seznam bude vzdy setriden podle Polozky a dale DatumPrijmu?
doplneno 8.4.10 18:50
Za predpokladu, ze seznam je vzdy setriden podle Polozka a DatumPrijmu, je potreba overit, zda je u polozky paleta s nejstarsim datem prijmu palety na Vystupnim prepravisti, pokud ne oznacit.
Nize uvedena procedura vykona pozadovane, oznaceni je vlozeno pro srovnani do sloupce J:J.
Zrejme bude potreba v procedure upravit nazev listu a vychozi bunky pro definici sloupce s Polozkami dle realu.
V editoru VBA vloz do standardniho modulu, volani nejspis klavesovou zkratkou, overit, zdav radku: If SCll.Offset(0, 5).Value = "Výstupní přepraviště" ... je nezkreslena diakritika:

Kód: Vybrat vše

Option Explicit

Sub PorovnejData()
  Dim SBlk As Range, SCll As Range
  Dim Polozka As String
  With Worksheets("list1")
    Set SBlk = .Range(.Range("c2"), .Range("c2").End(xlDown))
  End With
  Polozka = vbNullString
  For Each SCll In SBlk.Cells
    If SCll <> Polozka Then
      Polozka = SCll.Value
    Else
      If SCll.Offset(0, 5).Value = "Výstupní přepraviště" Then SCll.Offset(0, 7).Value = 1
    End If
  Next SCll
End Sub

[Danyy]

to sem setřídíl já ale to pude asi aby to takhle bylo setříděno.
zkusím se na to podívat.
děkuji

[navstevnik]

Tady to mas vcetne setrideni ( setrideni vyrazne zjednodusuje proceduru):

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
  With Worksheets("list1")
    Set SBlk = .Range(.Range("c2"), .Range("c2").End(xlDown))
  End With
  Set SortBlk = SBlk.Resize(SBlk.Rows.Count + 1, 6).Offset(-1, 0)
  SortBlk.Sort Key1:=SortBlk.Resize(1, 1), Order1:=xlAscending, Key2:=SortBlk.Resize(1, 1).Offset(0, 4) _
      , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
      False, Orientation:=xlTopToBottom
  Polozka = vbNullString
  For Each SCll In SBlk.Cells
    If SCll <> Polozka Then
      Polozka = SCll.Value
    Else
      If SCll.Offset(0, 5).Value = "Výstupní přepraviště" Then SCll.Offset(0, 7).Value = 1
    End If
  Next SCll
  Application.ScreenUpdating = True
  Set SCll = Nothing
  Set SBlk = Nothing
  Set SortBlk = Nothing
End Sub

[Danyy]

prosím šlo by to ještě upravit nevím kde to mám upravit.

setřídění je jinak

první "kanban"
druhá "davka"
třetí "palette"

díky

[navstevnik]

Porad plati (jeste jina definice podminek), ze ma byt oznacen zaznam, ve kterem plati, ze na pozici Vystupni prepraviste muze byt pouze paleta s nejstarsim datem prijmu se shodnym (nyni) Kanban? Nebo je to jinak v souvislosti s pozadovanym tridenim v poradi Kanban - Davka - Palette? Nebo pozadovane trideni je pouze formalni ve vztahu k podmince pro oznaceni (tedy oznaceni na tomto trideni nezavisi)?
V novem souboru totiz neni vlozen ani pozadovany vysledek, takze je zapotrebi jasne stanovit podminky pro oznaceni a uvest, jaka je souvislost pozadovaneho setrideni s oznacenim.

[Danyy]

omlouvám se za málo detailů

tady už nehraje datum žádný význam je informativní hlavní je "davka" ta je místo data.
-ze ma byt oznacen zaznam, ve kterem plati, ze na pozici Vystupni prepraviste muze byt pouze paleta s nejstarsí davkou.
setřídil sem to podle položka - "kanban" pak "davka" ta je místo datumu a pak na posled "palette" kdyby davka byla stejná to se opčas stává.
pořád platí přiřazování "1"

díky

[navstevnik]

V sesitu v priloze je upravena procedura VBA, pripadne volani klavesovou zkratkou si dopln. Otestuj.

[Danyy]

zdravím sem to otestoval je to super šlo by vyřadit jednu podmínku ID palety?

stačí jen dvě podmínky "KANBAN" a "DAVKA"

předem děkuji