If wshSource.Cells(lngRow, lngNameCol).Value wshSource.Cells(lngRow - 1, lngNameCol).Value Then LngLastRow = wshSource.Cells(, lngNameCol).End(xlUp).Row Copy the following code into the code module that appears:Ĭonst lngNameCol = 2 ' names in second column (B)Ĭonst lngFirstRow = 2 ' data start in row 2.Activate the Developer tab of the ribbon.In the list of 'Main Tabs' on the right, tick the check box labeled Developer.Select 'Customize Ribbon' in the navigation pane on the left.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |