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
4
1043
Vastaukset
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
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww483391- 472501
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1251860Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1001653Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381117Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.461022- 169994
Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M175906En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois77891Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-14834