Stránka 1 z 1
Výběr podle barvy textu
Napsal: 21 srp 2007 15:17
od Sára
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
Napsal: 21 srp 2007 16:23
od X
Z jakého programu?
Napsal: 22 srp 2007 11:20
od Sára
Je to Excel.
Napsal: 22 srp 2007 17:00
od X
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
Napsal: 15 zář 2007 17:06
od mikel
Trochu pozdě, ale snad to bude k něčemu. Takže tady je makro, které udělá přesně to co chceš.
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.