E
excelent
Hi Experts
Ned help with a little problem.. her it goes :
Got a Shared Workbook with som Comments around difrent sheets
Now i need to edit these Comments but
cant do this in a Shared workbook, well not without unshare
So im trying to copy text to a userform in 3 or 4 Textboxes
Then i can edit here an write it back to the comment
(well i ges i have to delete old comment and then make a new 1)
There is som Chr(10) in the Text to forse new line
and how do i seperate the whole text to 3/4 textboxes ewery time i meat a
Chr(10)
Here is what i got so far :
Private Sub UserForm_Click()
'Range("A2").Comment.Text Text:="Poul" & Chr(10) & "Madsen" & Chr(10) &
"Town" & Chr(10) & "Postalcode"
x = Sheets("Ark2").Range("A2").Comment.Text
Me.TextBox1 "Poul"
Me.TextBox2 "Madsen"
Me.TextBox3 "Town"
Me.TextBox4 "Postalcode"
End Sub
tks in advance for any help
Ned help with a little problem.. her it goes :
Got a Shared Workbook with som Comments around difrent sheets
Now i need to edit these Comments but
cant do this in a Shared workbook, well not without unshare
So im trying to copy text to a userform in 3 or 4 Textboxes
Then i can edit here an write it back to the comment
(well i ges i have to delete old comment and then make a new 1)
There is som Chr(10) in the Text to forse new line
and how do i seperate the whole text to 3/4 textboxes ewery time i meat a
Chr(10)
Here is what i got so far :
Private Sub UserForm_Click()
'Range("A2").Comment.Text Text:="Poul" & Chr(10) & "Madsen" & Chr(10) &
"Town" & Chr(10) & "Postalcode"
x = Sheets("Ark2").Range("A2").Comment.Text
Me.TextBox1 "Poul"
Me.TextBox2 "Madsen"
Me.TextBox3 "Town"
Me.TextBox4 "Postalcode"
End Sub
tks in advance for any help