VB in EXCEL

[rodanny]

Salutari ,
Am o problema:
Am nevoie de un script fff urgent care sa imi copieze "comment"-ul unei celule intr-un camp alaturat.
Pe net am gasit urmatoarea functe:

Function GetCommentText(rCommentCell As Range)
Dim strGotIt As String
On Error Resume Next
strGotIt = WorksheetFunction.Clean _
(rCommentCell.Comment.Text)
GetCommentText = strGotIt
On Error GoTo 0
End Function



Problema e ca daca textul din comment e scrit pe mai multe randuri....fct nu pastreaza acelasi format, ci pune randurile unul dupa altul.....imi taie <cr><lf> de la sf fiecarei liniii....
HELP ....am mare nevoie de ajutor si e ffff urgent.
Va multumesc pt ajutor anticipat,
danny
danny[at]xnet[dot]ro

[ixtl]

Incearca din cod copierea celulei respective si Paste Special la celula dorita cu Comment.
Nu mai tin minte functiile, dar exista.

LE
Range("B3").Select
Selection.Copy
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Unde inclocuiesti Range("B3") si Range("B5") cu ce ai nevoie.
Merge si pe randuri/coloane multiple etc.
Mi-a luat 30 sec. sa fac macro-ul.
Se mai poate si altfel, da' n-am timp :P

Be creative

[rodanny]

Man, imi cer scuze..eu habar nu am de vb...please...il poti transforma intr-o functie....sau cum sa il folosesc?
Danny

[bursuloi]

Function GetCommentText(rCommentCell As Range)
Dim strGotIt As String
On Error Resume Next
strGotIt = (rCommentCell.Comment.Text)
GetCommentText = strGotIt
On Error GoTo 0
End Function

[rodanny]

Va multumesc tuturor....