• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Pořadové číslo s řadou

Zaslal/a zEjnik 9.5.2014 9:40

Ahoj,

mám tabulku, kde v jednom sloupci mám řadu dokladu a v druhém pořadové číslo v dané řadě. Čísla neustále přibývají, proto nemohu použít vzorec, který mám teď =MAX(KDYŽ(B2:B7=B8;D2:D7)).

Potřeboval bych ho upravit nějak, aby nevznikaly cyklické odkazy. Asi přes nepřímý odkaz, ale nevím přesně jak.

Potřebuji, aby oblast byla dynamická a vždy, když zadám řadu dokladu, tak se mi vyplní poslední nalezené číslo v dané řadě +1.

Více napoví příloha.
Nějaké tipy?
Děkuji.

Příloha: 19367_sesit1.zip (7kB, staženo 36x)

Zaslat odpověď >

---

Strana:  « předchozí  1 2

zEjnik(14.5.2014 6:41)#019454

Omlouvám se, teď už se správnou přílohou. ;-)

Příloha: 19454_sesit1.zip (12kB, staženo 26x)

citovat

eLCHa(14.5.2014 7:25)#019455

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 And Not IsEmpty(Target.Cells(1).Offset(-1, 0)) Then
If Not IsEmpty(Target.Cells(1).Offset(0, -1)) Then
Dim lVal As Long
lVal = Application.Evaluate("MAX(D2:D" & .Row - 1 & "*(B2:B" & .Row - 1 & "=B" & .Row & ")*(C2:C" & .Row - 1 & "=C" & .Row & "))+1")
If lVal = 1 Then
lVal = Target.Cells(1).Value * 1000000 + 140001
End If
Cells(.Row, 4).Value = lVal
Else
If IsEmpty(Target.Cells(1)) Then
Cells(.Row, 4).ClearContents
Else
Cells(.Row, 4).Value = "#SLOUPEC ŘADA JE PRÁZDNÝ"
End If
End If
End If
End With 'Target
End SubSnad to funguje ;)

Pokud je buňka ve sloupci C nad změněnou buňkou prázdná, neděje se nic (je možno psát pod data)
Pokud je buňka ve sloupci B vedle změněné buňky prázdná, napíše hlášku
Pokud buňku vymažete (je prázdná), vymaže se i záznam
Mno a to co jen tipuji - pokud nenajde shodu v předešlých záznamech, vloží hodnotu T140001 (T je typ)citovat

eLCHa(14.5.2014 7:32)#019456

Jen upozorňuji, že tak jak je to napsané, to funguje jen pro sloupce B až D
Pokud byste chtěl vložit sloupce nebo odstranit sloupec A a pracovat v A až C, je třeba upravit.
Tzn není to úplně blbuvzdorné, muselo by se ještě poladit ;)
Mno a řádeklVal = Target.Cells(1).Value * 1000000 + 140001je také rizikový (vložení textu), ale to zatím neřeším, protože nevím jestli je to správně.citovat

zEjnik(14.5.2014 7:49)#019458

Vždy tam budou čísla, takže není potřeba ošetřovat proti textu. Už jsem si upravil pro svoje sloupce a funguje parádně! ;-)

Co tam není ošetřené je, že když zadám typ, tak se vypíše chyba, doplním řadu a nic se nestane, musím smazat typ a znovu ho zapsat, ale to vůbec nevadí, neřešil bych!
Díky moc za ochotu! :-)citovat

eLCHa(14.5.2014 8:01)#019460

Potřeboval bych tedy makro upravit tak, aby při zapsání řady se nic nedělo
Tak jste to chtěl ;))

Mno - úmyslně text nezadáte, ale neúmyslně? ;))

Záleží na Vás, pokud budete chtít pořešit, neměl by to být problém ;)citovat

zEjnik(14.5.2014 8:08)#019462

Neúmyslně možná ano, ale to bude moje blbost a budu vědět, kde je chyba. Logicky v těchto buňkách musí být jen čísla.
Nebudu Vás s tím dál zaměstnávat, jsem rád, že jste mi pomohl s tímto funkčním řešením! :-)

Děkuji.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse