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

Příspěvky uživatele

Nechcem do toho Lugr-ovi kecať, ale jediné riešenie toho magical word "niekedy" je - priložiť tie prílohy, počas ktorých to nastane. Dôvodov sú mraky, vypisovať ich všetky nebudem...

Narýchlo som omrkol Lugr-ovo riešenie (14.7.2022 16:31), a na prvý pohľad okrem maličkostí, tam nevidím dôvod nefunkčnosti. Ale vymýšľať si, a prispôsobovať tomu rôzne varianty dát, ktoré môžu nastať, sa mi nechce.

Vyskúšal som zatiaľ verziu môj PC vs. Virtual PC.
-Na oboch som prihlásený do toho istého MEGA konta
-Na oboch mám v dokumentoch vytvorené zložky
...\MEGA\import\Report\
-Túto zložku
...\MEGA\
mám nastavenú na synchronizáciu v MEGA aplikácii
-To znamená, že pri zmene súboru na jednom PC, sa mi táto zmena synchronizuje s MEGA, a prejaví sa aj v druhom PC.
-Aby to nebolo také jednoduché, tak mám na jednom PC zložku Dokumenty
D:\Dokumenty\
na druhom PC
C:\Users\Elnino\Documents\
-Pri použití tohto kódu
CESTA = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & "\MEGA\import\Report\"
dostanem na jednom PC
D:\Dokumenty\MEGA\import\Report\
na druhom PC
C:\Users\Elnino\Documents\MEGA\import\Report\
-TAKŽE JE TO VŠETKO SPRÁVNE, a netuším, čo stále riešite s tými kontami, ktoré Vás skutočne nemusia trápiť !!!
-Jedine, že by ste to nemali tak, ako ste popísali. Pretože to asi nepopisujete presne. Prejdite si zarážku po zarážke, čo som teraz napísal, a čeknite, či to máte tak isto.

Áno v rýchlosti 2 chyby. Ak by ste sa poriadne pozrel na vzorec, tak na to prídete (tiež som to poriadne neskontroloval).

1. Všetky odkazy musia ísť na rozsah riadkov 10:30, nesprávne som dal omylom 11:30.
2. V zhone som nezadal správne absolútne odkazy na riadok v súčtoch obchodníkov. Takže v prvej bunke nemá byť K10 ale K$10.

Upravte vždy iba prvú bunku a vzorec rozkopírujte.

Úprava oboch verzií aj s ošetrením prevodu textu na číslo.

Office 2017 neexistuje (...,XP,2003,2007,2010,2013,2016,2019,2021,365). Od 2007 je k dispozícii objekt Tabuľka (ListObject niekedy označovaná ako ObjectTable alebo ExcelTable). Ponúka rôzne výhody, ako napr. rýchle filtre, automatické oblasti, automatické naťahovanie vzorcov a formátov,... v Hárok2 spolu s KT.
Makro by som asi aj vynechal. Veď zadajte údaje na koniec Tabuľky, a hore vo filtri dajte zoradiť Z-A dátum. Ale aj to iba pre Váš vizuál, KT a vzorcom súčtov je to šumák.

Verzia Office?
To pridanie jedného riadku - to ide iba o jednorazovú záležitosť? Alebo vždy pri nejakej akcii (makro)?
Ako často budete meniť tých obchodníkov ako často pridávať/uberať v zozname)? Ide o to, že by bolo lepšie na takýto sumár použiť KT.
Prečo je v tej tabuľke vpravo všade r. 2017?

Šanca tu je. Ja to asi cez týždeň skúsim. Teraz som si tam vytvoril účet. Musím to reálne vyskúšať, lebo nikto ste mi to nevysvetlil, ako je možné, že Vás zaujíma zmena názvu účtu, keď tú zložku máte synchronizovanú. Teda by ste ju mali mať všetci na svojom PC pod svojim účtom. Keď to budem mať sprevádzkované (musím si ešte raz prečítať celé vlákno) ozvem sa.

Tieto 2 pokusy Vám prejdú?
Sub pokus1()
MsgBox Range("Tabulka1[příjmení, jméno]").Address
End Sub
Sub pokus2()
MsgBox Range("Tabulka1[" & Worksheets("DATABAZE ZAMESTNANCU").Range("B1").Value2 & "]").Address
End Sub

Enterprise verziu k dispozícii nemám. Každopádne chýba mi odpoveď a) aj text chyby (screenshot) c).

Pre skok na bunku aj so scrolovaním nahradiť daný riadok za tento
Application.Goto Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False), True

a) Spúšťate to v tej mojej prílohe alebo vo Vašej ?
b) Verzia Office (rok, jazyk, 32/64 bit) ?
c) A ešte tú chybu, čo to hodí uveďte.

Pretože Office 2019 x64 SK Pro - bez problémov.

API, 1. odkaz cez Google, odskúšal som na E2019x64 Pro SK:
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const kCapital = 20
Private Const kNumlock = 144

Public Function CapsLock() As Boolean
CapsLock = KeyState(kCapital)
End Function

Public Function NumLock() As Boolean
NumLock = KeyState(kNumlock)
End Function

Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function

Sub pokus()
MsgBox "CL : " & CapsLock & vbNewLine & _
"NL : " & NumLock
End Sub
EDIT: Jaj aha, Vy to chcete nastaviť, nielen prečítať...

To Vážne? Akú chybu to napíše? To si myslíte, že som jasnovidec? Áno som! A stavím sa, že tam nemáte to, čo popisujete, že tam máte. Teda, že stĺpec v Tabuľke (nie tabuľke) sa volá "příjmení, jméno".

Šmarjá ... čo znamená "Nefunguje" ???

"Zdrojové formáty jsou různé" - ale veď jasné, veď preto to riešime univerzálne, a nie napevno.

"nějaké hodnoty v buňkách mimo rámec řádků" - áno správna dedukcia, riešenie je jednoduché.

Chýba mi od Vás odpoveď na to, čo sa pýtam.
Sub FormatVstup()
MsgBox wsImport.Range("B2").NumberFormat
End Sub
Vložíte data do listu Import, a spustíte toto makro FormatVstup (samozrjeme s adresou tej bunky, ktorá robí problém s dátumom). Aký je to formát?

Obdobu predchádzajúceho makra
Sub FormatVystup()
MsgBox ActiveWorkbook.ActiveSheet.Range("B2").NumberFormat
End Sub
spustite po otvorení hotového súboru v ktorom je ten údaj uložený (ten problematický), so správnou adresou, ktorá naň ukazuje. Odpoveď je?

Tieto 2 makrá (FormatVstup, FormatVystup) spustite a referujte na tom mojom testovacom súbore a mojich testovacích dátach a výsledku. A potom na svojom súbore a svojich testovacích dátach a výsledku. Chcem všetky 4 odpovede.

Predpokladám konzistentné formáty pre celý stĺpec. Opakujem, čo som písal, lebo nečítate a/alebo nereagujete. To, aký bude bunkám nastavený formát určujem podľa 1. dátovej bunky pod hlavičkou ! Predpokladám, že nie sú dáta pod sebou takto:
číslo
text
dátum
text čo nie je dátum
desatinné číslo
text
...
ale že sú pod sebou takto:
číslo
číslo
číslo
...
ďalší stĺpec
text čo nie je dátum
text čo nie je dátum
text čo nie je dátum
...
ďalší
dátum
dátum
dátum
...
Čakám odpoveď, na všetky otázky.

Vami popisovaný problém s prevodom na dátum totiž nedokážem navodiť. Niečo nerobíte alebo neuvádzate správne.

Pred
.Protect ...
dajte
Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse