Excelin solukommentti tekstinä soluun

peruskäyttäjä

Moi, osaisko joku antaa ohjetta/kaavaa/makroa millä saisi esim A5 soluun kirjoitetun kommentin tekstin siirrettyä tekstinä soluun A6? Tämänhän voisi tehdä käsin kopioimalla kommentin tekstin ja liittämällä sen soluun, mutta näitä kommentteja olisi siirrettävänä tällä kertaa suhteellisen paljon..

7

360

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • alkusiinä

      Alla olevasta voi lähteä muokkaamaan mieleistänsä makroa. Tuo siis siirtää valituissa soluissa olevat tekstit niiden samojen solujen kommenteiksi. Jos vaikka haluaa sitten esimerkiksi vieressä oikealla olevaan soluun, niin muuttaa Selection.Cells(i, j).AddCom.... kohdan muotoon Selection.Cells(i,j 1).AddCom.....

      Sub kommentiksi()
      For i = 1 To Selection.Rows.Count
      For j = 1 To Selection.Columns.Count
      If Len(Selection.Cells(i, j).Text) > 0 Then
      Selection.Cells(i, j).AddComment (Selection.Cells(i, j).Text)
      End If
      Next
      Next
      End Sub

      • alkusiinä

        Heh, kysymys olikin toisin päin. Unohda tuo.


      • alkusiinä
        alkusiinä kirjoitti:

        Heh, kysymys olikin toisin päin. Unohda tuo.

        Tämä makro laittaa kommenttisolun sisällön sen oikealla puolella olevan solun arvoksi.

        Sub kommentista()
        For i = 1 To Selection.Rows.Count
        For j = 1 To Selection.Columns.Count
        If Not Selection.Cells(i, j).Comment Is Nothing Then
        Selection.Cells(i, j 1).Value = Selection.Cells(i, j).Comment.Text
        End If
        Next
        Next
        End Sub


    • dfdsfdfsfdsfsfss

      no voi jumal... eikö se vaan olekin helpompi kirjoittaa se kommentti SIIHEN SOLUUN?????????

    • Tämmöinen

      Function Kommentti(r As Range) As String
      Dim k As String
      On Error Resume Next
          k = ""
          k = r.Comment.Text
          Kommentti = k
      End Function

    • ORCL

      moduuliin:
      Sub KommentitSolunArvoksi()
      ' aktiivisen välilehden kommentit viereisen solun arvoksi
      Dim Kommentti As Comment
      For Each Kommentti In ActiveSheet.Comments
      Range(Kommentti.Parent.Address).Offset(, 1).Value = Kommentti.Text
      Next
      End Sub

    • kyselijä22332

      Kiitos, tämä auttoi!

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

    Luetuimmat keskustelut

    1. Kannattaako suomalaisen duunarin enää äänestää vasemmistopuolueita

      sillä eivät ne tunnu kovasti ajavan suomi-duunarin etuja. Jos katsotaan Vasemmistoliittoa, niin sehän on ihan feministi
      Maailman menoa
      200
      5723
    2. Jaaha, sitä on vasemmistoryhmä käynyt häiriköimässä Purran kodin vieressä

      On näköjään iso lakana levitetty puiden väliin, jossa lukee mm. "Haista vi*** Riikka Purra". Tunkekaa leikkaukset pers..
      Maailman menoa
      103
      5614
    3. Professori: Maahanmuuttajien rikollisuutta hyssytellään - hävytöntä

      Kriminologi Jukka Savolaisen mukaan ikä ja vaikeat olosuhteet eivät riitä selitykseksi. – Tutkitun tiedon valossa sanoi
      Maailman menoa
      190
      4613
    4. Mistä kummasta voi johtua se, että vasemmistolaiset usein häpeää itseään

      voiko se johtua esim. köyhyydestä? Ja tästä on siis ihan suomalainen tutkimus olemassa. "Suomalainen tutkimus osoittaa
      Maailman menoa
      51
      4043
    5. Sanna-kulttilaiset hehkuttaa edelleen Marinia, vaikka esim. Sote oli susi jo syntyessään

      mutta kulttilaiset eivät ole järjen jättiläisiä, ja sanoihin Lasse Lehtinenkin, että Suomessa on pohjoismaiden tyhmimmät
      Maailman menoa
      61
      3930
    6. Marin teki sen mihin muut eivät pystyneet, vei susi-Soten maaliin

      ja sitten hävittyjen vaalien jälkeen lähtikin vastuuta pakoon...... "Professori: sote-uudistus on täysi susi. Sosiaali
      Maailman menoa
      31
      3576
    7. En koskaan tule sinulle tätä kertomaan

      Kun kirjoitin sinulle viimeisintä viestiä, huomasin kyynelten valuvan poskiani pitkin.
      Ikävä
      20
      1424
    8. Saatoin tehdä elämäni isoimman virheen

      Otsikko kertoo kaiken. Miksei kaikki voi olla yksinkertaisempaa?
      Ikävä
      130
      1360
    9. Kova ikävä parittelukumppania täällä korvessa

      Mutta muuten kyllä on rauhallista.
      Ikävä
      19
      1035
    10. Jotenkin tämä

      tilanne taas eskaloitui ja saat mut roikkumaan täällä palstalla. Turhaan. Ei nämä tekstit sua koskaan tavoita. 😭
      Ikävä
      33
      960
    Aihe