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

1090

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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?

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Työeläkkeet ovat pois työntekijän palkasta

      Jokainen työeläkkeen nimissä maksettu euro on otettu pois työtä tekevältä palkansaajalta. Mitä korkeampi työeläketaso o
      Maailman menoa
      133
      1733

    2. Etkö sä muru mussakaiseni ymmärrä

      Että me päästään lähenemään vain kaveruuden kautta? Vain siten mä voin lähettää sulle kuvia ja viestejä 😌 Tänäänkin o
      Ikävä
      49
      1388

    3. Kaksi viikkoa enää Rakas...

      Tietäisinpä miten toimia...
      Ikävä
      77
      1308

    4. "Suomi voisi ottaa taloudessa oppia Espanjasta"

      "Espanjassa talouspolitiikka on löysempää, mutta velka-aste on kääntynyt jopa laskuun.", pohdiskelee Suomen seuraava pää
      Maailman menoa
      46
      1239

    5. Terveisiä lintutornilta

      Viipurista nousee kauhea savupatsas. Miksi ?
      Maailman menoa
      54
      1114

    6. Martina Aitolehdeltä kova tilitys podcastilla: "Kyllä mä turpaan vetäisin"!

      Martina Aitolehti tilittää brutaalin rehellisesti Eskolle podcastilla syitä, miksi hän ei ole lähtenyt mukaan julkkisten
      Kotimaiset julkkisjuorut
      207
      897

    7. Tulisitko kahville..

      Jos pyytäisin?
      Ikävä
      62
      864

    8. Siinäpä jäät

      Punapää kaipaamaan, kun päätän maallisen vaellukseni. Oma oli valintasi. Sillä minä en jaksa enää kovin pitkää tätä. Ole
      Ikävä
      78
      782

    9. Tiedätkö että

      Olet aika vetävä
      Ikävä
      29
      754

    10. Sosiaalinen lainalaisuus.

      Tulipa mieleen tässä useammasta aloituksesta ja kirjoituksesta, että minusta ihmisilläkin (laumaeläimilläkin) on luonnol
      Sinkut
      142
      730
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt