MS Excel

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ěď >

Poki(27.10.2010 13:25)#002895

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

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

Poki(27.10.2010 13:42)#002898

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

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

Poki(27.10.2010 14:10)#002902

zkuste prilozit ten sesit, takhle bez dat se dost tezko odhaluji chyby...citovat

husita(27.10.2010 15:09)#002903

V příloze zasílám soubor

Příloha: zip

2903_ce.zip (88kB, staženo 18x)

citovat

Poki(27.10.2010 15:50)#002905

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

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

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

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Makro smyčka

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do