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: 1151
Registrován: říjen 07
Bydliště: Otrokovice
Pohlaví: Muž
Stav:
Offline
Kontakt:

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

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: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

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
Přílohy
Ponechaj riadky s HL.xlsm
(19.69 KiB) Staženo 32 x

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

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

Když mám čas, dělám geoboardy pro děti.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • VBA Excel 365 vložit obrazek do buňky
    od wlk60 » 19 dub 2023 15:43 » v Kancelářské balíky
    1
    1623
    od atari Zobrazit poslední příspěvek
    19 dub 2023 21:53
  • Excel - filtr na formát buňky + obsah Příloha(y)
    od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky
    0
    1857
    od popcorn Zobrazit poslední příspěvek
    19 zář 2023 17:07
  • Jaký zdroj vybrat?
    od lukes8 » 31 bře 2023 19:43 » v Rady s výběrem hw a sestavením PC
    2
    712
    od richchie Zobrazit poslední příspěvek
    31 bře 2023 21:28
  • jaký pc vybrat po x letech
    od nbnut » 20 srp 2023 00:33 » v Rady s výběrem hw a sestavením PC
    2
    768
    od Karrex Zobrazit poslední příspěvek
    20 srp 2023 08:43
  • Který router vybrat?
    od HelFix » 23 říj 2023 20:09 » v Sítě - hardware
    11
    2095
    od HelFix Zobrazit poslední příspěvek
    06 lis 2023 21:33

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

Kdo je online

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