Stránka 1 z 2

přiřazení hodnoty na základě třech podmínek

Napsal: 07 dub 2010 21:55
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 07 dub 2010 22:12
od 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.

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 08 dub 2010 16:18
od 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"

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 08 dub 2010 17:07
od 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.

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 08 dub 2010 17:50
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 08 dub 2010 20:04
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 08 dub 2010 20:49
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 12 dub 2010 20:25
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 12 dub 2010 21:10
od 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.

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 12 dub 2010 22:55
od 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

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 13 dub 2010 09:44
od navstevnik
V sesitu v priloze je upravena procedura VBA, pripadne volani klavesovou zkratkou si dopln. Otestuj.

Re: přiřazení hodnoty na základě třech podmínek

Napsal: 03 čer 2010 21:33
od 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