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

Příspěvky uživatele

Sranda je, že nemám ani páru o tom, čo sa tam počíta a čo hrajú, ja som pozrel iba na kód

Skupina pomenovaných prepínačov, a je to:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Poz As Byte
On Error Resume Next
Poz = WorksheetFunction.Match(Selection.Cells(1).Interior.ColorIndex, Array(-4142, 33, 3, 6, 47, 45), 0)
Cells(1, 1).Value = IIf(Poz = 0, Empty, Poz)
End Sub

Sub ZmenBarvu()
Selection.Interior.ColorIndex = Array(-4142, 33, 3, 6, 47, 45)(CInt(Right$(ActiveSheet.Shapes(Application.Caller).Name, 1)) - 1)
End Sub

Nemáte to nijako ošetrené na chyby. Trochu som Vám to upravil.

A to máte na mysli nejaký druh výberového zoznamu v bunke ? Či vo formulári VBA ? Či myslíte KT ? Bodla by príloha...

Upravená pôvodná procedúra, teraz s názvom Odkryť_riadky2(). Ale ako som písal, radšej použite procedúru Odkryť_riadky() a tú pôvodnú zmažte, alebo iba poštudujte ak chcete. Je jednoduchá, používa skrytý pomocný stĺpec AM, kde sú jednoduché vzorce, pre určenie skrývaných riadkov.
Ak Vám pomocný stĺpec AM, nevyhovuje, tak si zmažte teda tú krátku novú, premenujte tú starú dlhú na Odkryť_riadky() a vymažte stĺpec AM..

Prepočítavanie listu máte zapnuté ? Priložte súbor (musíte sa predtým zaregistrovať).

S tým plne súhlasím. Mepexg, nechce sa Vám, čo ? Ale mohol by ste

Keď si lúskam niektoré Vaše riešenia po riadkoch, tak im väčšinou rozumiem, čo robia tie kroky, ale nechápem prečo je to tak či onak urobené. A žiaľ v PQ ani neviem, že to tak urobiť ide, ako ste to tam nasúkal.

Človek si už dohľadá ako nejakú fnc použiť, ale prísť na to, že existuje ... a na tú logiku postupností k dosiahnutiu výsledku ... na to si budem dlho zvykať.

Tiež si myslím, že ste tu asi jediný čo to ovláda poriadne. Žiadne vlezdoprdelkovanie - fakt.

Vám takéto exportované CSV robia niekde problém pri importe niekam ? Lebo ak nie, a robí to len na tej stránke csvlint.io tak neva, nie ? Mne to Win zobrazí korektne ten CSV aj pri importe do Excelu, aj v Notepade, NotePad++, aj pri importe vo Worde. Pri importoch si nastavím oddeľovač a UTF-8.

Hlavne uveďte, kde Vám už xlnc (alebo niekto iný) odpovedal.

EDIT: Ak to preženiete cez GoogleSheets, tak to aspoň neškrieka chybu "Unexpected whitespace" :), ale kódovanie to nemení.

