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

Příspěvky uživatele

Ale ja som Vám to urobil, aby to fungovalo autonómne. Stačí sa pozrieť, že aj v liste Hárok1(List2) je jeden riaodk kódu, ktorý to zabezpečuje. Nestačí sa pozrieť iba do modulu

Ja som to robil podobne, a nemusí sa zadávať konečný dátum pri jednodňovej dovče. Rovnako vyfarbí aj pri prechode z mesiaca na mesiac. Víkendy nevyfarbuje, ak je treba farbiť a tie, tak zo vzorca odstrániť
(WEEKDAY(F15;2)<6)*
Podmienené formátovanie
=SUM((WEEKDAY(F15;2)<6)*(F15>=$B$6:$B$20)*(F15<=IF($C$6:$C$20="";$B$6:$B$20;$C$6:$C$20)))>0

OT:
@Vovka:
To v žiadnom prípade nieje vhodné! Keď otvorím takto "vytvorený" ZIP, uvidím adresárovú štruktúru XLM, nie Excelácky súbor. Vznikol by max zmätok. Nezabúdajte, že nie všetci sú IT pokročilejší, a nie každého to napadne, preto by sa muselo uvádzať o tom info v každom príspevku, ktorý by takéto "vylepšenie" použil.

Posielam Vám jedno možné riešenie. Vami želané hodnoty to tam vypisuje ihneď v Label5. Ešte by bolo vhodné zabezpečiť aby všetky ComboBoxy reagovali na zmenu v iných ComboBoxoch, a v prípade nezhody sa vynulovali. Teraz Vám to píše CHYBA v Label5, ak sa tak stane. Rozsah čísel som Vám urobil dynamický, doplnil som Vám aj výpočet priemerov, keďže niesú rovnako zapísané.

PS: Príloha so zošitom Excelu sa posiela tak, že ju zabalíte (skomprimujete) do RAR/ZIP v programe WinRAR/WinZIP,7-Zip,Total Commander ...

zameniť "odosielatel" za emailovu adresu a "heslo" za heslo.
"prijemca" za príjemcovu adresu, a "meno odosielatela" za meno v popise správy. Celé je to nastavené na odosielanie z google mailu.

No veď mne to práve funguje korektne. Pošlite mi teda zošit na mail čo mám uvedený v profile.

Skúste:
Sub saveandsend()
Dim r As Long, N As String
If MsgBox("JSOU ZADANÉ ÚDAJE V POŘÁDKU ?", vbYesNo, "Odeslání do databáze") <> vbYes Then End ' okno z upozorněním o vyčištění formuláře
With ThisWorkbook 'Pro tento sešit
With .Worksheets("Databáze").Range("A2:F2") 'První záznam v DB
On Error Resume Next 'První volný řádek
r = .Resize(Rows.Count - .Row + 1).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row - .Row + 1
On Error GoTo 0
.Resize(r + 1 - IIf(r > 0, 1, 0), .Columns.Count).Offset(1, 0).Value = .Resize(r + 1 - IIf(r > 0, 1, 0), .Columns.Count).Value 'Posun o řádek dolů
.Value = ThisWorkbook.Worksheets("Datový list").Range("A26:F26").Value 'Poslední zápis na první řádek DB
End With
.Worksheets("Protokol").Copy after:=.Worksheets("Databáze") 'Kopíruj list Protokol
With .Worksheets("Datový list")
N = .Cells(26, 1) & " " & .Cells(26, 3) 'Název pro nový list
End With
With .Worksheets(.Worksheets("Databáze").Index + 1) 'Pro novou kopii
.Name = N 'Nastav název
.Buttons("btnOdeslatUlozit").Delete 'vymaž zkopírované tlačítko
.Range("B2:M44").Validation.Delete 'vymaže seznamy
End With
With .Worksheets("Protokol")
.Activate
.Range("D28,D29,D30,K5,B5,B8,C8,D8,G8,L8,B10,F11,F15,H15,L15,F16,H16,L16,F17,H17,L17,F18,H18,L18,F21,H21,L21,F22,H22,L22,F25,H25,L25,F28,H28,L28,F29,H29,L29,F30,H30,L30,B33,F40,H40,L40").ClearContents ' vymaže zadanou oblast buněk
End With
.Save ' uloží
End With
End Sub
testované iba po riadok .Worksheets("Protokol").Copy ...

V prvom prípade sa počíta s definovaným názvom "Konstanta"
Sub pokus()
Dim Stlpec As Integer
Const Konstanta_VBA = "už viem čo"
Stlpec = 1 'A
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & [Konstanta])

Stlpec = 2 'B
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & Konstanta_VBA)
End Sub

Dešifrovanie takto dlhého kódu je na hranici možností, ale kompletné prekopanie kódu na zapisovanie poliami, je bez reálnych dát v takto rozsiahlom kóde, s takým obrovským trafikom, s vypočítavanými pozíciami z premenných, množstvom premenných, a pritom sa nepomýliť a nedopliesť niečo, JE NEMOŽNÉ !. Urobil som Vám to niečo za polovicu. Neručím za to či je všetko správne, pretože to dávam čisto z hlavy, nieje na čom testovať (a verte, že takéto niečo JE potreba testovať, každý krok, napr. na pretečenie polí). Dalo by sa to ešte skrátiť, napr. vynechaním t1,p1,s1 ... tieto hodnoty by sa vo výpočtoch rátali rovno z poľa, výpočty by sa ukladali rovno do polí a nie najskôr do premennej a tá do polí.
Tam kde je to prvé On Error Resume Next (tesne pred koncom mojej úpravy) som už pole nedával, už sa mi nechcelo.

Napíšte, ktorú verziu z tých 4 čo som poslal chcete použiť, napíšte názov listu a rozsah kam chete vzorce, a napíšte názov listu a rozsah kde majú byť dáta. Upravím Vám to, inak by so musel zase len hádať. A na to nemám absolútne čas

Osobne by som si urobil reinštal Office.

@dakt
Skúste na tie vzorce toto

@Seeberg-Radek
No predsa súbor Priečky.xlsm.
Tu je "nová" verzia s obomi možnosťami "vkladania" riadkov.

Máte pravdu, to activesheets som dopísal iba v noci, neskúšal... Rovnako som tam zabudol Module2 vymazať.

Posunúť celé Range ma napadlo ako prvé, a ani dnes netuším prečo som ho tam včera nedal, ale dal som Insert Row. S poliami inak pracujem rád :)

Ten SUM čo ste dal je parádny. Pôvodne som tam dal SUM(C:C), ktorý si s hlavičkou poradí, lenže započítava aj riadok 2 (nezapísaný len napísaný), možností je množstvo. Aj ten Váš vzorec dáva oblasť o 1 riadok väčšiu.

Je to jedno, ale len zo zaujímavosti tento vzorec
=SUM(INDEX(C:C;3):INDEX(C:C;IF(INDEX(C:C;2)="";IF(COUNTA(C:C)>1;COUNTA(C:C)+1;3);IF(COUNTA(C:C)=2;3;COUNTA(C:C)+1))))
nedá inú oblasť ako iba pod riadkom 2, iba presný počet riadkov, s tým že koriguje, aby nebol zarátaný riadok pod zaplnenou oblasťou, ani prípadný zapísaný 2 riadok (ale ešte nepotvrdený), a zároveň ak niesú data, odkazuje na prvý možný riadok, čiže 3. A riadky môžu byť aj mazané. Ale príde mi to komplikované

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse