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

Příspěvky uživatele

Problém nebude urobiť úpravu, ale problém je pochopiť logiku, podľa ktorej ju urobiť. Nerozumiem, ako sa medzi čísla dostane textová hodnota s bodkou aj čiarkou a 7 medzerami na začiatku. Ostatné okolo sú čísla.

Vy ste to tam manuálne nakopíroval z nejakého TXT/CSV súboru exportovaného z nejakého systému? To by bolo najlepšie dodať práve ten TXT/CSV súbor, a import si ošetríme.

Ak to nie je kopírované z TXT/CSV, tak ako vznikne taká bodka? Veď oddeľovače sú súčasťou zobrazeného formátu, nie hodnoty v bunke. To ste tam manuálne napísal s bodkou? To sa mi nechce veriť, pže je tam 7 medzier.

V ktorých všetkých stĺpcoch sa môžu nachádzať takéto pseudočísla?

Niekde vzniká u Vás krok, ktorý ruší potom logiku spracovania dát.

Odhliadnuc od toho odkiaľ som opísal hodnotu 66,223. Malo by v L,N,O z nej vzniknúť číslo 67? Aj zobrazených 67 aj počítaných 67? Ak iba zobrazených, a počítaných má byť stále 66,223, tak to myslím formátom bunky nejde zaokrúhliť hore.

Doplňujúce otázky:
1. Chcete mať najnovší riadok hore alebo dole?
2. E:H musíte mať z nejakého dôvodu zlúčené? Nestačí iba 1 stĺpec E, ktorý bude širší?
3. Súčty v K4:M4 chcete robiť zmenou hodnoty v nich makrom, alebo vzorcom v nich?
4. Akú máte verziu Excelu? Tá tabuľka by bola vhodná aj ako Tabuľka (objekt Tabuľka - od Excel 2007) ale tá nemôže mať zlúčené bunky, bod 2.

EDIT:
Príklad, 2 makrá, jedno vkladá hore druhé dole, použitý objekt Tabuľka, súčet vzorcom.

Priložte nejakú prílohu. Ak je to príloha XLSM, musíte ju najskôr zabaliť do ZIP/RAR.

Vy ten zoznam rizikovostí máte? Inak je plný duplí.

Štandardizujte si zápis rizikovosti. Raz oddelené čiarkou, potom čiarkou s medzerou a potom bodkou s medzerou.

Akú máte verziu Office?

A ako chcete previesť tento text " 1.402,000" v K11, ktorý tam máte, na číslo, bez vynechania bodky?

Myslíte skutočne zaokrúhliť nahor 66,233 --> 67 zobrazené aj počítané?

Akú jazykovú mutáciu Excelu máte?

ak sa Vám nechce vypisovať vzorce, tak do F4 toto, a roztiahnuť:
=OFFSET($A$23;ROW(A1);COLUMN(A1)-1)
=POSUN($A$23;ŘÁDEK(A1);SLOUPEC(A1)-1)
alebo použite
=OFFSET($A$23;1;0)
=OFFSET($A$23;1;1)
...
=POSUN($A$23;1;0)
=POSUN($A$23;1;1)
...
alebo
=INDEX(A:A;24)
=INDEX(B:B;24)
...
alebo
=INDIRECT("A24")
=NEPŘÍMÝ.ODKAZ("A24")
...

Tak napríklad takýto maticový vzorec???
=IF(SUM(COUNTIF(A2;"*"&$B$2:$B$4&"*"))=0;"";INDEX(B:B;MAX(IF(COUNTIF(A2;"*"&$B$2:$B$4&"*");ROW($B$2:$B$4);FALSE))))
=KDYŽ(SUMA(COUNTIF(A2;"*"&$B$2:$B$4&"*"))=0;"";INDEX(B:B;MAX(KDYŽ(COUNTIF(A2;"*"&$B$2:$B$4&"*");ŘÁDEK($B$2:$B$4);NEPRAVDA))))

EDIT:
Tak ma napadol podstatne jednoduchší obyč. vzorec:
=IFERROR(LOOKUP(2;1/(COUNTIF(A2;"*"&$B$2:$B$4&"*")>0);$B$2:$B$4);"")
=IFERROR(VYHLEDAT(2;1/(COUNTIF(A2;"*"&$B$2:$B$4&"*")>0);$B$2:$B$4);"")

Získať s pomocou dolovacích vzorcov celý zoznam, nie je problém:
Sub Najdi_V_SuboreX()
Dim Zoznam(), CestaZoznam As String, SuborZoznam As String, ListZoznam As String, Vzorec As String

CestaZoznam = ThisWorkbook.Path & "\"
SuborZoznam = "JedenZoznam.xlsm"
ListZoznam = "List3"

