Výběr podle barvy textu

[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

[Reklama]

[X]

Z jakého programu?

[Sára]

Je to Excel.

[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

[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.