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..
Excelin solukommentti tekstinä soluun
peruskäyttäjä
7
296
Vastaukset
- 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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.575519- 934417
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3752634Ovatko naiset lopettaneet sen vähäisenkin vaivannäön Tinderissa?
Meinaan vaan profiileja selatessa nykyään valtaosalla ei ole minkäänlaista kirjoitettua tekstiä siellä. Juuri ja juuri s721151Suomi vietiin Natoon väärin perustein. Viides artikla on hölynpölyä. Yksin jäämme.
Kuka vielä uskoo, että viides artikla takaa Suomelle avun, jos Suomeen hyökätään. Liikuttavasti täällä on uskottu ja ved3311048- 61863
- 28843
Sydämeni on sinun luona
Koko ajan. Oli ympärilläni ketä oli niin sinä olet vain ajatuksissa ja tunteissa. En halua muiden kosketusta kuin sinun46826Trump ja Venäjä
Huomasitteko muuten... Käytännössä ainoat valtiot, joille Trump EI eilen asettanut typeriä tariffejaan, olivat Venäjä ja103805Jatkuva stressitila
On sinun vuoksesi kun en tiedä missä mennään mutta tunteeni tiedän ainoastaan52789