Hi guys,
I have the following macro which allows you to enter a row of data (Only one row will be visible), then you press a command button and the row of data is inputted into another work sheet.
* I would like a way of ensuring that Excel checks the whole row of data has been filled out before allowing itself to run the following macro (which copies and paste all the data across to the other worksheet).
Here is the code I have so far. (Just to advise this macro starts on the "AddRecord" sheet.
Please someone out there if you can help me I would be forever grateful!!! :D
Sub addtoInboundWorkstack()
'
' addtoInboundWorkstack Macro
' Add record to Inbound Workstack
'
'
Range("A3:I3").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.Copy
Sheets("Inbound Workstack").Select
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 24
Range("A26").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 9).Range("A1").Select
Sheets("AddRecord ").Select
ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Select
End Sub
Happy Easter!
Bookmarks