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

Příspěvky uživatele

mrkni teď

Snad jsem to teď už rozepsal pochápatelněji a srozumitelněji. Když tak se ozvěte a ještě bych to upřesnil. Moc děkuju

tohle není ono, myslel jsem spíš viz příklad

Dobrý den, potřeboval bych poradit jak odečítat od celku více čísel se zápisem zůstatku.Děkuji všem

V excelu 2007 to funguje naprosto sqěle, ovšem, když to spustíš na 2003 hodí to chybovou hlášku. Existuje nějaká jiná funkce, která by nahradila funkci Format a fungovala pod 2003?? Díky
vysledek = cpop & "/" & cbyt & "/" & crok & "-" & format(cpor,"00000")

bože, já su lama, mockrát děkuju, funguje to báječně!!!
ještě jednou moc děkuju

V podstatě mi jde o to, jak docílit toho, že výstupní formát bude z proměnných a=1598 b=24 c=2010 d=1 1598/024/2010-00001. Vždycky se mi to uloží pouze 1598/24/2010-1.
použil jsem tento zápis

Dim cpop, cbyt, crok, cpor, vysledek As String
cpop = Cispop
cbyt = Cbytu
crok = Year(Now())
cpor = CISCE
vysledek = cpop & "/" & cbyt & "/" & crok & "-" & cpor

' doplnění hodnot do tabulky
pocet.Offset(0, 0).Value = CISCE.Value
pocet.Offset(0, 2).Value = ComboBox1.Value
pocet.Offset(0, 3).Value = Cispop.Value
pocet.Offset(0, 4).Value = Cbytu.Value
pocet.Offset(0, 5).Value = Najemce.Value
pocet.Offset(0, 6).Value = Strd.Value
pocet.Offset(0, 7).Value = DTPicker1.Value
pocet.Offset(0, 1).Value = vysledek

Tady zase já,
nevím si rady s tím, jak spojit více proměnných do určitého formátu a zapsat jej jak do konkrétní buňky v tabulce tak ji posleat ještě do druhého formuláře.S uložením ani tak probém nemám jako spíš, že bych to potřeboval uložit v určitém formátu. Výsledný formát by byl např: 1598/024/2010-00001.

Poki, jsi úžasnej. Funguje to a je to špica všech špic a hrot všech hrotů.Moc děkuju!!!

V příloze zasílám soubor

tohle zafungovalo suprově, ale vrátilo mi to hodnotu 1 a poslední čílo je 10951.

Ano seznam evidenčních karet je na listu1 ve sloupci A, nicméně při spuštění souboru načte formulář a po ukončení zadávání dat je možné zadávací formulář znovu vyvolat commandbuttonem. zadal jsem Tvůj upravený kód

Private Sub CommandButton1_Click()
UserForm1.CISCE.Text = 2010.Cells(Cells(65000, 1).End(xlUp), 1) + 1
UserForm1.Show
End Sub

a hlásá mi to chybu syntaxe

Ahoj všichni, chtěl bych se zeptat, jakým způsobem bych mohl načíst obsah poslední buňky do textboxu ve formuláři povýšené o jedna. Takže například budu mít seznam evidenčních karet 1 - n a poslední bude mít číslo třeba 586.Při otevření formuláře se mi načte do textboxu 587. Děkuji všem, kdo by mi mohl tuto záležitost vyřešit.

Tvoje verze je velice půvabná a moc za ni děkuju, nicméně jsem ti poslel mejlík.Děkuji za Tvůj čas a um

'Já to řeším takto
Private Sub CommandButton8_Click()
' Smazání dat z formuláře

TextBox1.Value = vbNullString
TextBox2.Value = vbNullString
...

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje