< návrat zpět

MS Excel

Téma: kopie pouze změněného formátu rss

Zaslal/a bedha 14.9.2021 7:23

Dobrý den, prosím o radu. Mám několik sešitů a v každém jsem barevně označil některé buňky (vždy list1). Např.: sešit_1 - označeno B1 a C3; sešit_2 - označeno D2:D18; sešit3 - označeno A6 a B6:B9; atd. sešitů je více a buněk v každém sešitu taky označeno více.
Nyní bych potřeboval v jiném sešitu na jednom listě vidět všechny označené buňky.
Zkoušel jsem přes kopírování formátu, ale tím vždy přepíšu předchozí stav a nepodařilo se mi dohledat jak tomuto zabránit (přes vložit jinak). Pracuji s office 2019. Děkuji.

Zaslat odpověď >
r13(16.9.2021 10:25)#051211
avatar
A to akože chceš vo výslednom hárku vidieť zjednotenie množín označených buniek jednotlivých hodnotených zošitov alebo nebodaj aj informáciu, v ktorom zo zošitov je daná bunka označená? Čo potom v prípade, ak je konkrétna bunka označená vo viacerých zošitoch?citovat
bedha(16.9.2021 14:04)#051214
avatar
Informaci o zdroji (sešitu) nepotřebuji. V tomto případě mám buňky označeny všechny stejnou barvou. Pokud by tomu tak nebylo, pak by měla platit vždy ta barva z nejnovějšího souboru (sešit_3). Jde mi pouze o přenesení vybarvení buňky, zbytek obsahu není pro mě podstatný. Děkuji.citovat
r13(17.9.2021 10:06)#051219
avatar
Na inšpiráciu prikladám výpis makra, ktoré ti vyhodnotí prvé tri hárky a do štvrtého ti označí bunky, ktoré sú označené v prvých troch hárkoch (označenie = podfarbenie musí byť červenou farbou s indexom 255).
Pracuje v oblasti, ktorá je zjednotením tebou uvedených príkladov (A1:D20)
Ostatné (vyhodnocovanie zošitov a nie hárkov; farba podfarbenia; iný rozsah buniek) je už len nadstavba...
Makro:
Sub Oznacenie()
Application.ScreenUpdating = False
PocRiadkov = 20
PocStlpcov = 4
PocHarkov = 3

Range(Cells(1, 1), Cells(PocRiadkov, PocStlpcov)).Interior.Pattern = xlNone
For i = 1 To PocHarkov
For j = 1 To PocRiadkov
For k = 1 To PocStlpcov
If Sheets(i).Cells(j, k).Interior.Color = 255 Then Sheets(PocHarkov + 1).Cells(j, k).Interior.Color = 255
Next k
Next j
Next i
End Subcitovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje