Hyperlinkki

pom

Pitäisi saada aikaan hyperlinkkejä Googlen kuvahakuun niin, että d-sarakkeessa oleva teksti (kaksi sanaa) olisi hakusanana ja hyperlinkkinä. Tekstiä ei ole joka solussa.
Natsaako?

4

1073

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • koodi moduuliin... ja liität nappiin

      Sub HyperlinkinLisäys()
      Dim vika As Integer
      Dim haku As String
      Dim teksti As String
      Dim a As Variant
      Dim i As Integer

      vika = Range("D65536").End(xlUp).Row
      For i = 1 To vika
      Range("E" & i).Select
      If Range("D" & i) "" Then
      a = Split(ActiveCell.Offset(0, -1), " ")

      haku = a(0) & " " & a(1)
      teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"

      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
      "http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", _
      TextToDisplay:=teksti
      End If
      Next i
      End Sub

      • pom

        "Compile error: Syntax error" virheilmoitus tulee tästä koodin pätkästä:

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.google.fi/search?hl=fi&q="; & haku & "&btnG=Google-haku&meta=", _
        TextToDisplay:=teksti

        Koodi näkyi moduulissa punaisella fontilla...
        Mitäs mä oon häslännyt?


      • pom kirjoitti:

        "Compile error: Syntax error" virheilmoitus tulee tästä koodin pätkästä:

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.google.fi/search?hl=fi&q="; & haku & "&btnG=Google-haku&meta=", _
        TextToDisplay:=teksti

        Koodi näkyi moduulissa punaisella fontilla...
        Mitäs mä oon häslännyt?

        kadonneet sulla kopioinnin yhteydessä.Muutin koodin yhdelle riville.
        tämä pätkä pitää olla yhdellä rivillä

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti



        Sub HyperlinkinLisäys()
        Dim vika As Integer
        Dim haku As String
        Dim teksti As String
        Dim a As Variant
        Dim i As Integer

        vika = Range("D65536").End(xlUp).Row
        For i = 1 To vika
        Range("E" & i).Select
        If Range("D" & i) "" Then
        a = Split(ActiveCell.Offset(0, -1), " ")

        haku = a(0) & " " & a(1)
        teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti


        End If
        Next i
        End Sub


      • pom
        kunde kirjoitti:

        kadonneet sulla kopioinnin yhteydessä.Muutin koodin yhdelle riville.
        tämä pätkä pitää olla yhdellä rivillä

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti



        Sub HyperlinkinLisäys()
        Dim vika As Integer
        Dim haku As String
        Dim teksti As String
        Dim a As Variant
        Dim i As Integer

        vika = Range("D65536").End(xlUp).Row
        For i = 1 To vika
        Range("E" & i).Select
        If Range("D" & i) "" Then
        a = Split(ActiveCell.Offset(0, -1), " ")

        haku = a(0) & " " & a(1)
        teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti


        End If
        Next i
        End Sub

        paljon, nyt pelittää!

        Kun koodista vaihtaa "search" tilalle "images", niin menee suoraan kuukkelin kuvahakuun...


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. SDP jo 100 % suositumpi kuin persut

      Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst
      Maailman menoa
      248
      14337
    2. Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia

      tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,
      Maailman menoa
      145
      3780
    3. PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas

      https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija
      Maailman menoa
      128
      3712
    4. Kovia syytöksiä Stefan Thermaninsta.

      Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt
      Kotimaiset julkkisjuorut
      162
      1470
    5. Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu

      Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun
      Maailman menoa
      364
      1434
    6. Jos joku luulee että kaikki käy

      Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn
      Ikävä
      41
      1200
    7. En minä kyllä enää odota sinua

      Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O
      Ikävä
      10
      1046
    8. Ei ole rohkeutta tulla jututtamaan

      Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var
      Tunteet
      8
      931
    9. Sakin hivutus - ilmiö

      Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok
      80 plus
      45
      908
    10. En pystynyt vaan vastaamaan...

      Kaikki on ihan solmussa eikä ole voimia alkaa ratkaista naisena 😔
      Ikävä
      90
      746
    Aihe