VBA Submission form

[MrRosco]

Hi Everyone

Im in need of some help with the document im working on. Ive created a submission form which will populate a hidden database

i need the code to copy data from the form to specific cell in the database
the table below gives the corresponding cells to the columns in the database.

the document will have no limit on the number of rows, i need it to find the next available row for it to populate then clear the submission
form when done, ready for the next entry.

One sticking point is that i need it to block saving it if code 609110 is used and no text has been inputted into cell F11

any help on this will be greatly appreciated

**THE DATABASE STARTS FROM ROW 6**

FORM "SG&A Submission"	DATABASE "SG&A Tracker"
A7	F
C7	J
A11	K
E7	N
E11	R
E14	S
F11	U

<tbody>
</tbody>

 

[rpaulson]

Untested,

try this on a copy of file:

Sub do_it()
Dim rs As Worksheet

Set rs = Worksheets("SG&A Tracker")

If Range("F11") = "" Then
    MsgBox "Cell F11 is empty"
    Exit Sub
End If

lr = rs.Range("A" & Rows.Count).End(xlUp).Row + 1

rs.Cells(r, "F") = Range("A7")
rs.Cells(r, "J") = Range("C7")
rs.Cells(r, "K") = Range("A11")
rs.Cells(r, "N") = Range("E7")
rs.Cells(r, "R") = Range("E11")
rs.Cells(r, "S") = Range("E14")
rs.Cells(r, "U") = Range("F11")

Range("A7").ClearContents
Range("C7").ClearContents
Range("A11").ClearContents
Range("E7").ClearContents
Range("E11").ClearContents
Range("E14").ClearContents
Range("F11").ClearContents


End Sub

hth,

Ross