Vba allow screenupdating


27-Feb-2018 21:42

Use this if you want to copy pictures, or other formatting, from the original comments. Paste Special xl Paste Comments Set cmt New = rng Temp New.

This macro will be a bit slower, so use the Replace Name No Pictures macro if you're not concerned about formatting.

", _ "Resize Sheet Comments", 1#) If dbl Mult H = 0 Then Exit Sub End If '. ", _ "Resize Sheet Comments", 300) If l Max Width = 0 Then Msg Box "Width must be 1 or greater" Exit Sub End If dbl Mult H = _ Input Box("What multiplier should be used for Height? " _ & vb Cr Lf & "Width greater than:", _ "Resize Sheet Comments", 1) If l Min Width = 0 Then Msg Box "Width must be 1 or greater" Exit Sub End If l Max Width = Input Box("What should be the new comment width? Display Comment Indicator _ = xl Comment Indicator Only Set rng = Active Window. Comment If cmt Is Nothing Then Set cmt = Active Cell. Select End Sub If a previous user inserted comments, their name may appear at the top of the comment.

vba allow screenupdating-26

Free adult cam2cam chat room

Add Comment text:="" End If 'type to add comment text to selected shape cmt. Their name may also appear in the Status Bar, when you hover over the cell that contains a comment. Comment End If 'find the line break and markers l Break = In Str(1, cmt.text, Chr(10)) l Num1 = In Str(1, cmt.text, str Find) 1 l Num2 = In Str(l Break, cmt.text, str Find) 1 'format the lines of text With cmt. Color Index = 0 End With End If Send Keys " " End Sub Sub Comment Text Format Colour() 'adds comment then formats font colour and adds bold ' cmt As Comment Dim str1 As String Dim str2 As String Dim l Break As Long Dim l Num1 As Long Dim l Num2 As Long Dim l Num Len As Long Dim str Find As String On Error Resume Next str1 = "John: 20 Eggs" str2 = "Simon: 50 Eggs" str Find = ":" l Num Len = 3 Set cmt = Active Cell. Add Comment _ text:=str1 & Chr(10) & str2 Set cmt = Active Cell. Range For repeat = 1 To 30 For Each cell In r cell. Value Mod 2 = 0) Then ' if i is even, color the cell white cell. Range For repeat = 1 To 30 For Each cell In r cell. Value Mod 2 = 0) Then ' if i is even, color the cell white cell.



The interesting thing is that *some* of my modules allow ScreenUpdating to be set to False, there's only a few that don't. One thing that seems to be common among. Although I'm using VBA, not VB, I experienced the same symptoms when using Application. ScreenUpdating = False, and this is how I.… continue reading »


Read more