Excel - vybrat buňky s hypertextovým odkazem Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
pikaso.andreas
Level 4
Level 4
Příspěvky: 1091
Registrován: říjen 07
Bydliště: Otrokovice
Pohlaví: Muž

Excel - vybrat buňky s hypertextovým odkazem

Příspěvekod pikaso.andreas » 05 pro 2021 21:27

Ahoj, mám excel soubor, kde mám jeden sloupec a mnoho řádků, ale potřebuji vybrat či vyfiltrovat jen buňky které jsou HTTP, jako odkazy na web. Ostatní buňky kde je jen text potřebuji odstranit. Procházím návody ale asi nevím jak se zeptat strýčka googla.

Děkuji
Ondra
Rád se přiučím od zkušenějších... A učený z nebe nespadl :-D
Můj skromný web s fotkama
Když mám čas, dělám geoboardy pro děti.

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 303
Registrován: červen 13
Pohlaví: Muž

Re: Excel - vybrat buňky s hypertextovým odkazem  Vyřešeno

Příspěvekod elninoslov » 06 pro 2021 17:57

Asi jedine makrom:

Kód: Vybrat vše

Sub Cudlicek()
Dim Oblast As Range, Bunka As Range, Zmaz As Range, Riadkov As Long
    With ThisWorkbook.Worksheets("Hárok1")
        Riadkov = .Cells(Rows.Count, "A").End(xlUp).Row - 1
        Set Oblast = .Cells(2, "A").Resize(Riadkov)
        For Each Bunka In Oblast.Cells
            If Bunka.Hyperlinks.Count = 0 Then
                If Zmaz Is Nothing Then Set Zmaz = Bunka Else Set Zmaz = Union(Zmaz, Bunka)
            End If
        Next Bunka
    End With
    If Not Zmaz Is Nothing Then Zmaz.Delete Shift:=xlUp
End Sub
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
pikaso.andreas
Level 4
Level 4
Příspěvky: 1091
Registrován: říjen 07
Bydliště: Otrokovice
Pohlaví: Muž

Re: Excel - vybrat buňky s hypertextovým odkazem

Příspěvekod pikaso.andreas » 07 pro 2021 11:59

Děkuji moc. Na první dobrou super. Skvělé. Klaním se.
Rád se přiučím od zkušenějších... A učený z nebe nespadl :-D
Můj skromný web s fotkama
Když mám čas, dělám geoboardy pro děti.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel/GSheets - odkaz do jiného listu podle buňky
    od kubasCZ » 14 kvě 2021 07:52 » v Kancelářské balíky
    4
    605
    od kubasCZ
    14 kvě 2021 13:53
  • Jak v Excelu změnit zvýraznění aktivní buňky?
    od atari » 12 led 2022 18:16 » v Kancelářské balíky
    9
    184
    od atari
    14 led 2022 09:47
  • Jaký vybrat projektor?
    od Scofield_CZ » 16 bře 2021 00:11 » v Rady s výběrem hw a sestavením PC
    11
    548
    od petr22
    16 bře 2021 17:42
  • Notebook - jak/co správně vybrat
    od marty269 » 03 úno 2021 21:07 » v Rady s výběrem hw a sestavením PC
    1
    294
    od petr22
    03 úno 2021 21:12
  • Jakou vybrat tiskárnu
    od CepiniusCZ » 22 dub 2021 07:01 » v Vše ostatní (hw)
    3
    404
    od renek11
    22 dub 2021 08:27

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 4 hosti