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?
Hyperlinkki
pom
4
1102
Vastaukset 4
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 Subpaljon, nyt pelittää!
Kun koodista vaihtaa "search" tilalle "images", niin menee suoraan kuukkelin kuvahakuun...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 47957
- 95943
Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."
Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i19795- 117746
Anteeksi J-mies
Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t95708Olet nainen ollut vaikein rasti
Eniten olet tunteitani myllännyt ja niitä kuluttanut, ja tuottanut. 🤔36633- 43631
Minä muistan
Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol45610- 19596
- 46568
Kenen viisautta on ollut laittaa tie väärällä murskeella pilalle
Kenen viisautta on ollut kun Siimeksen/Kylmänpurontie pantu pilalle kun on ajettu liian karkeaa mursketta. Rengasliikke21554- 33543
- 36532
Siinä kävi mies nyt niin että tämä ämmä muuttaa ulkomaille
Vuonojen maa kutsuu, joten ei hätää. Et kuule minusta enää. 😂 Lycka till! Ämmä riittää.68527- 25502
Mitä muuta on olemassa kuin lisääntyminen
Jos mies ei pääse lisääntymään niin mikä hänen osansa elämässä on? mitä jää jäljelle? Hän on vain muiden palvelija kok107493Ähtäri on taas TV: n ja radion ykkösuutinen
Uusi podcast on julkaistu ja on nyt kuunneltavissa. Mot on tehnyt hyvää työtä! Mikko Savola ja kepu ei ota mitään vast44486Koska Martina viettää aikaansa lapsiensa kanssa
Äiti vaan juoksee miehen perässä Tallinnassa, Lontoossa, Turussa. Kyllä oli kätilö oikeassa, kun sanoi, että ei olisi ka133477- 45467
Pahkalassa tapahtuu
Mitäs on tapahtunut yöllä pahkalan kerrostaloilla.oli poliisia ja ambulanssia taas vaihteeksi7447