odstranění nepotřebných buněk   zodpovězená otázka

VB6/VBA

Nevíte někdo, jak má vypadat kód, potřebuju-li odstarnit všechny řádky mezi buňkou A2 a další buňkou ve sloupci A s nějakým obsahem, tzn. aby to našlo další aktivní buňku a označilo a smazalo všechny řádky mezi těmito buňkami? Moc prosím o nějaké nápady. Jsem docela začátečník.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Tak už jsem trochu pokročil. Teď jsem ve fázi, kdy mám vybraný aktivní řádek pomocí Rows(ActiveCell.Row).Select. Teď už jen vybrat tu aktivní oblast mezi aktivním řádkem a řádkem č.2. Ani za boha netuším, jak to napsat.

nahlásit spamnahlásit spam 0 odpovědětodpovědět
Dim a As Integer
    a = Range(Cells(2, 1), Cells(2, 1).End(xlDown)).Rows.Count - 1
    Range(Cells(2, 1), Cells(a, 1)).EntireRow.Delete

nahlásit spamnahlásit spam 2 / 2 odpovědětodpovědět

Výborně, to je přesně ono. Děkuji moc.

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback