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

193

    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. Heikki Silvennoinen petti vaimoaan vuosien ajan

      Viiden lapsen isä Heikki kehuu kirjassaan kuinka paljon on pettänyt vaimoaan vuosien varrella.
      Kotimaiset julkkisjuorut
      223
      3460
    2. Miksi ihmeessä nainen seurustelit kanssani joskus

      Olin ruma silloin ja nykyisin vielä rumempi En voi kuin miettiä että miksi Olitko vain rikki edellisestä suhteesta ja ha
      Ikävä
      24
      2181
    3. Taasko se show alkaa

      Koo osottaa taas mieltään
      Ikävä
      24
      2081
    4. Persut nimittivät kummeli-hahmon valtiosihteeriksi!

      Persujen riveistä löytyi taas uusi törkyturpa valtiosihteeriksi! Jutun perusteella järjenjuoksu on kuin sketsihahmolla.
      Perussuomalaiset
      90
      1955
    5. Onko ministeri Juuso epäkelpo ministerin tehtäviensä hoitamiseen?

      Eikö hänellä ole kompetenttia hoitaa sosiaali- ja terveysministetin toimialalle kuuluvia ministerin tehtäviä?
      Perussuomalaiset
      80
      1630
    6. Sakarjan kirjan 6. luku

      Jolla korva on, se kuulkoon. Sain profetian 22.4.2023. Sen sisältö oli seuraava: Suomeen tulee nälänhätä niin, että se
      Profetiat
      24
      1371
    7. Söpö lutunen oot

      Kaipaan aina vaan, vaikkakin sitten yksipuolisesti.
      Ikävä
      8
      1271
    8. Avaa sydämesi mulle

      ❤ ❤❤ Tahdon pelkkää hyvää sulle Sillä ilmeisesti puhumalla Avoimesti välillämme Kaikki taas selviää Kerro kaikki, tahdo
      Ikävä
      36
      1257
    9. Elia tulee vielä

      Johannes Kastaja oli Elia, mutta Jeesus sanoi, että Elia tulee vielä. Malakian kirjan profetia Eliasta toteutuu kokonaan
      Helluntailaisuus
      35
      1217
    10. Nellietä Emmaa ja Amandaa stressaa

      Ukkii minnuu Emmaa ja Amandaa stressaa ihan sikana joten voidaanko me koko kolmikko hypätä ukin kainaloon ja syleilyyn k
      Isovanhempien jutut
      6
      1198
    Aihe