Dobrý den,
potřebuji poradit s funkcí vyhledávání barevného textu. Ze souboru (X), ve kterém jsou některé řádky červeně potřebuji tyto převést do jiného souboru(Y). Musí být propojeny, neboť v původním souboru (X) se bude barva řádku měnit a v souboru Y mají být jen červené z X.
Děkuji
Sára
Výběr podle barvy textu
Tak to se bude muset řešit asi ve VBA. Doporučím ty jednu e-mailovou konferenci, kde jsou ty největší odborníci přes Excel:
http://www.pandora.cz/conference/excel
http://www.pandora.cz/conference/excel
Trochu pozdě, ale snad to bude k něčemu. Takže tady je makro, které udělá přesně to co chceš.
Na začátku si vytvoří nový sešit a v tom původním prochází buňky od první buňky textu (v tomto případě A1), až dokud nenarazí na prázdnou buňku. Pokud při procházení narazí na červený text, tak celý příslušný řádek zkopíruje do nového souboru.
Kód: Vybrat vše
Sub Prenos()
Dim Cil As Workbook, Zdroj As Workbook
Dim Bunka As Range
Set Zdroj = ActiveWorkbook
Set Cil = Workbooks.Add
Set Bunka = Cil.Sheets(1).Range("A1")
Zdroj.Activate
Range("A1").Select 'první buňka textu - nutno nastavit podle skutečné tabulky
Do
If ActiveCell.Font.ColorIndex = 3 Then
ActiveCell.EntireRow.Copy
Bunka.PasteSpecial
Set Bunka = Bunka.Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Activate
Loop Until ActiveCell.Value = ""
Application.CutCopyMode = False
Cil.Activate
Sheets(1).Range("A1").Select
End Sub
Na začátku si vytvoří nový sešit a v tom původním prochází buňky od první buňky textu (v tomto případě A1), až dokud nenarazí na prázdnou buňku. Pokud při procházení narazí na červený text, tak celý příslušný řádek zkopíruje do nového souboru.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 678
-
od ITCrowd
Zobrazit poslední příspěvek
01 úno 2024 08:20
-
-
Problém s videem (rozsypané barvy) Příloha(y)
od doudinin » 28 srp 2023 17:03 » v Multimédia (filmy, hudba, CDs/DVDs) - 6
- 1966
-
od doudinin
Zobrazit poslední příspěvek
28 srp 2023 20:37
-
-
- 3
- 1753
-
od BigSandy
Zobrazit poslední příspěvek
26 kvě 2023 09:49
-
-
Ilustrator 2020 - problém textu v křivce Příloha(y)
od showpayne » 13 srp 2023 17:50 » v Design a grafické editory - 4
- 2201
-
od Grander
Zobrazit poslední příspěvek
14 srp 2023 14:44
-
-
-
Libre Office Calc - Divné chování při kopírování textu Příloha(y)
od EZumrova » 02 dub 2024 08:12 » v Kancelářské balíky - 14
- 2164
-
od kecalek
Zobrazit poslední příspěvek
05 dub 2024 19:11
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů