Converts docstring column into comments on name column. : Cell Comments « Excel « VBA / Excel / Access / Word

VBA / Excel / Access / Word 1.  Access 2.  Application 3.  Data Type 4.  Data Type Functions 5.  Date Functions 6.  Excel 7.  File Path 8.  Forms 9.  Language Basics 10.  Math Functions 11.  Outlook 12.  PowerPoint 13.  String Functions 14.  Windows API 15.  Word 16.  XML Java Java Tutorial Java Source Code / Java Documentation Java Open Source Jar File Download Java Articles Java Products Java by API C# / C Sharp C# / CSharp Tutorial ASP.Net JavaScript DHTML JavaScript Tutorial JavaScript Reference HTML / CSS HTML CSS Reference C / ANSI-C C Tutorial C++ C++ Tutorial PHP Python SQL Server / T-SQL Oracle PL / SQL Oracle PL/SQL Tutorial PostgreSQL SQL / MySQL MySQL Tutorial VB.Net VB.Net Tutorial Flash / Flex / ActionScript Microsoft Office PowerPoint 2007 Tutorial Microsoft Office Excel 2007 Tutorial Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Excel » Cell Comments   Converts docstring column into comments on name column.   Private Sub Workbook_AfterXmlImport(ByVal Map As XmlMap, ByVal IsRefresh As Boolean, ByVal Result As XlXmlImportResult)     If Map.Name <> "application_Map" Then Exit Sub     Dim cel As Range, ws As Worksheet, rng As Range     Set ws = ThisWorkbook.Worksheets("Sheet1")     Set rng = ws.ListObjects(1).ListColumns("name").Range     For Each cel In rng         If Not (cel.Comment Is Nothing) Then cel.Comment.Delete         cel.AddComment cel.Offset(0, 1).Text         rowID = cel.Row - rng.Row     Next End Sub   Related examples in the same category 1.  Get the comment text 2.  Tracking cell changes in a comment 3.  Clean the comment 4.  resize Comments 5.  Count Comments 6.  Toggle Comments

w_w__w___.__j_a__va2___s__.___c___o___m___ | Contact Us

Copyright 2003 - 08 Demo Source and Support. All rights reserved.

All other trademarks are property of their respective owners.