Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with code
im trying to do a countif to check and then select those that are
counted for select those cells with wording and insert them as a comment box in another sheet Sub UpdateComments() Dim a As Integer With ActiveSheet For a = 9 To 500 If WorksheetFunction.CountIf(.Columns("A:A"), .Cells(a, 2)) 1 Then Each cel In Sheets(3).UsedRange.SpecialCells(xlCellTypeConstan ts) With Sheets(16).Range(cel.Address) .ClearComments .AddComment Text:=cel.Text End With Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming |