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
1075
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
- pomkunde 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
- Sanna Marin teki sen, mihin muut eivät pystyneet - sote kerralla maaliinYli 15 vuotta Suomessa vatvottu sote-uudistus meni lopulta läpi Sanna Marinin hallituksen aikana. Edeltävät hallitukset768584
- Marinin hallitus hyväksyi soten (105-77) vuonna 2021vastaan äänesti Kok, persut, KD, Liike Nyt. Nyt on sitten käynyt niin kuin on käynyt. Pääkirjoitus: Sanna Marin jätti905937
- Pikkupersu osoitti olevansa hieman yksinkertainen"Heikosti älykkyystesteissä pärjänneistä lapsista tulee muita todennäköisemmin ennakkoluuloisia ja konservatiivisia", uu1034806
- Enää viisi yötä Sannan kirjaanIhan täpinöissään tässä odotellaan. Vaikea pysytellä aloillaan, kun koko ajan tekisi mieli jo kirjakauppaan rynnätä, mut483935
- Jos on heikkolahjainen ja laiska koulupudokas, niin silloin äänestää vasemmistopuolueitanäin tämä on käytännössä aina mennyt. Jos ei älyä ole paljon suotu, niin ei silloin inssiksi opiskella, vaan päädytään293856
- Kannattaako suomalaisen duunarin enää äänestää vasemmistopuolueitasillä eivät ne tunnu kovasti ajavan suomi-duunarin etuja. Jos katsotaan Vasemmistoliittoa, niin sehän on ihan feministi743821
- Sanna-kulttilaiset hehkuttaa edelleen Marinia, vaikka esim. Sote oli susi jo syntyessäänmutta kulttilaiset eivät ole järjen jättiläisiä, ja sanoihin Lasse Lehtinenkin, että Suomessa on pohjoismaiden tyhmimmät453672
- Lehtinen: "Oli demareidenkin onni, että valkoiset voittivat sodan 1918"Lasse Lehtisen mukaan vasemmalla on radiohiljaisuus hänen uutuuskirjastaan, "Läheltä piti. Kansakunnan hurjat hetket" L1133070
- IL - 100 000 potentiaalista sotilasta pakeni Ukrainasta!"Ukrainasta nuorten miesten joukkopako Liki 100 000 asevelvollisuusikäistä miestä on poistunut Ukrainasta parin viime k572879
- SDP:n valtuutettu valehtelee koulutuksensaSDP:n helsinkiläinen kaupunginvaltuutettu Mahad Ahmed käyttää maisterin titteliä suoritettuaan 60 opintopisteen epäviral982849