Vzorec = "'" & CestaZoznam & "[" & SuborZoznam & "]" & ListZoznam & "'!"

wsTMP.UsedRange.ClearContents
With wsTMP.Range("A1")
.Formula = "=COUNTA(" & Vzorec & "$B:$B)"
With .Resize(.Value2 - 1, 2)
.Formula = "=" & Vzorec & "B2"
Zoznam = .Value2
.Value2 = Zoznam 'v prípade ak tam majú hodnoty zostať
'.ClearContents 'v prípade ak sa majú zmazať, a výsledky nebudú ťahané vzorcami v bunkách Hľadaj!G:G
End With
End With

'ďalej sa dá pracovať už aj s poľom "Zoznam" - bunky v makre nebude treba
End Sub

Príklad, pre nájdenie 1 hodnoty v zatvorenom súbore. Princíp, zložíte si vzorec s odkazom:
Sub Najdi_V_Subore1()
Dim Co As Variant, CestaZoznam As String, SuborZoznam As String, ListZoznam As String, Vzorec As String

CestaZoznam = ThisWorkbook.Path & "\"
SuborZoznam = "JedenZoznam.xlsm"
ListZoznam = "List3"

Vzorec = "'" & CestaZoznam & "[" & SuborZoznam & "]" & ListZoznam & "'!"

Co = wsHladaj.Range("F1").Value2
With wsHladaj.Range("G1")
.Formula = "=COUNTA(" & Vzorec & "$B:$B)"
.Formula = "=VLOOKUP(" & Co & "," & Vzorec & "$B$2:$C$" & .Value2 & ",2,FALSE)"
.Value2 = .Value2
End With
End Sub

Takže takto vyzerá zdroj - ten zoznam. A Vy teraz v iných zošitoch potrebujete zistiť podľa čísla bytu meno.

1. Kde je tento zoznam uložený? V rovnakej zložke ako tie iné súbory, z ktorých budete k zoznamu pristupovať? V inej zložke, ale na pevne danom mieste? Na variabilnom mieste (+info ako zistíme jeho adresu)?

2. Koľko krát potrebujete k súboru so zoznamom pristupovať? Tá premenná "ria" je z cyklu alebo nájdený riadok?

3. Ten zoznam je nutné uchovať v tých iných súboroch?

4. Nestačí do tých iných súborov dať iba odkazy vzorcom na zoznam v pomocnom skrytom liste, a použiť aj klasický VLOOKUP v cieľovej bunke (bez makra)?

Ak je príloha XLSM, musíte ju zabaliť do ZIP/RAR. Max veľkosť okolo 300 KB.
Inak prečítal som si ten Váš popis ešte raz. Vy máte pevne daný súbor so zoznamom, pevne daný list aj oblasť, všetko uložené v pevnej zložke? Tak si urobte iba linky v bunkách v tých cieľových súboroch. Alebo v nich nemôžu byť všetky tieto dáta?

Isteže, dajú sa získať dáta bez otvorenia. Ale je potrebné priložiť anonymizované prílohy. Je potrebné totiž konkrétne vedieť veľa vecí, názov listu, kde čo je, aký typ dát (zdroj tabuľka či Tabuľka), aplikácie filtrov (inak sa zisťuje posledný zaplnený riadok), odsadenie tabuľky od začiatku, sú iné dáta pod ňou (ovplyvňuje výpočet oblasti, je potrebné vedieť identifikátor začiatku a konca), dokonca je možné použiť aj PQ dotaz na ťahanie dát z iného súboru...

To takto z brucha nejde.

+- trolejbus

-s automatickou aktualizáciou zoznamu listov okrem výnimiek zadaných v makre
-ošetrenie neexistencie listu
-pri aktualizácii uchováva predošlé voľby

Vyberte si z toho čo chcete.

Prvý nástrel. Na viac nemám čas. Možno by bolo dobré, aby na to PQ mrkol nejaký PQ fachman, páč mi to PQ ide strašne pomaly, niečo tam nerobím košér ...
Makro zatiaľ nekontroluje existenciu listu, čo sa dá cez ExecuteExcel4Macro alebo ADO urobiť tiež bez otvárania súboru. Možno keď bude čas.

Ak máte Office 2019, 2021, 365, tak stačí funkcia MAXIFS
=MAXIFS(kalendář!A1:NA1;kalendář!A2:NA2;">"&0)
Ak starší tak
=LOOKUP(2;1/(kalendář!A2:NA2>0);kalendář!A1:NA1)
=VYHLEDAT(2;1/(kalendář!A2:NA2>0);kalendář!A1:NA1)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse