Auto-Insert & Delete Comments
Hi guys,
How could the sub below (which works for a single cell D8) be extended to work correspondingly across a range of data, say, to track E6:AE729 in Sheet1 and insert comment boxes accordingly in Sheet2 ? Also how could the inserted comment boxes be removed if corresponding cells in Sheet1 were cleared / made blank later ? Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Excel.Range) Set Alert = Sheets("Sheet1").Range("D8") If Application.WorksheetFunction.IsNumber(Alert) = False _ Then Exit Sub If Alert 0 Then Sheets("Sheet2").Select With Range("D8") .ClearComments .AddComment .Comment.Visible = False .Comment.Text Text:="Quantity: " & Alert End With End If End Sub -- Rgds Max xl 97 --- Please respond in thread xdemechanik <atyahoo<dotcom ---- |
Auto-Insert & Delete Comments
Apologies .. scratch this post ..
think Dave P. just dropped by in the other post in .misc -- Rgds Max xl 97 --- Please respond in thread xdemechanik <atyahoo<dotcom ---- |
All times are GMT +1. The time now is 08:35 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com