I have created this piece of code and it is not the messiest or long winded piece I have ever made but I need to create more like the one below. This would make it very messy as there would be pages of if statements rather than a few arrays if possible. The code that I have created looks at the value in a cell on one sheet and depending on the value it assigns a cell in a second sheet the value of a cell in a third sheet. Hopefully that is not confusing but here is my code:
Sub Recording()
Dim lngWriteRow As Long
Dim sws As Worksheet
Dim rws As Worksheet
Set sws = Worksheets("Order System")
Set rws = Worksheets("Sales Table")
Set cws = Worksheets("Case")
If sws.Range("C4").Value = "1" Then
rws.Range("L4").Value = cws.Range("B14").Value
Else
If sws.Range("C4").Value = "2" Then
rws.Range("L4").Value = cws.Range("F14").Value
Else
If sws.Range("C4").Value = "3" Then
rws.Range("L4").Value = cws.Range("J14").Value
Else
If sws.Range("C4").Value = "4" Then
rws.Range("L4").Value = cws.Range("N14").Value
Else
If sws.Range("C4").Value = "5" Then
rws.Range("L4").Value = cws.Range("R14").Value
Else
If sws.Range("C4").Value = "6" Then
rws.Range("L4").Value = cws.Range("V14").Value
Else
If sws.Range("C4").Value = "7" Then
rws.Range("L4").Value = cws.Range("B28").Value
Else
If sws.Range("C4").Value = "8" Then
rws.Range("L4").Value = cws.Range("F28").Value
Else
If sws.Range("C4").Value = "9" Then
rws.Range("L4").Value = cws.Range("J28").Value
Else
If sws.Range("C4").Value = "10" Then
rws.Range("L4").Value = cws.Range("N28").Value
Else
If sws.Range("C4").Value = "11" Then
rws.Range("L4").Value = cws.Range("R28").Value
Else
If sws.Range("C4").Value = "12" Then
rws.Range("L4").Value = cws.Range("V28").Value
End Sub
Bookmarks