Příspěvky uživatele
< návrat zpět
Rozdiel medzi absolútnymi a relatívnymi poznám, ale netušil som že sa vzorce ešte delia na maticové a že ich treba potvrdiť tou skratkou a nestačí iba enter. Každopádne teraz to už funguje vďaka.
Snažím sa vytvorit si vyhladávanie na základe 2 kritérii, no nedarí sa mi to. Našiel som tento vzor na internete, ale akonahle vzorec skopírujem čo i len do susednej bunky tak prestane fungovať. Vedeli by ste mi s tým poradiť?
Exit Sub pomohol dakujem.
Zdravím, neviem kde robím chybu, ale funkcia GoTO mi nechce fungovať respektíve funguje stále. Chybu v podmienke by som mať nemal, ale aj tak či cesta existuje ale neexistuje sa GoTo spustí a zobrazí správa kopírujem. Dim sSourcePath As String
Dim sTargetPath As String
Dim fso As Object
Dim strFolderExists As String
Sub CheckFolderExists()
sSourcePath = "D:\test.txt"
sTargetPath = "K:\"
strFolderExists = Dir(sTargetPath, vbDirectory)
If strFolderExists = "" Then
MsgBox "Cesta neexistuje"
Else
GoTo Copy
End If
Copy:
MsgBox "kopírujem"
Ten s countifs funguje na výbornú dakujem. Ani by ma nenapadlo že to pôjde aj bez makra zdalo sa mi to príliš zložité a nakoniec to išlo vyriešit pomerne jednoduchým vzorcom. Ešte raz dakujem.
Ano, tak aby sa to dalo nastavit od konkretneho datumu.
Zdravim a prosim o pomoc s vytvorenim makra. Mam kalendar a v nom zaznacene udaje chcel by som tam pridat fmakro aby my to spocitalo hodnoty ktore v nom mam zaznacene od urciteho datumu az po koniec roka. Predstavoval by som si to tak ze vyberiem datum kliknem na tlacidlo a zrata sa to vo vzorci. Musi tam byt nato vzorec lebo to budem pouzivat aj na mobile a tam makra nefunguju. Takze vyber rozsahu moze byt v makre ale finalne zratanie musi byt vo vzorci.
Nieco som uz skusal no nefunguje to uplne dobre. Viem ze robim chybu s tym xldown a pod funkciamy ale nedokazem vymysliet system aby to oznacilo tie bunky ktore ma.
Získavanie údajov už funguje aj na diskoch, ukazuje sa progress a excel nevytuhne pri získavaní údajov takže aj vizuálne plus ďakujem.
Potreboval by som ďalšiu pomoc, tým že sme odstránili vzorce sú v hárkoch Zdroj Axagon v stĺpci A nejaké prázdne bunky tým pádom mi Range(Selection, Selection.End(xlDown)).Selectskočí len po ne a ostatne údaje neoznačí. Je to v Module4 má to spojiť údaje z 2 diskov do jedného veľkého zoznamu.
Ak by sa to nedalo nejak jednoducho tak sa vrátim k tým vzorcom a tým pádom tam bude údaj a bude to fungovať.
Ked pripojím disk vyskúšam. Ked to však robilo to že sa odtstranovalo to lomitko netsačilo by vymazať tento riadok
Case Else: Folder = Left$(Folder, Len(Folder) - IIf(Right$(Folder, 1) = "\", 1, 0)) 'odstránenie posledného lomítka
či program zasa potrebuje niekde aj cestu bez lomítka?
No skúsim to zobrať po bodoch:
1.Nemyslím si že to bude jednoduché, pre mna je to nemožné a niekto iný sa mi stým zadarmo babrať nebude asi ani vy.
2.Bolo by to najlepšie tak ako popisujete. Mal by som taký podfarbený zoznam, po aktualizovaný by sa tam pridali nové filmy a podfarbovanie a poznámky by ostali a neprehádzali sa.Ale viem že je to nemožné a od toho som dávno upustil ešte než som sa opýtal prvú otázku.
3.Značím si tam kvalitu filmu, ale to asi nieje tak podstatné.
4.hárok zdroj spojené sa aktualizuje modulom4 makrom spoj_zdroje proste sa vymaže a údaje sa tam znova nakopírujú, nemusí sa znova čítať z disku.
5.To z iného modulu som myslel tak že napr na moduly1 a 4 musím mať napísané Set WS = ThisWorkbook.Worksheets("zdroj Axagon")
a v prípade premenovania hárku to musím premenovať na oboch, ale to ste mi už ukázali v poslednom súbore ako to spraviť inak.
6. Tabulka tam asi je navyše, proste som len skúšal ako by to vyzeralo najlepšie, čo sa mi najviac páči. Teraz som dospel k záveru že prvé 2 hárky mi vyhovujú a tabulku asi vymažem aj ten posledný hárok.
Snád som zodpovedal všetko.
Za ten progress ďakujem hovorím že byť nemusí, ale ked už je tak poteší.
Robíme to čoraz komplikovanejšie a vytvárame nové chyby tento posledný súbor mi po spustení makra píše permision denied, ale zasa iba ak to skúšam na hdd ak to skúšam z usb kde mám málo údajov,ale zasa žiadny film iba také testovacie podpriečinky tak tam funguje
A súbor predtým sa len tvári že niečo robí ale nespraví nič.
Dakujem idem sa na to pozrieť. Prekopanie nebude treba progress nepotrebujem. S tým mojím spôsobom mi to trvalo cca 15s čo je pre mna prijatelné. Excel tam síce nachvílu vytuhne, potom sa ale spametá a dokončí sa to.
Ten váš spôsob mi žial na disku nefunguje neviem kde môže byť chyba. Posielam zatial moju finálnu verziu, ostatné makrá si nevšímajte nech vás to nemetie.
Na hárkoch zdroj Axagon sú údaje vytiahnuté z disku aby ste mali predstavu o kolkých položkách sa bavíme.
Dnes som chcel otestovat rýchlost tých dvoch rozdielnych spôsobov na mojom disku kde mám filmy doteraz som to robil len na testovacom usb a ten nový spôsom, posledný súbor ktorý ste mi poslali nefunguje. Nic sa nedeje chybu to neukáže ked som skúšal krokovať F8 tak vnorovanie fungovalo ale do konca sa to nedá odsledovat kde sa to zasekne. Na tom usb to funguje možno je chyba v mnozstve udajov?
Dakujem za kontrolu a úpravu. To s tým tabom viem že je to prehladnejšie a keď si to píšem ja tak to robím, ale nie vždy pochopím ak kód takto skopírujem od niekoho a hlavne ked je zložitejší, ktoré if začína a ktoré end ho ukončuje.
K tým dvom vzorcom, takto som to vedel spraviť ja. Do makra by som to nevedel zakomponovať. Ak sa vám chce môžte to skúsiť dať do makra a ak by ste mohli pridať k jednotlivým riadkom poznámky tak ako tam už v niektorých riadkoch mám. Chcel by som to pochopiť ako to bude fungovať.
Dakujem za úpravu spravil som ju a funguje. Len som si nie istý týmto riadkom či ho mám vymazať.
If Len(Dir(objFolder.Path, vbDirectory)) = 0 Then Exit Sub
Posielam súbor a prosím skontrolovali by ste či to mám dobre a je tam aj označený ten riadok, neviem či ho zmazať alebo nie.
Posielam súbor ako to je na druhom hárku som skopíroval tak ako mi to dá pôvodné makro a na tom prvom je to vaše.
Mal by som ešte jednu otázku. Dá sa spraviť to že
Set WS = ThisWorkbook.Worksheets("zdroj Axagon n.o 2")
spolu s ostatnýmy budem mať zadefinované zvlášt na jednom module a potom by ostatné moduly brali tieto informácie z neho?
Boloby tam takto zadefinovaných viac hárkov, či takto sa to nerobi? Pretože mám viac modulov ktoré využívajú ten istý zošit a ked ho premenujem tak to musím spraviť v každom a takto by mi to stačilo len v tom jednom.
Dúfam že ste ma pochopily.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články