» Poradna » Windows (a jiné OS)

MS Excel 2007 makra

 |   |  Microsoft Windows 7 Firefox 31.0

Zdravím, mám následující prosbu. Každý měsíc dostávám tabulku v MS Excel, kterou je nutné upravovat, abych s ní mohla dál pracovat. Ráda bych vytvořila makro, které mi ji upraví do požadované podoby. Problém ale je, že ta tabulka má každý měsíc jiný počet řádků. Potřebovala bych, aby to makro umělo najít poslední záznam (k tomu stačí asi Ctrl+End) a aby následně odstranilo řádek, ve kterém je tento záznam + řádek nad tím. Pak bych potřebovala, aby to makro označilo záznamy v jednom sloupci, např. sloupec F a změnilo je na číslo. Zkoušela jsem dát označit celý sloupec a změnit formát buňky z obecný na číslo, ale to mi nefunguje. Aby se tam objevila čísla, tak musím označit pouze vyplněné buňky a kliknout na ten žlutý čtvereček, který hlásí chybu a teprve když kliknu na převést text na číslo, tak se mi to upraví. Za jakokoliv radu budu vděčná. Díky

Odpovědi na otázku

 |   |  Linux Firefox 32.0

škoda, že nemáš Open Office jako já. To bych ti to udělal. S Excelem se moc nechytám když jej nevlastním.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

Takto můžeš smazat poslední a předposlední záznam na listu:Cells(ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1, 1).SelectRange(Selection, Selection.Offset(-1, 0)).EntireRow.DeleteA takto oznažit celý sloupec F a nastavit formátování na číslo:Range("F:F").NumberFormat = "0"

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 32.0

Ahoj,moc díky za snahu, ale když jsem vložila toto do makra: Cells(ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1, 1).SelectRange(Selection, Selection.Offset(-1, 0)).EntireRow.Deletenapsala mi to nějakou chybu: Applications-defined or object-defined error :( Každopádně díky za snahu

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 32.0

A byla v listu nějaká data?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 32.0

ano, data v listu byla

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

Druhá možnost:ActiveCell.SpecialCells(xlLastCell).SelectRange(Selection, Selection.Offset(-1, 0)).EntireRow.Delete

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 32.0

Díky moc. Toto funguje :)

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Celý sloupec


Určitě si přečtěte

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

** Honor u nás přichází s prvním telefonem bez Google Mobile Services ** Současný stav je lepší než na začátku, ideální ale není ** Zkusili jsme i hack s ručním přidáním služeb Googlu

Tomáš Holčík | 157

Windows 10 May 2020 Update je venku. Odstraňuje hesla a přináší Linux

Windows 10 May 2020 Update je venku. Odstraňuje hesla a přináší Linux

** Jarní aktualizace Desítek přináší dost novinek, jsou ale spíš menší ** Zlepšují se stabilita, rychlost i komfort ovládání ** Revoluce ve Windows 10 teprve přijde

Vladislav Kluska | 93

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

** Jak uložit soubory, aby vydržely vnoučatům? ** A co kdyby měly přečkat celá staletí? ** Teď se o to pokouší GitHub a je to oříšek i pro lingvisty

Jakub Čížek | 118

12 netradičních map České republiky, které jste ještě nikdy neviděli

12 netradičních map České republiky, které jste ještě nikdy neviděli

** Tušíte, kolik je u nás hřbitovů a jak jsou velké? ** Dokážete si představit mapu českých řek a potoků? ** Udělali jsme to všechno za vás nad daty ČÚZK

Jakub Čížek | 10


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11