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

1051

Ää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. Anteeksi mies

      En vaan osaa kohdata sinua ja olla normaali. En tiedä mikä vaivaa. Samaan aikaan tekee mieli tulla lähelle ja kuitenkin
      Ikävä
      58
      9717

    2. Mietin aina vain

      Minä niin haluaisin nähdä sinut. Ei tuo yhden ainoan kuvan katsominen paljon helpota... Miksi sinä et voisi olla se roh
      Tunteet
      17
      4071

    3. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      32
      3346

    4. Kysely lieksan miehille

      Olemme tässä pohtineet tällaista asiaa, että miten on. Tästä nyt on paljon ollut juttua julkisuudessakin aina sanomaleht
      Lieksa
      94
      2593

    5. Palstan henkisesti sairaat ja lihavat

      Täällä on sairaita, työttömiä ihmisiä kirjoittelemassa joilla ei ole tarkoituksena kuin satuttaa ihmisiä. Jos eksyt pals
      Ikävä
      114
      2110

    6. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      398
      2022

    7. Saan kengurakkaan kotiin viikon päästä

      Mitä tapahtui? Martina hehkutti tätä stoorissaan reilu viikko sitten, mutta eipä aussimiestä Suomessa näkynyt, vaan tapa
      Kotimaiset julkkisjuorut
      244
      1535

    8. FinFamin ryhmät

      Älkää hyvät ihmiset luottako tähän tahoon. Ryhmiä on, mutta eivät ne toimi. Ihmisiä savustetaan ulos, vaikka näissä piir
      Salo
      0
      1351

    9. Osmo Peltola voitti ansaitusti Kultaisen Venlan - Kirvoitti yleisöltä mahtavan reaktion!

      JEE, onnea Osmo! Osmo Peltola voitti Vuoden esiintyjän Kultainen Venla -palkinnon. Isä-Peltsin ja Osmon luontoseikkailu
      Suomalaiset julkkikset
      73
      1168

    10. Olen vähän

      Hysteerinen se on totta. Etkai ymmärrä miten syvästi tunnen sinua kohtaan. Ja olet aina lähelläni. Olet osa jo jotain. I
      Ikävä
      10
      1135
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt