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

1057

Ää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. Olet toisen kanssa

      ...ja minä yhä vain sinua kaipaan. Tiedän ettet ole onnellinen siellä. Älä hukkaa aitoa onnea ja rakkautta hukkaan vain
      Ikävä
      177
      1449

    2. Näytit taas lihoneen.

      Tynnyri se vaan kasvaa.
      Ikävä
      28
      1346

    3. Kuka teistä on paras nainen

      A-nainen? J-nainen? K-nainen? M-nainen? S-nainen? Vai kenties joku muu...? 😊
      Ikävä
      61
      1249

    4. Onko jotain mistä

      Olet huolissasi kaivattusi suhteen?
      Ikävä
      78
      1194

    5. Immu otti pataan

      Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!
      Kotimaiset julkkisjuorut
      67
      1163

    6. Osaako joku selittää tätä

      Että miksi mulle on joka toinen ventovieras ihminen tyly ainakin ilmeillään ja eleillään?
      Ikävä
      75
      1162

    7. Jos me joskus nähtäisiin

      niin ei kai sen vielä tarvitsisi merkitä sen enempää? Ja voihan olla ettei kumpikaan enää siinä vaiheessa edes haluaisi
      Ikävä
      103
      1153

    8. Koska vietät

      Yhteisen yön kaivattusi kanssa?
      Ikävä
      54
      988

    9. Lesken uusi

      Onko totta että puolangan kunnalla töissä ollut mies joka kuoli niin sen vaimolla jo uusi lohduttaja. Pitäneekö paikkans
      Puolanka
      18
      892

    10. Persun suusta:"Köyhät on luusereita ja ansaitsevat köyhyyden"

      Ministeri Juuston apulainen näin uhoaa. Mitäs siinä. Kyllä on jo tiedetty muutaman vuoden hallitustyön pohjalta että per
      Lieksa
      174
      844
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt