Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Incrementing Cells with Macros
Ok, so heres what I am doing. I am merging about 500 xls files into
ONE file using a macro. Now, I get all the files to import just fine. Heres the code. SaveDriveDir = CurDir MyPath = "C:\Test" ChDrive MyPath ChDir MyPath FNames = Dir("*.xls") If Len(FNames) = 0 Then MsgBox "No files in the Directory" ChDrive SaveDriveDir ChDir SaveDriveDir Exit Sub End If Application.ScreenUpdating = False Set basebook = ThisWorkbook 'basebook.Worksheets(1).Cells.Clear 'clear all cells on the first sheet rnum = 8 Do While FNames < "" Set mybook = Workbooks.Open(FNames) mybook.DisplayAlerts = False lrow = LastRow(mybook.Sheets(1)) Set sourceRange = mybook.Worksheets(1).Range("C8:IV" & lrow) SourceRcount = sourceRange.Rows.Count Set destrange = basebook.Worksheets(1).Cells(rnum, "C") sourceRange.Copy destrange mybook.Close False ActiveSheet.Range("C:C").SpecialCells(xlCellTypeBl anks).EntireRow.Delete rnum = rnum + SourceRcount FNames = Dir() Loop ChDrive SaveDriveDir ChDir SaveDriveDir Application.ScreenUpdating = True End Sub Ok, that basically Copies all the information and starts pasting the information into Cell C8 and goes all the way down till its finished... Now what I want to edit is this. I want to make Column B a "count records column" The value in this column will increment with each record that is imported. So itll look something like this Record #: ID Name: 1 45 John 2 89 Joe 3 24 Joel And so On. The Records column isnt imported with the data, i want it to be inserted each time in front of the import data on each row with the # of which record it is. Your help is appreciated |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Incrementing numbers in cells | Excel Worksheet Functions | |||
how do I disable the option that keeps incrementing cells by 1? | Excel Worksheet Functions | |||
incrementing with blank cells in between | Excel Discussion (Misc queries) | |||
Newbie needs help with incrementing a series of cells | Excel Worksheet Functions | |||
incrementing cells withina formula in VB | Excel Programming |