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

MS Excel

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

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.

Jméno
Kontrola
Text
	Ukázka

---

r13(16.9.2021 10:25)#051211

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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse