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

MS Excel

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

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

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: 27596_hodnota-z-hladaneho-listu.rar (35kB, staženo 14x)

citovat

eLCHa(22.10.2015 7:10)#027600

@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

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

eLCHa(22.10.2015 10:05)#027606

@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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse