Příspěvky uživatele

Mne to Move proste nechodí (Excel 2013 Pro x64 SK / Windows 8.1.1 Pro x64 SK).
Ani keď použijem zátvorkovú notáciu, ani bez, ani s názvami parametrom "Left:=" ..., ani bez, ani s nepovinnými parametrami.
Fachá u mňa len takáto miniúprava. Doplnil som ešte MouseUp ,aby aj po dokončení posunu ostal focus na Sheete.

Upravená verzia pre tie desatinné miesta. Ale prerábať to ešte na externé súbory a navyše rozdielne, to sa mi fakt nechce. V Exceli sa totiž z externými súbormi nepracuje tak ľahko, vonkoncom nie s množstvom buniek, duplom nie s variabilnými názvami súborov, a pracovať s neznámym počtom neznámo pomenovaných listov v nich je ručná brzda (neustále otváranie súborov). Nechce sa mi nad tým teraz ani premýšľať

To u mňa ale nefunguje, po kliknutí na Header sa okno presunie do ľavého horného rohu a tam sa "trepoce" pri pokuse o hýbanie.

A nemohlo by to byť tak, že sa pri aktivácii toho formu zruší TittleBar ? Nevýhoda, je, že ho nepresuniete.

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.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje