Hi,
This is my first post here after getting back into the world of VBA to help make life easier.
I am making a budget planner to help when I move into a new flat. This planner contains all my incomes and expenses, I have created a long IF statement which checks which month we are in and inputs these figures into the main budget from the working area.
This is the code I currently have which is not really the most easily readable. I was wondering if there is an easier way to get to the same conclusion.
Any assistance will be a great help as I will not need to copy and paste this for each of the different expense sections.Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Month As Integer Month = Range("G2").Value 'Food------------------------------------------------------------- If Target.Address = "$F$15" And Month = "1" Then 'January ThisWorkbook.Sheets("Personal Budget").Range("B32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "2" Then 'Febuary ThisWorkbook.Sheets("Personal Budget").Range("C32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "3" Then 'March ThisWorkbook.Sheets("Personal Budget").Range("D32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "4" Then 'April ThisWorkbook.Sheets("Personal Budget").Range("E32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "5" Then 'May ThisWorkbook.Sheets("Personal Budget").Range("F32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "6" Then 'June ThisWorkbook.Sheets("Personal Budget").Range("JG32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "7" Then 'July ThisWorkbook.Sheets("Personal Budget").Range("H32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "8" Then 'August ThisWorkbook.Sheets("Personal Budget").Range("I32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "9" Then 'September ThisWorkbook.Sheets("Personal Budget").Range("J32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "10" Then 'October ThisWorkbook.Sheets("Personal Budget").Range("K32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "11" Then 'November ThisWorkbook.Sheets("Personal Budget").Range("L32") = Range("F15").Value ElseIf Target.Address = "$F$15" And Month = "12" Then 'Dcember ThisWorkbook.Sheets("Personal Budget").Range("M32") = Range("F15").Value End If End Sub
Luke