Vyhledávání ve sloupci

Vyhledávání ve sloupci zodpovězená otázka

Dobrý den, řeším pro mnohé z vás asi jednoduchý problém:

Mám sloupec definovaný výrazem:

Dim rng3 As Range
    Set rng3 = Range(q, r)
    rng3.Select

kde q a r jsou první a poslední buňka ve zkráceném sloupci.

Teď bych potřeboval, aby mi to prohledalo všechny buňky ve sloupci (výběru) a odmázlo řádky, ve kterých se tyto buňky vyskytují.

Jedno řešení mám, ale je dost neelegantní. Tím, že následující kód zopakuji mnohokrát pod sebe.

On Error Resume Next
Cells.Find(What:="Novák  ", After:=ActiveCell, _
    '    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    '    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    'If ActiveCell.Value = "Novák  " Then
    'Rows(ActiveCell.Row).Delete
    'End If

nahlásit spam

odpovědět

Samozřejmě tedy bez těch apostrofů na začátku. To se omlouvám.

nahlásit spam

odpovědět

Mám vyřešeno, děkuji.

Dim Counter As Integer
    For Counter = q To r
    Counter = Cells.Find(What:="Novák  ", After:=ActiveCell, _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    If ActiveCell.Value = "Novák  " Then
    Rows(ActiveCell.Row).Delete
    End If
Next Counter

nahlásit spam

1 / 1

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

otázka připomínka kladné hodnocení záporné hodnocení

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.

dotNETportal.cz