< návrat zpět

MS Excel

Téma: VBA Call sheet (aj ked neviem presny nazov) rss

Zaslal/a TEho 20.10.2015 14:12

Dobrý deň
potreboval by som poradiť.
Mam makro ktoré otvori všetky *.xlsm súbory v danom adresári a načíta data z posledného sheetu (sheet.count)
Ako ale nastaviť iný sheet ak neviem ako sa vola resp môže mat len 3 tvary.
1. Set DestSheet = WorkBk.Sheets("PV-" & mesiac & "_" & rok & "IXO")

2. Set DestSheet = WorkBk.Sheets("PV-" & mesiac & "_" & rok & "KUFU")

3. Set DestSheet = WorkBk.Sheets("PV-" & mesiac & "_" & rok & "MRAZ")

kde mesiac a rok su premenne typu integer, ktoré si vyberiem vo formulári

Asi dať posledne slovo názvu sheetu do variable ale ako a ako načítať iba posledne slovo názvu sheetu (string)

Zaslat odpověď >
Strana:  « předchozí  1 2
elninoslov(21.10.2015 20:01)#027596
elninoslov
Tu môže byť tiež veľa riešení, záleží na bližšej špecifikácii problému. Napr. o koľko pôjde buniek, musia byť tie zošity otvorené, čo bude potom ďalej s dátami...
Niečo si vyberte, alebo upresnite čo ďalej, možno pomôžeme...
Tu máte ďalšie dve riešenia, aj s príkladom použitia. Návrh od xlnc a metóda Case s overením existencie listu.
Příloha: rar27596_hodnota-z-hladaneho-listu.rar (35kB, staženo 14x)
citovat
icon eLCHa(22.10.2015 7:10)#027600
eLCHa
@xlnc
Ale neperou, soudružko. Oni si jen povídají. ;)

Použil bych vyhledávácí funkci Application.Match na poli názvů listů.

Dobře, pokud se budeme bavit o tom, jakbychom gdybychom (pro tento konkrétní případ jak jsem ho pochopil ze zadání bych to stejně udělal tak jak jsem napsal na začátku), tak nejspíše
Načíst názvy listů do pole (metodu neřeším) a pak Filter, např.:
v = Filter(Array("PV-01-2015AAA", "PV-02-2015AAA", "PV-03-2015AAA", "PV-04-2015AAA", "PV-05-2015AAA", "PV-06-2015AAA"), "04-2015")citovat
Vovka(22.10.2015 9:34)#027604
avatar
Opravdu máte pocit, že tazatel TEho má z téhle diskuse nějaký užitek? Asi by bylo účelné, kdyby se k tomu tazatel vyjádřil...citovat
icon eLCHa(22.10.2015 10:05)#027606
eLCHa
@Vovka
Opravdu máte pocit, že tazatel TEho má z téhle diskuse nějaký užitek

Ne a nevadí mi to. Rád si podiskutuji a ověřím jiné postupy. I když to nebude úplně k tématu. Sem tam se tak dozvím některé věci, o kterých jsem nevěděl.citovat

Strana:  « předchozí  1 2

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