Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Excel - seznam různých hodnot

Zdravím,

v buňkách D5:AH5 (a dále pak v každém jedenáctém řádku - D16:AH16, atd. až do řádku 544) mám různé hodnoty "střediska" (mohou se i opakovat). Potřeboval bych na jiný list vypsat seznam použitých středisek bez duplicit. Nějaký návrh na makro? Zkouším to pomocí vzorců, ale je to extrémně zdlouhavé.

Děkuji za rady

Předmět Autor Datum
To jsem zvědav, kdo přijde dřív s řešením: jestli Siki nebo Robert... ]:) nový
host 07.11.2018 08:16
host
Robert pač Siki valí do rachoty. Já bych se na to dostal až o víkendu. Ale za mě málo info. nový
Siki83 07.11.2018 08:40
Siki83
3-[:-D:beer: nový
robert13 07.11.2018 13:10
robert13
Středisko je nějak identifikovatelné? Nějaká jedinečná hodnota v nějakém sloupci? nový
L-Core 07.11.2018 10:26
L-Core
Středisek jsou stovky a jejich počet se v čase mění. Může se jednat o číslo, ale i písmena. nový
qdj 07.11.2018 11:27
qdj
Umiestni nasledujúci kód do štandardného modulu. Makro spúšťaj na hárku, kde máš "zdroj" ( t.j. údaj… nový
robert13 07.11.2018 12:49
robert13
diky, zitra vyzkousim nový
qdj 07.11.2018 20:15
qdj
Teda smekám klobouk a gratuluji k plně funkční křišťálové kouli. :-) Z toho popisu mám různé hodnoty… nový
Siki83 08.11.2018 00:05
Siki83
Samozrejme, že info je nedostatočné, tak som dal riešenie "naslepo". Ak má vo všetkých bunkách stred… nový
robert13 08.11.2018 07:26
robert13
Díky moc, funguje přesně tak, jak jsem potřeboval :beer: nový
qdj 08.11.2018 10:29
qdj
Siki, Ty tajnostkár! Tak Ty mu to vyriešiš na tajňáša a mňa tu necháš sa s tým trápiť? :-D P.S. Kľú… nový
robert13 08.11.2018 11:35
robert13
Pardooon, reagoval jsem na tvé řešení, nevím proč to hodilo jako odpověď Sikimu. Jsem se překliknul. nový
qdj 08.11.2018 11:38
qdj
:-D Uff, to mi odľahlo :-D nový
robert13 08.11.2018 11:39
robert13
:-D:-D:-D Ale lek si se co? :-p PS: Klíče se našly :beer: poslední
Siki83 08.11.2018 12:33
Siki83
Pokud chceš jen seznam jedinečných středisek bez duplicit, pak stačí střediska zkopírovat na nový li… nový
Jan Fiala 07.11.2018 13:34
Jan Fiala
no vidis, to menenapadlo:) vytvorim si tedy makro pro kopirovani vsech bunek se stredisky do slkupce… nový
qdj 07.11.2018 20:18
qdj

Umiestni nasledujúci kód do štandardného modulu.
Makro spúšťaj na hárku, kde máš "zdroj" ( t.j. údaje v stĺpcoch D - AH, riadkoch 5 - 544)

Sub SumStredisk()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    
    NazZdroja = ActiveSheet.Name
    Sheets("Střediska").Delete
    Sheets.Add
    ActiveSheet.Name = "Střediska"
    Sheets("Střediska").Cells(1, 1) = "Seznam středisk"
    
    k = 2
    For i = 5 To 544 Step 11
        For j = 4 To 34
            If Sheets(NazZdroja).Cells(i, j) = "" Then GoTo dalej
            Sheets("Střediska").Cells(k, 1) = Sheets(NazZdroja).Cells(i, j)
            k = k + 1
dalej:
        Next j
    Next i
    
    With Sheets("Střediska").Columns("A:A")
        .RemoveDuplicates Columns:=1, Header:=xlYes
        .EntireColumn.AutoFit
        .Range("A1").Select
    End With

    MsgBox "Počet středisk: " & Sheets("Střediska").Range("A" & Sheets("Střediska").Rows.Count).End(xlUp).Row - 1, vbInformation, "Zpracování ukončené"

End Sub

Pozor, opätovným spustením sa "sumarizujúci" hárok maže a vytvára sa nanovo!
Ukážka priložená...

Teda smekám klobouk a gratuluji k plně funkční křišťálové kouli. :-)
Z toho popisu mám různé hodnoty "střediska" sem tak nějak nepobral co to má být za hodnoty, případně kde jsou umístěné.
Ani na dotaz co napsal L-Core nebylo zcela zodpovězeno. Já to pobral tak, že co řádek to jedno středisko + další balast ve sloupcích.

PS: když už máš ty věstecký schopnosti, nevíš kde mám klíčky od auta? :-D

Samozrejme, že info je nedostatočné, tak som dal riešenie "naslepo".
Ak má vo všetkých bunkách strediská, tak mu to bude robiť to, čo chce (aj keď chce riešiť znova to, čo už má vyriešené a to tým istým princípom :-D), ak nie, tak holt nedal dostatočný popis...
.
A že kde máš kľúče od auta?
.
To máš ako v tom vtipe:
Synáčik prišiel s päťkou zo školy a otec sa ho pýta:
-Za čo si to dostal?
-Nevedel som, kde sú Pyreneje.
-Dobre Ti tak, nabudúce si zapamätáš, čo kde odložíš!
.
:beer:

Zpět do poradny Odpovědět na původní otázku Nahoru