Keby išlo o výber adresára, súborov, listov, a vytvorenie takého zoznamu, tak to nieje problém makrom cez formulár. Na pridávanie listov funguje aj tlačítko aj Enter, na mazanie tlačítko aj DEL. Len nedokážem urobiť/prerobiť také parádne dotazy ako mepexg :(
Tak len možno pre inšpiráciu...

Máte pravdu. Skúšal som odkaz urobiť cez OFFSET, aj INDEX, aj INDIRECT. Vždy rovnaký výsledok - ActiveX ComboBox v E2016 dáva úplné hovadiny. Buď nereaguje na zmenu vôbec, alebo hodnoty dáva dvojmo tak, že najskôr idú ako majú všetky, potom za tým pokračuje zopár rovnakých niekde zo stredu, a za tým ešte pridá ďalšie od začiatku apod. Alebo pri dupľovaní ešte pridáva j medzery, ktoré sa ale pod kurzorom menia. To bude snáď nejaký bug E2016 alebo ActiveX ComboBoxu.
Normálny ComboBox funguje s tým zoznamom OK, ale tam sa nedá vyhľadávať. Neviem čo s tým, možno niekto poradí.

Takto, ak ten počet buniek je v každom z tých 3 stĺpcov rovnaký. Ak má každý inú výšku, dá sa definovaný zoznam upraviť.

1. Tie zdrojové súbory budú všetky v jednej zložke ?
2. Výber súborov má prebiehať v liste Parameters ? Priamym zapisovaním cesty do buniek ? Ak je 1. Áno, tak sa dá urobiť výberový zoznam, ak je Nie, tak dvojklikom na bunky výberové okno pre súbor.
3. Ak môže byť viac listov z jedného súboru potom musí byť viac riadkov s rovnakým názvom súboru v Parameters.
4. Musí tam byť ešte niekde uložený zoznam listov, pre každý zvolený zošit. Navrhujem list Settings, kde sa ku každému menu súboru pomocou ADO (bez otvárania súboru) doplní zoznam listov, z ktorých bude potom výberovým zoznamom na výber.
5. Rozmiestnenie dát vo všetkých súboroch a všetkých listoch je rovnaké ? Teda napr. dáta začínajú od 2 riadku ?
6. Počet vyplnených dát je variabilný na listoch aj v súboroch? Ak Áno, dá sa použiť nejaký smerodajný stĺpec na spočítanie posledného riadku ?
7. Odkiaľ sa berie položka Firma ? To je divné, lebo z kódu vyplýva, že sa Firma vzťahuje k bunkám, ale z listu Parameters je zrejmé, že sa Firma vzťahuje k listom/súborom. To je v celom liste v stĺpci B tá istá firma ? Ak nie, nedáva to už vôbec zmysel. Rozseknite to viď. 9. a 10.
8. To stávajúce makro je riešené divne. Naozaj potrebujete kopírovať hodnoty aj formáty ? Nestačí náhodou hodnoty kopírovať do prednaformátovanej tabuľky ?
9. Priložte 1 zdrojový súbor (firemné dáta zmente za somariny), ponechajte rozumný počet dát, ale hlavne formáty, usporiadanie, vyplnenosť buniek, atď....
10. Priložte aj príklad požadovaného výsledku.

Už teraz som napísal viac než Vy, a to som ani čiarku nenakódil (a ani tým zatiaľ nedávam avízo, že sa na to dám, uvidím podľa odpovedí a zložitosti) :)

Toto makro Vám doplní Vami požadované PF do každej bunky označenej oblasti.
Sub SipkyPF()
Dim Bunka As Range, Adr As String, Lst As String

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With

With Selection
.FormatConditions.Delete
Lst = "='" & .Parent.Name & "'!"

For Each Bunka In .Cells
Adr = Lst & Bunka.Offset(-1, 0).Address
With Bunka.FormatConditions.AddIconSetCondition
.IconSet = ActiveWorkbook.IconSets(xl3Arrows)

.IconCriteria(1).Icon = xlIconRedDownArrow
With .IconCriteria(2)
.Type = xlConditionValueFormula
.Value = Adr
.Operator = 7
.Icon = xlIconRedDownArrow
End With

With .IconCriteria(3)
.Type = xlConditionValueFormula
.Value = Adr
.Operator = 5
.Icon = xlIconGreenUpArrow
End With

End With
Next Bunka

End With

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

Nechcem byť prostredníkom, lebo ten vždy dopadne zle, ale podľa popisu toto vyzerá skôr na nejaké to PowerQuerry, a na to je majster užívateľ Mepexg. Skúste ho osloviť cez Vzkaz

Já to asi chápem. Ide o to, že pri tomto druhu PF, nieje možné použiť relatívne adresovanie ("...zrušit ukotvení..."). Dokonca to nefachá ani ak sa použije Def.Name. Ak by to bola napevno daná oblasť, tak by tie PF išli asi jednorázovo vložiť do každej bunky makrom. Inak neviem, ale už min raz tu presne rovnaký problém bol.

OT: Ak na to existuje riešenie, tak by sa dalo asi použiť aj pri inom obdobnom obmedzení. Načítavanie obrázku, cez prepojenie, ktoré odkazuje na vzorec. Po pretiahnutí inam, vzorec vracia správne hodnoty, ale prepojenie na obrázok sa nemení.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse