< návrat zpět

MS Excel

Téma: jak načíst obsah buňky rss

Zaslal/a husita 27.10.2010 13:05

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.

Zaslat odpověď >
icon Poki(27.10.2010 13:25)#002895
Poki
Predpokladejme, ze rada cisel (evidencnich karet je na listu 1 ve sloupci A, potom by pred nactenim formulare mohl zmineny textbox vyplnit nasledujici kod:
UserForm1.TextBox1.Text = List1.Cells(Cells(65000, 1).End(xlUp), 1) + 1citovat
husita(27.10.2010 13:37)#002897
avatar
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 syntaxecitovat
icon Poki(27.10.2010 13:42)#002898
Poki
Problem bude zrejme v tom List1, protoze to neni nazev listu, ale jde o cislo listu v sesitu (to se nemeni do konce 'zivota' sesitu, takze se nemeni ani pri odstraneni listu).
Zkuste toto:
UserForm1.CISCE.Text = worksheets("2010").Cells(Cells(65000, 1).End(xlUp), 1) + 1citovat
husita(27.10.2010 14:02)#002901
avatar
tohle zafungovalo suprově, ale vrátilo mi to hodnotu 1 a poslední čílo je 10951.citovat
icon Poki(27.10.2010 14:10)#002902
Poki
zkuste prilozit ten sesit, takhle bez dat se dost tezko odhaluji chyby...citovat
husita(27.10.2010 15:09)#002903
avatar
V příloze zasílám soubor
Příloha: zip2903_ce.zip (88kB, staženo 18x)
citovat
icon Poki(27.10.2010 15:50)#002905
Poki
omlouvam se, byla to moje chyba, zapomnel jsem na vlastnost .row - takze tady je uz doufam spravny radek:
worksheets("2010").cells(cells(65000,1).end(xlup).row,1)+1citovat
husita(27.10.2010 15:58)#002907
avatar
Poki, jsi úžasnej. Funguje to a je to špica všech špic a hrot všech hrotů.Moc děkuju!!!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje