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:50Za 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