Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Cell As Range If Intersect([Q12:Q61], Target) Is Nothing Then On Error Resume Next For Each Cell In [Q12:Q61] Cell.Comment.Delete Cell.Value = "" Next Cell Else For Each Cell In Intersect([Q12:Q61], Target) If Len(Me.Cells(Cell.Row, "R").Value) > 0 Then On Error Resume Next Cell.Comment.Delete On Error GoTo 0 Cell.Value = "Click here to check your quality rigour" Cell.AddComment Me.Cells(Cell.Row, "R").Value Cell.Comment.Shape.ScaleWidth 2.26, msoFalse, msoScaleFromTopLeft Cell.Comment.Shape.ScaleHeight 2.26, msoFalse, msoScaleFromTopLeft End If Next Cell End If End Sub
|Server 2012 management.||5||23|
|round down to max number||11||32|
|Excel Formula to check both condition's and return values||2||26|
|Excel VBA Find Lowest Row number in any selection||8||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!