Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5   další »

elninoslov napsal/a:

To myslíte asi PowerQuery. Tak si doinštalujte PQ pre Office 2013, lebo E2013 ho ešte natívne neobsahuje. Už sa síce nebude aktualizovať, ale neva. Pribudne Vám záložka POWER QUERY - tam From File - From Folder - ...


Děkuji moc za radu

Dobrý den, je prosím nějaké řešení na datové připojení na složku v Excel 2013? V Office 365 to jde jednoduše ale potřebuji to samé vytvořit v Excel 2013, kde mi chybí možnost výběru tohoto připojení. Děkuji moc za případnou pomoc/radu

zde zasílám vše potřebné. Děkuji

Ahoj všem, prosím o radu. V hlavním sešitu AMU1 v buňce Q1 měním z rozevíracího seznamu měsíce. Na základě změny měsíce potřebuji aby se mi měnili data v buňce N2:N20 která se načítají ze sešitů Novák Pavel a Jana (pomocný F2). Potřebuji, aby se mi v hlavním sešitu AMU1 automaticky po otevření tyto údaje aktualizovali. Bohužel mi to funguje pouze když otevřu zdrojová data. Předem moc díky za rady

Děkuji za pomoc. Tabulka je zamčená a někteří uživatelé mají oprávnění upravovat určité sloupce, kde potřebují občas i řadit dle abecedy nebo data. Kód vyzkouším. Děkuji moc

elninoslov napsal/a:

V tomto súbore "ZoradenieLog.xlsm" som pridal 2 makrá na Log.
makro VytvorLog
makro XLog
a na začiatku premennú
Dim Subor As String
V tomto mojom skúšobnom súbore to teda je nastavené, ale chcem od Vás:
-vytvorte si kópiu toho Vášho súboru
-otvorte ju, a skontrolujte či 1 dátový riadok Tabuliek neobsahuje citlivé info (RČ, meno, mail, telefón, adresa). Ostatné riadky okrem hlavičky a 1. riadku Tabuliek, nebudú do logu zahrnuté, ani iné dáta mimo Tabuliek (objekt Tabuľka). Tieto citlivé dáta zmeňte, ale tak, aby presne zodpovedali forme predchádzajúcich, veľké malé písmená, formát číslo, text, dĺžka, počet medzier (s medzerami vôbec nehýbte, nemažte, neprepisujte, iba ich obíďte kurzorom, teoreticky môže byť chyba aj v nesprávnych medzerách Alt+0160 vs Alt+032), nemeňte vzorce, neredukujte dáta, ani nevymazávajte celé bunky, riadky, stĺpce.
-vložte na začiatok do modulu makier tú deklaráciu premennej
Dim Subor As String
a na koniec modulu makier vložte tie 2 makrá VytvorLog a XLog
-takže máte 2 súbory s tými novými makrami (VytvorLog, XLog), teda súbor "ZoradenieLog.xlsm" a kópiu Vášho súboru.
-v oboch súboroch spustite makro "VytvorLog", pričom dajte pozor, z ktorého modulu ktorého súboru makro spúšťate. Nepomýlite sa, ak bude otvorený vždy iba 1 súbor.
-spustenie je nevyhnutné urobiť na oboch PC, teda aj na tom s Office pre domácnosti, kde to šlo, aj na tom s Office Enterprise.
-pri každom súbore vznikne textový log tam, kde sa súbor nachádzal, a to v takomto tvare:
Log_13.02.2023_09_17_24_Zoradenie.xlsm.txt
-takže dokopy budú 4 txt logy.
-tieto logy, si ešte pozrite, či v nich nie sú citlivé dáta, a pripadne opakujte od kroku s úpravou dát v 1. dátovom riadku
-tie 2 logy, ktoré sú z Enterprise, ešte označte na začiatku názvu "E_...názov súboru"
-tieto 4 logy mi pošlite, či už ich spolu zabalíte, alebo pošlete v 4 postoch, alebo mi ich hoďte na mail (mám ho v info v profile).Příloha: 54444_zoradenielog.zip (28kB, staženo 1x)


Dobrý den, děkuji za pomoc. Dnes když bude čas, tak vám pošlu. Nyní bych vás chtěl poprosit ještě o drobné doplnění jiného makra. Makro níže bych potřeboval doplnit o seřazení sloupečku (příjmení, jméno)= abecedně
Moc děkuji
Petr

Sub AMU_1()
'
' AMU_1 Makro
'

'
Worksheets("DATABAZE ZAMESTNANCU").Unprotect Password:="pekarna"
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=4, Criteria1:= _
Array("T1 AMU1", "T2 AMU1", "T3 AMU1", "T4 AMU1"), Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-416
Worksheets("DATABAZE ZAMESTNANCU").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, Password:="pekarna"
End Sub

elninoslov napsal/a:

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


Nefunguje ani jeden....

Ontik napsal/a:

elninoslov napsal/a: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

přílohou posílám PrtScr chyby
Zkoušel jsem to v té vaší verzi i v té mé.


Ještě ta chyba, v příloze

elninoslov napsal/a:

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


přílohou posílám PrtScr chyby
Zkoušel jsem to v té vaší verzi i v té mé.

elninoslov napsal/a:

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.


Zkoušel jsem to ještě na svém soukromé Ntb, Také Office 365 ale pro jednotlivce a tak to funguje ale hodí mi to jen kurzor na poslední vyplněnou buňku ale obrazovka se neposune, ta zůstává na místě, kde jsem zkončil.

elninoslov napsal/a:

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.


Jedu na Office 365 enterprise x86

elninoslov napsal/a:

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".Příloha: 54415_zoradenie.zip (22kB, staženo 1x)

Myslím, že mám vše správně. zasílám PrtScr

elninoslov napsal/a:

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

před .Protect ... jsem doplnil o to co jste mi posílal a při aktivaci mi vyskočí chybová hláška a zastaví se to na tom co jsem doplňoval.

Sub VŠE() ' VŠE Makro
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

With Worksheets("DATABAZE ZAMESTNANCU")
.Unprotect Password:="pekarna"

With .ListObjects("Tabulka1")
If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData

With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabulka1[[#All],[Nástup]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

Range("Tabulka1[príjmení, jméno]").Find(What:="*", LookIn:=xlRangeValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, Password:="pekarna"
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

elninoslov napsal/a:

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

Asi dělám něco špatně. Nefunguje...
Děkuji

elninoslov napsal/a:

SkústePříloha: 54402_zoradenie.zip (20kB, staženo 5x)

Ještě mám prosbu. Šlo by prosím makro poupravit, abych se vždy po spuštění tohoto makra dostal na poslední buňku ve sloupci B:B (příjmení, jméno)
Děkuji


Strana:  1 2 3 4 5   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09