Příspěvky uživatele

No, jde o to, ze panely nastrojů nejsou prirazeny ke konkretnimu sesitu, ale vzdy jen k personal.xls na konkretnim PC, takze jedina moznost, jak zdanlive personalizovat konkretni sesit je ten, ze se pri otevreni sesitu makrem panel vytvori a pak zase zrusi... Jinou moznost nevidim

Zdravím,
pokud vím, tak nastavení excelu je uloženo v každém PC ve skrytém souboru personal.xls.
Pokud jde o to, jak mít v jednom konkrétním souboru jeden konkrétní panel nástrojů - je nutné mít v tomto souboru makro, které při spuštění souboru panel vytvoří a na něm vytvoří tlačítka, kterým přiřadí makra.
Před zavřením souboru pak musí další makro panel odstranit, protože by v PC zustal.

je to zdlouhavy, ale clovek se toho nejvic nauci.. :)

Zkusil jsem napravit serazeni...

Databaze klientu se da udelat i v excelu, pokud nebude mit 4miliony zaznamu...
A v kazde relacni databazi musi mit kazda tabulka svuj primarni klic (unikatni polozku - napr. cislo Klienta), ale pokud budete zaznamenavat kazdou zakazku vcetne udaju o klientovi, bude to stacit (idealni to sice neni, ale pro vasi potrebu to bude myslim dostatecne)

Nejsem si jistej, jeslti to chapu spravne, protoze tady by se hodilo mit databazi klientu.
Pokud se pouzije formular na listu zakazka, meloby se zkontrolovat (asi podle iča), jestli uz neni klient v databazi.
Ale zapsat hodnotu do bunky je snadno proveditelne takto: Worksheets("Faktura").Cells(7, 8) = TextFNazev.Text

Jen par postrehu:
1) na formulari jsou spatne pojmenovane jednotlive textboxy (IC se jmenuje TextFMesto)
2) formular by se mel Unloadovat po stisknuti OK - tlacitko Zrusit by nemelo provadet nic, krome unloadovani formulare
3) Myslim, ze by mela byt aspon provedena kontrola, jestli IČ je cislo, aby nebyla chyba pri zadani [funkce IsNumeric()]
4) vyvarujte se diakritiky pri nazyvani objektu na formulari - muze to delat problemy

no problem

ahoj,
podle mého je spravne, co napsal Jeza.m - ze FileSystemObject součástí Microsoft Scripting Run-time - v excelu ji muzes vyuzit jenom pokud ji mas zaskrtnutou v Referencich... na konretnim PC.

Lze použít funkci SUMIF nebo maticový vzorec s podminkou.
1) SUMIF(oblast;kritéria;součet)- napovedu, jak lpouzit najdete nekde na webu
2) maticový vzorec je tezsi popsat, pokud s nimi nemate zkusenosti

Nejlepsi by bylo, kdybyste mi poslala vas sesit a ja bych vam tam neco doplnil.

Jen na okraj - nedoporucoval bych pouzival funkci WEEKNUM, protoze neni koncipovana podle norem platnych v CR, tudiz se muze stat, ze za urcitych podminek vrati spatne cislo tydne.
Nasim podminkam odpovida tento vzorec: =USEKNOUT((DNES()-DENTÝDNE(DNES();2)-DATUM(ROK(DNES()+4-DENTÝDNE(DNES();2));1;-10))/7)
tento vzorec vrati cislo tydne dnesniho data

Ta podmínka, co jsem myslel, by byla navázána na číslo týdne v roce, což asi nebude to, co chcete, předpokládám, protože nebude korespondovat se začátkem a koncem mesíce. Pokud si to predstavuji dobre, tak by Vám stačilo upravit ručně pět vzorcu sum u prvního řádku dnů - ostatní by už šly jednoduše protáhnout!

Zdravim,
tohle nijak jednoduse obejit nejde - a myslim, ze se v tomto pripade Excel chova dobre.
Moznost je umistit sumu vzdy pod posledni den tydne, pokud se bude kopirovat vzdy jen suma takto umistena, bude posun vzorce spravny - dalsi moznosti je navazat sumu na cislo tydne v roce, coz uz je slozitejsi varianta souctu s podminkou.
Otazka je, jake je usporadani ve vasem souboru...

Zkusil jsem to pomoci vzorcu - jen jsem si musel ve sloupci K udelat pomocny vypocet

Zdravim,
ten ten existence souboru je v poradku, ale tim otevrenim dokumentu si nejsem jisty...
Sub jeOPEN()

Dim fso
Dim Soubor As String
Dim Cesta As String
Dim DwgName As String
DwgName = Cesta & Soubor

Soubor = "jmeno.dwg"
Cesta = "d:\"

Set fso = CreateObject("scripting.filesystemobject")

If Not fso.FileExists(DwgName) Then
MsgBox Soubor & " nebyl nalezen.", vbInformation, "Soubor nenalezen"
Exit Sub
End If

Set acadApp = GetObject(, "AutoCAD.Application")

If Err Then
Set acadApp = CreateObject("AutoCAD.Application")
Err.Clear
End If

Set aCadDoc = acadApp.activedocument
If aCadDoc.FullName <> DwgName Then
aCadDoc.Open DwgName
End If

End Sub

Neni to zadna veda, staci zapremyslet a ujasnit si, ceho vlastne chci dosahnout - hodne stesti v dalsi praci :)

Zkus se na to podivat.
Makro pro zapsani naslo prvni prazdy radek, ktery se nachazi pod radkem 62 (vase promenna "rd"). Takze posledni neprazdy radek = rd - 1.

Co takhle?
rd = 62

Do While Cells(rd, 1) <> ""
rd = rd + 1
Loop

range(Cells(rd - 1, 1), Cells(rd - 1, 6)).clearcontents

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje