BexleyManor
06-24-2005, 06:08 AM
Sub Enter_Agreement_details()
Dim Iput As String, Data As Variant, i As Integer
Sheet3.Select
Range("A1").End(xlDown).Offset(1, 0).Select
Data = Array("Agreement Number", "Parent Company", "Title", "First Name", "Surname", "Street", "Town", "City", "County", "Post Code", "Phone", "Fax", "E-Mail", "Application Received", "UNA To Site", "UNA Received From Site", "UNA To DEFRA", "DEFRA Approved")
For i = LBound(Data) To UBound(Data)
Iput = InputBox(".:: p l e a s e e n t e r f o l l o w i n g d a t a ::. " & Chr(10) & Chr(10) & Data(i), Data(i))
Next i
Ok, what I would like the above to do is take the data it receives from the inputbox and place it on the worksheet starting at the point selected by the code Range("A1").End(xlDown).Offset(1, 0).Select so for arguments sake say it selects A10 then the following data should then go in B10, C10, D10 etc until the array has completed asking for data.
Hope this Makes sense?
Cheers folks!!
Dim Iput As String, Data As Variant, i As Integer
Sheet3.Select
Range("A1").End(xlDown).Offset(1, 0).Select
Data = Array("Agreement Number", "Parent Company", "Title", "First Name", "Surname", "Street", "Town", "City", "County", "Post Code", "Phone", "Fax", "E-Mail", "Application Received", "UNA To Site", "UNA Received From Site", "UNA To DEFRA", "DEFRA Approved")
For i = LBound(Data) To UBound(Data)
Iput = InputBox(".:: p l e a s e e n t e r f o l l o w i n g d a t a ::. " & Chr(10) & Chr(10) & Data(i), Data(i))
Next i
Ok, what I would like the above to do is take the data it receives from the inputbox and place it on the worksheet starting at the point selected by the code Range("A1").End(xlDown).Offset(1, 0).Select so for arguments sake say it selects A10 then the following data should then go in B10, C10, D10 etc until the array has completed asking for data.
Hope this Makes sense?
Cheers folks!!