Příspěvky uživatele

asi by bylo dobry prilozit vzorovy soubor, kde budete mit napsano, jaka je rezerva atd - zkratka nejaky mustr se vstupnimi daty

Ten priklad grafu neni moc jasny (aspon mne), nevim z nej nic...ani, co znamenaji barvy

To není zase az tak tezke, jen si musite uvědomit, co se prave deje – jaky kod probiha, jaky uz skoncil atd.
Poud NEpouzivate promene Public, tak procedury mohou používat jen promenne definovane v nich samych.
Pokud jde o tlačítka, lze si to predstavit jako bunky na listech: bunka A exituje na Listu1 i na List2…, proto pokud chcete pracovat s bunkou A1 na List1, musite to jasne rict, protože pokud napisete jen Range(„a1“), bude se pracovat s bunkou A1 na aktivnim listu.
Tedy, je lepsi do kodu (pokud se nejedna primo o kod umisteny v UserForm1) psat celou cestu k tlaticku: napr. UserForm1.CommandButton1.Visible = False a UserForm1.CommandButton1.Visible = False.
Snad to pomuze…

V prilozenem souboru zadny userform neni.
Kazdopadne, jak uz jste napsal, jde o TextBox, takze jeho vystupem je vzdy text - je tedy nutne pri ukladani z textboxu do bunky konvertovat tuto hodnotu.
Zde zalezi na tom, o jake cislo jde (datovy typ: integer, long, double...)
Vas zapis by mel vypadat napr. takto:Cells(1, 1) = CDbl(UserForm1.TextBox1.Text)

Napada me:
Na liste, kde mate hodnoty, ktere chcete prevest do txt, ponechte klasickou desetinnou carku a na druhem liste pomoci funkce DOSADIT nahradte carku teckou ve vsech bunkach - druhy list potom staci ulozit jako txt a melo by to vyhovovat (pokud nepotrebujete nic specialniho)...

VLozil jsem Combobox, ze ktereho muze uzivatel vybrat, co chce (kdyz do nej zacne psat, automaticky se doplnuje moznost, co chce...).
Vybrany produkt v tomto comboboxu se pak klikem na zlute podbarvenou bunku 'Vloz tovar' - obsah comboboxu se ulozi do prisluneho radku do sloupce C.

Tak to slysim poprve, ze by slo rozsirit bunku bez rozsireni sloupce nebo bez slouceni dvou bunek.
Pripada mi to i dost nelogicke, ze by to slo, ale pokud ano, rad bych vedel, jak...

Pokud jde o zamceni - lze zamknout sesit nebo list. Ve vasem priprade by se asi melo jednat o list (aby uzivatel neprepsal nejake bunky)-
Worksheets("list1").Protect Password:="MojeHeslo"
Worksheets("list1").Unprotect Password:="MojeHeslo"

Krizkem na vami vytvorenem userformu lze zakazt takto:Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

Asi tomu moc nerozumim, vyhledavani neni problem - spis si musite ujasnit, jak zadate to, co chcete vyhledavat, bud to musite napsat nebo vybrat s rozbalovaciho seznamu (ktery vam nevyhovuje)...jakou tedy mate predstavu?

Pro bunku B1: =A1 & "/10"

Pridal jsem export aktivniho listu, jen jsem musel osetrit to, kdyz je aktivni list ten, ktery je mezi explicitne vyjmenovanymi, aby nebyly duplicity.
Snad je to OK.

Zkusil jsem to pomoci vzorcu, ktere lze s dalsimi filmy jen protahnout dolu (v 1. sloupci je jiny)
Kazdopadne s nazvem filmu to neni nijak propojene, protoze nazev filmu nemate v jednotlivych castech...

Abych rekl pravdu, tak v tom kodu par veci nechapu, napr. proc pouzivate cyklus For Next s promennou i, kdyz i nikde nevyuzivate??? Navic, pokud budete mit zaplneny radek 59, tak cells(59,5).end(xlup).row vas vrati na prvni vyplneny radek v oblasti (asi 25)
Dost tezko se takhle kod hodnoti, kdyz nevidim, s cim se vlastne pracuje...
Kdyz prilozite soubor, podivam se na to

Co me napada je, ze by se mely vymazavat z pameti objektove promenne.
Pouzivate-li treba FileSystemObject, mel by na konci kodu byt zapis: Set FSO = Nothing

Vlastnost sešitu: Thisworkbook.Readonly je bud True or False

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje