Filtr a přepis dat

[erthos]

Ahoj, možná mám banální dotaz ale nevím jak ho vyřešit.

V případě, že mám tabulku, sloupec A o 1000 vyplněných řádcích (v každém z nich je bud hodnota "dům", "auto", "strom"). Jsou náhodně rozmístěna, tzn že může vypadat takto:

A
auto
dům
dům
strom
auto
strom
.atd


Potřebuji použít klasický Filtr, tzn že vyberu pouze hodnotu "auto". Výsledků bude 250. Ted ale nastává můj problém. Chci přepsat hodnotu "auto" na hodnotu "prolézačka", bohužel pokud použiji CTRL+C 250 položek hondoty "prolézačka" a CTRL+V na označené hodnoty "auto", změní se mi hodnoty i u položek které jsou skryté díky filtrování dat.

Vím že v tomto ilustračním případě by se to dalo řešit Najít + nahradit, nebo jiným způsobem, ale potřebuji vědět, jak dosáhnout toho, aby se mi propsalo oněch 250 položek pouze do hodnoty "auto" a ne i mezi hodnoty skryté filtrováním

Pokud by to nebylo jasné, pokusím se to přiblížit více.

Děkuji za odpovědi.

[Reklama]

[navstevnik]

Postup:
1. je aktivovan filtr, zobrazeny pouze radky obsahujici "auto" a hlavickovy radek
2. nekde mimo fitrovanou oblast je pouze jedna bunka obsahujici "prolézačka"
3. kopirovat ctrl+c tuto jedinou bunku
4. vybrat tazenim mysi v oblasti filtru vsechny (tedy viditelne) bunky obsahujici "auto"
5 klavesa F5, klik na tlacitko Jinak, v nabidce Vybrat zvolit Pouzeviditelne bunky, OK
6 vlozit ctrl+v, Esc

[erthos]

Super, to funguje pokud mám jednu kopírovanou informaci, co v případě, že mám těch hondot více?

např:

prolézačka1
prolézačka2
prolézačka3
prolézačka4
prolézačka5

a chci je nahradit za vyfiltrované
auto
auto
auto
auto
auto

?

[navstevnik]

No vymyslis si pekne.
Pokud nezalezi na tom ktere "auto" nahradit napr. "prolezacka5", muzes pouzit proceduru VBA, v tomto konkretnim pripade (v editoru VBA - Alt+F11 vloz do standardniho modulu, spust F5):

Kód: Vybrat vše

Option Explicit

Sub Nahradit()
  Dim Blk As Range, Cll As Range
  Dim Hledat, Nahradit, i As Long
  Hledat = "auto"
  Nahradit = "prolezacka"
  i = 1
  Set Blk = ActiveSheet.Range("a:a")
  For Each Cll In Blk.Cells
    If Cll.Value = Hledat Then
      Cll.Value = Nahradit & i
      i = i + 1
    End If
  Next Cll
End Sub

Pro jiny pripad patricne modifikuj.

[erthos]

Oki, vyzkouším a DĚKUJI:)