Ahoj,
vyzkoušej za podmínku "else" vložit "exit sub"

Ahoj, snad už chápu: všechny hodnoty ze sloupce A porovnat s hodnotami ve sloupci E, pokud neni nalezena shoda (duplicita), pak smazat. To samé provést opačně (všechny hodnoty ze sloupce E porovnat s hodnotami ve sloupci A. Přikládám soubor.

Ahoj, ta procedura jenom obarvovala (na modro?) řádky ve sloupci A, které by se měly smazat. Sub PorovnejDatum() Dim Oblast As Range Dim i As Double 'Pokud jsou hodnoty ve sloupcich A a E ruzne, smaze se cely radek Application.ScreenUpdating = False Set Oblast = ActiveWorkbook.Worksheets(1).UsedRang...

Ahoj, chápu to dobře tak, že se má smazat celý řádek, pokud jsou datumy ve sloupcích A a E různé? Snad něco takového? Sub PorovnejDatum() Dim Oblast As Range Dim i As Double Set Oblast = ActiveWorkbook.Worksheets(1).UsedRange With Oblast For i = Oblast.Rows.Count To 1 Step -1 If .Rows(i).Cells(1).Va...

Zdravím,
omlouvám se za odmlku a posílám makro na odstranění duplicit ve dvou sloupcích.

Zdravím,
zajímalo by mě, jestli chcete odstranit duplicity přímo v obou sloupcích nebo vytvořit vedle popř. na jiném listu opět oba sloupce bez duplicit?

Zdravím, asi bych použil něco podobného s využitím UsedRange: Sub HideColumns() Dim Oblast As Range Dim i As Integer Set Oblast = ActiveSheet.UsedRange For i = 1 To Oblast.Columns.Count If Application.WorksheetFunction.CountA(Oblast.Columns(i)) = 0 Then Oblast.Columns(i).EntireColumn.Hidden = True E...

Moje omluva mikeli a dík za příspěvek. 2007 v tom nejsou, jde o Office 2003 SP2. I když jsem problém nějak obešel, zkouším zjistit, proč se to stalo ( čeho se vyvarovat do budoucna), ale bez větších úspěchů. Pokud budeš mít zájem, ten sešit ti pošlu. Povedlo se jenom ten problémový řádek deletnout a...

Díky mikeli, ale tak jednoduché to nebylo. Ten řádek 39 nešel zobrazit ani přes Excel ani přes VBA. Když jsem si ale prohlídl ten sešit v Listeru (Excellence), tak byl vidět. Nakonec mi nezbylo než zkopírovat využívané sloupce na jiný list a ejhle byl tam.

Na listu mám zobrazeno jenom 40 řádků (ostatní jsou skryté - rows("41:65536").hidden=true. Na posledním řádku tabulky mám nějaké součty. Bohužel se mi stalo, že řádek se nějak také skryl a už nejde zobrazit, žádné nastavení properties .hidden=false nefunguje, ale data v tom řádku jsou. Kdy...