Új hozzászólás Aktív témák

• #49164 Fire/SOUL/CD félisten Hunter2 #49163

  Új Válasz 2022-06-10 22:16:20 #49164

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Hunter2 #49163 üzenetére

  1. ALT+F11, ThisWorkbook-n duplaklikk és copy/paste-l bemásolod az alábbi kódot (nem kell mentened az Excel táblát makróbarát doksiként)

  Public Sub FireReEditCells()

Dim MyRange1 As Range, MyRange2 As Range

Application.ScreenUpdating = False

Set MyRange2 = Selection

For Each MyRange1 In MyRange2
MyRange1.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
DoEvents
Next

Application.ScreenUpdating = True

End Sub

  2. kijelölöd az URL-ket tartalmazó cellákat(ne az egész oszlopot, mert akkor sokáig tarthat a dolog), ALT+F8 és futtatod a makrót

  3. kitörölheted a makrót és hagyományos munkafüzetként mentheted

Új hozzászólás Aktív témák