Sub LisääKuvaKommenttiin() MUOKKAUS

Kun ei osaa itse

Hei, seuraava Kunden tuottamasta muokattu
Sub LisääKuvaKommenttiin()

Dim solu As Range
On Error Resume Next

For Each solu In Range("B3:AB12,B15:AB24,B27:AB36")

If Not solu.Comment Is Nothing Then solu.Comment.Delete
With solu
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
.Comment.Shape.Height = 300
.Comment.Shape.Width = 250
End With
Next
End Sub

Ongelma. Nyt tekee kommentin myös arvoltaan tyhjiin soluihin. MIllä saa estettyä sen. Eli kommentti vain jos solussa arvo.
Kiitos etukäteen

1

<50

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub LisääKuvaKommenttiin()

      Dim solu As Range
      On Error Resume Next

      For Each solu In Range("B3:AB12,B15:AB24,B27:AB36")
      If Not solu = "" Then
      If Not solu.Comment Is Nothing Then solu.Comment.Delete
      With solu
      .AddComment
      .Comment.Visible = False
      .Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
      .Comment.Shape.Height = 300
      .Comment.Shape.Width = 250
      End With
      Next
      End If
      End Sub

      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      38
      12350

    2. V*ttuu että mä haluan sua

      Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!
      Ikävä
      91
      4221

    3. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      109
      3982

    4. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      51
      3638

    5. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      53
      3321

    6. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      116
      3294

    7. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      35
      2146

    8. Koska olet viimeksi nähnyt ikävän kohteesi?

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      38
      2112

    9. Keskusta hajoaa Palojärvi lähtee

      Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul
      Kemijärvi
      26
      1945

    10. On sillä rääpyä

      Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva
      Ähtäri
      11
      1623
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt