MS Excel - Kopírování celého řádku do nového listu na základě změny hodnoty v 1.buňce

Jediné, co mě napadá je vyřešit to absolutními a relativními odkazy...
Zkusil jsem to třeba takhle: http://www.edisk.cz/stahni/29130/Sesit1.xls_13.5KB .html
Problém je v tom, že na druhém listu zůstávaj prázdný řádky po těch, co na prvním listu nezačínají "x".
Ale třeba to pomůže

Díky moc za radu. To by určitě šlo, jen škoda, že je to takový těžkopádný. Jedná se o tabulku s asi tisícem řádků, ve výsledku to bude něco kolem 3 tisíc. Proto jsem se zajímal o makro. Stejně ale díky.

Jo, nu je to takový kostrbatý, ale nic jinýho mě nenapadlo :)

Díky. Mým cílem je "nekonečná tabulka," ve který by všechny záznamy označené "x" byly kopírovány do zvláštní tabulky. Tato tabulka by měla být v ideálním případě prázdný, jedná se o seznam nevyřízených věcí, který chci po vyřízení promazávat, a to pokud možno stejně rychle a jednoduše, jako byl vytvořený.

V tomto případě je možná zbytečné se zabývat kopírováním a použít pouze filtr na záznam "x".

Díky. Zdá se, že jsem vzorec nepochopil :)
To makro docela funguje, až na pár detailů. Pokud nepřidávám x postupně, kopíruje to pořád ten poslední řádek, kde jsem přeskočil. Jinak co se týče filtru na záznam "x", na to jsem zprvu nepomyslel, to jakžtakž funguje. S přimhouřením oka, s pár ústupkama, ale alespoň tak. Škoda, že nejde kopírovat filtrovaný mimo aktivní list. Pak by to bylo přesně to, co hledám. Ale i tak, funkci to prostě splní. Mockrát díky.

Kdyby přece existovalo něco, aby šlo filtrovaná data kopírovat ven, budu rád za každej tip, ale už to není nezbytný. Ještě jednou děkuju.
JB

Samozřejmě jde a je to jednoduché. Při použití "copy" a "pastespecial" se zkopírují pouze viditelné řádky. Upravte makro a je to :) Zrušit podmínku pro x a pak prostě zkopírovat vše co je vidět. Pro začátek doporučuji používat nahrávání maker, po úpravách je to použitelné a na tohle dostačující.

Zdravím
Pokud to řešit makrem samozřejmě to lze. Jednoduché řešení smazat celý list 2 a nakopírovat co je potřeba.
Třeba takhle:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim x As Integer
Dim y As Integer

If Target.Column <> 1 Then Exit Sub 'kontrola zda změna nastala v 1. sloupci

List2.Cells.ClearContents 'smazat celý list 2

x = List1.Cells(1, 1).End(xlDown).Row 'zjistí počet řádků na listu 1
y = 1

For i = 1 To x
 If Cells(i, 1) = "x" Then
   Range("A" & i & ":G" & i).Copy 'zkopírovat řádek po sloupec G
    List2.Cells(y, 1).PasteSpecial 'vložit na list2
     y = y + 1
 End If
Next

Cells(1, 1).Select

End Sub

Pokud ovšem bude záznamů hodně bude to pomalé (třeba i několik sekund) pak je třeba to vyřešit jednoznačnou identifikací záznamu (ID) a nekopírovat vše...

Pokud jsem dobře porozuměl kódu, tak při každé změně hodnoty v prvním sloupci se smaže celý list 2 a na první řádek se plivne ten řádek z listu 1, ve kterém se změnila buňka. Jestli ano, tak to není úplně přesně to, co hledám, těch řádků bych tam potřeboval víc, jak jsem psal v poslední odpovědí pro Kajdu.

Zkopíruje to všechny záznamy s "x", vyzkoušejte ho na pár záznamech. V případě, že je třeba zpracovat více záznamů, v řádech tisíců, chce to vyřešit jinak. Tak jak jsem psal, přes ID záznamu a zpracovávat pouze záznam který se změnil.

Mno, milý detektive...
V tom rozsahu a požadované funkcionalitě to není úkol pro tabulkový editor, ale pro databázi.

Excel ma tusim aj nejake filtre, ty vpodtstate len potrebujes filter na riadky pri ktorych prva bunka = x. Neviem k comu to potrebujes kopirovat do druheho listu, tipujem ze by ti dokonca stacil aj len zobrazovaci filter. Skus si zadat do google excel filtering alebo excel advanced filtering, apod...

Novej list je víceméně jen pro úplnost. Potřebuji oddělit několik různých fází řešení spousty úkonů co nejpřehledněji, pak pracovat s každou tabulkou výsledků zvlášť. Filtry v excelu na to určitě stačej, z dalších listů upouštím. Není to až tak podstatný. Už jsem to pořešil těma filtrama. Díky moc všem.