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

1075

    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. Sanna Marin teki sen, mihin muut eivät pystyneet - sote kerralla maaliin

      Yli 15 vuotta Suomessa vatvottu sote-uudistus meni lopulta läpi Sanna Marinin hallituksen aikana. Edeltävät hallitukset
      Maailman menoa
      76
      8584
    2. Marinin hallitus hyväksyi soten (105-77) vuonna 2021

      vastaan äänesti Kok, persut, KD, Liike Nyt. Nyt on sitten käynyt niin kuin on käynyt. Pääkirjoitus: Sanna Marin jätti
      Maailman menoa
      90
      5937
    3. Pikkupersu osoitti olevansa hieman yksinkertainen

      "Heikosti älykkyystesteissä pärjänneistä lapsista tulee muita todennäköisemmin ennakkoluuloisia ja konservatiivisia", uu
      Maailman menoa
      103
      4806
    4. Enää viisi yötä Sannan kirjaan

      Ihan täpinöissään tässä odotellaan. Vaikea pysytellä aloillaan, kun koko ajan tekisi mieli jo kirjakauppaan rynnätä, mut
      Maailman menoa
      48
      3935
    5. Jos on heikkolahjainen ja laiska koulupudokas, niin silloin äänestää vasemmistopuolueita

      näin tämä on käytännössä aina mennyt. Jos ei älyä ole paljon suotu, niin ei silloin inssiksi opiskella, vaan päädytään
      Maailman menoa
      29
      3856
    6. Kannattaako suomalaisen duunarin enää äänestää vasemmistopuolueita

      sillä eivät ne tunnu kovasti ajavan suomi-duunarin etuja. Jos katsotaan Vasemmistoliittoa, niin sehän on ihan feministi
      Maailman menoa
      74
      3821
    7. Sanna-kulttilaiset hehkuttaa edelleen Marinia, vaikka esim. Sote oli susi jo syntyessään

      mutta kulttilaiset eivät ole järjen jättiläisiä, ja sanoihin Lasse Lehtinenkin, että Suomessa on pohjoismaiden tyhmimmät
      Maailman menoa
      45
      3672
    8. Lehtinen: "Oli demareidenkin onni, että valkoiset voittivat sodan 1918"

      Lasse Lehtisen mukaan vasemmalla on radiohiljaisuus hänen uutuuskirjastaan, "Läheltä piti. Kansakunnan hurjat hetket" L
      Maailman menoa
      113
      3070
    9. IL - 100 000 potentiaalista sotilasta pakeni Ukrainasta!

      "Ukrainasta nuorten miesten joukkopako Liki 100 000 asevelvollisuusikäistä miestä on poistunut Ukrainasta parin viime k
      Maailman menoa
      57
      2879
    10. SDP:n valtuutettu valehtelee koulutuksensa

      SDP:n helsinkiläinen kaupunginvaltuutettu Mahad Ahmed käyttää maisterin titteliä suoritettuaan 60 opintopisteen epäviral
      Maailman menoa
      98
      2849
    Aihe