Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming Challenges!
I have a spreadsheet set up for the purpose of data entry via an external
data collection device. The spreadsheet consists of a header row: Serial No., Dim #1-Dim #16, Average, Range. I need a macro to run automatically upon opening the worksheet that will position the cursor in the first empty Dim #1 (Column B) cell. Upon entry of the 16th pc of data, I need the cursor to reset to the Dim #1 (Column B) in the next row. Also, I would like to set the spreadsheet to either autosave within the macro that resets the cursor or autosave every X minutes. Anyone? -- Thanx, Loretta |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming Challenges!
I, for one due to old age I guess, don't understand but if you want send
your workbook to my address below along with a snippet of this msg copied into a newly inserted sheet. -- Don Guillett Microsoft MVP Excel SalesAid Software "Loretta" wrote in message ... I have a spreadsheet set up for the purpose of data entry via an external data collection device. The spreadsheet consists of a header row: Serial No., Dim #1-Dim #16, Average, Range. I need a macro to run automatically upon opening the worksheet that will position the cursor in the first empty Dim #1 (Column B) cell. Upon entry of the 16th pc of data, I need the cursor to reset to the Dim #1 (Column B) in the next row. Also, I would like to set the spreadsheet to either autosave within the macro that resets the cursor or autosave every X minutes. Anyone? -- Thanx, Loretta |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming Challenges!
Hi,
Try pasting the following code into the ThisWorkbook module. On open, this code will find the first empty cell within column 2 (Column B). On any worksheet change, it will check if the cell changed was in column 17 (Column Q, Dim#16). If so, it will select the following row in column B. Hope this helps! Andy Private Sub Workbook_Open() Dim row As Long row = 1 Do Until Trim(Cells(row, 2).Value) = "" row = row + 1 Loop Cells(row, 2).Select End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Column = 17 Then ActiveWorkbook.Save Cells(Target.row + 1, 2).Select End If End Sub "Loretta" wrote: I have a spreadsheet set up for the purpose of data entry via an external data collection device. The spreadsheet consists of a header row: Serial No., Dim #1-Dim #16, Average, Range. I need a macro to run automatically upon opening the worksheet that will position the cursor in the first empty Dim #1 (Column B) cell. Upon entry of the 16th pc of data, I need the cursor to reset to the Dim #1 (Column B) in the next row. Also, I would like to set the spreadsheet to either autosave within the macro that resets the cursor or autosave every X minutes. Anyone? -- Thanx, Loretta |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
programming help | Excel Discussion (Misc queries) | |||
programming help | Excel Discussion (Misc queries) | |||
Programming a NAME | Excel Programming | |||
Double-byte challenges. Please help! | Excel Programming | |||
Do I need programming for this? | Excel Programming |