Trying to Get a button to auto populate cells in a budget calendar I created

[scottyb1977]

I'm still new to VBA, Took a long break and started studying C++, so now I'm all confused as to how to get this done in VBA. So here is an image of the file. I have my bills located on the same sheet Starting at B76:D100, B76,C76, and D76 are titles Date, Item, Amount The Date is a formula.. As you can see A13 is also a formula and D13 is a different formula not sure if that makes a difference or not. I want to input this info into the calendar with a button kind of like a bank ledger on each day and I want the button to be able to auto populate all the reoccurring bills each month, and I want to input my bills into rows 16 to rows 22 where the dates match. Some will have multiple entries where there is multiple bills on the same day. Any help is greatly appreciated. Thanks in Advance!

Budget Calendar2.0.1.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB
9																			Select Month:			February			Year:		2022
10	February 2022
11	Starting Balance:																								$0.00
12	Sunday				Monday				Tuesday				Wednesday				Thursday				Friday				Saturday
13	30			$0.00	31			$0.00	01			$0.00	02			$0.00	03			$0.00	04			$0.00	05			$0.00
14	Pay	Item	Amount	Total	Pay	Item	Amount	Total	Pay	Item	Amount	Total	Pay	Item	Amount	Total	Pay	Item	Amount	Total	Pay	Item	Amount	Total	Pay	Item	Amount	Total
15			$0.00	$0.00			$0.00	$0.00			$0.00	$0.00			$0.00	$0.00			$0.00	$0.00			$0.00	$0.00			$0.00	$0.00
16
17
18
19
20
21
22
Sheet1

Cell Formulas
Range	Formula
A10	A10	=V9&" "&AA9
A13	A13	=Start-(WEEKDAY(Start)-1)
D13,AB13,X13,T13,P13,L13,H13	D13	=IF(C15="","",LOOKUP(2,1/(D15:D22<>""),D15:D22))
E13,Y13,U13,Q13,M13,I13	E13	=IF(A13<>"",A13+1,$Y1+1)
D15	D15	=IF(C15="","",IF(A15="P",$Y$11+C15,Y11-C15))
AB16:AB22,X16:X22,T16:T22,P16:P22,L16:L22,H16:H22,D16:D22	D16	=IF(C16="","",IF(A16="P",D15+C16,D15-C16))
H15,AB15,X15,T15,P15,L15	H15	=IF(G15="","",IF(E15="P",D13+G15,D13-G15))

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
Z22:AB22	Expression	=$Y$22="X"	text	NO
Z21:AB21	Expression	=$Y$21="X"	text	NO
Z20:AB20	Expression	=$Y$20="X"	text	NO
Z19:AB19	Expression	=$Y$19="X"	text	NO
Z18:AB18	Expression	=$Y$18="X"	text	NO
Z17:AB17	Expression	=$Y$17="X"	text	NO
Z16:AB16	Expression	=$Y$16="X"	text	NO
Z15:AB15	Expression	=$Y$15="X"	text	NO
V22:X22	Expression	=$U$22="X"	text	NO
V21:X21	Expression	=$U$21="X"	text	NO
V20:X20	Expression	=$U$20="X"	text	NO
V19:X19	Expression	=$U$19="X"	text	NO
V18:X18	Expression	=$U$18="X"	text	NO
V17:X17	Expression	=$U$17="X"	text	NO
V16:X16	Expression	=$U$16="X"	text	NO
V15:X15	Expression	=$U$15="X"	text	NO
R22:T22	Expression	=$Q$22="X"	text	NO
R21:T21	Expression	=$Q$21="X"	text	NO
R20:T20	Expression	=$Q$20="X"	text	NO
R19:T19	Expression	=$Q$19="X"	text	NO
R18:T18	Expression	=$Q$18="X"	text	NO
R17:T17	Expression	=$Q$17="X"	text	NO
R16:T16	Expression	=$Q$16="X"	text	NO
R15:T15	Expression	=$Q$15="X"	text	NO
N22:P22	Expression	=$M$22="X"	text	NO
N21:P21	Expression	=$M$21="X"	text	NO
N20:P20	Expression	=$M$20="X"	text	NO
N19:P19	Expression	=$M$19="X"	text	NO
N18:P18	Expression	=$M$18="X"	text	NO
N17:P17	Expression	=$M$17="X"	text	NO
N16:P16	Expression	=$M$16="X"	text	NO
N15:P15	Expression	=$M$15="X"	text	NO
J22:L22	Expression	=$I$22="X"	text	NO
J21:L21	Expression	=$I$21="X"	text	NO
J20:L20	Expression	=$I$20="X"	text	NO
J19:L19	Expression	=$I$19="X"	text	NO
J18:L18	Expression	=$I$18="X"	text	NO
J17:L17	Expression	=$I$17="X"	text	NO
J16:L16	Expression	=$I$16="X"	text	NO
J15:L15	Expression	=$I$15="X"	text	NO
F22:H22	Expression	=$E$22="X"	text	NO
F21:H21	Expression	=$E$21="X"	text	NO
F20:H20	Expression	=$E$20="X"	text	NO
F19:H19	Expression	=$E$19="X"	text	NO
F18:H18	Expression	=$E$18="X"	text	NO
F17:H17	Expression	=$E$17="X"	text	NO
F16:H16	Expression	=$E$16="X"	text	NO
F15:H15	Expression	=$E$15="X"	text	NO
B22:D22	Expression	=$A$22="X"	text	NO
B21:D21	Expression	=$A$21="X"	text	NO
B20:D20	Expression	=$A$20="X"	text	NO
B19:D19	Expression	=$A$19="X"	text	NO
B18:D18	Expression	=$A$18="X"	text	NO
B17:D17	Expression	=$A$17="X"	text	NO
B16:D16	Expression	=$A$16="X"	text	NO
B15:D15	Expression	=$A$15="X"	text	NO
A15:A22,M15:M22,Q15:Q22,U15:U22,Y15:Y22,Y25:Y32,U25:U32,Q25:Q32,M25:M32,I25:I32,E25:E32,A25:A32,A35:A42,E35:E42,I35:I42,M35:M42,Q35:Q42,U35:U42,Y35:Y42,Y45:Y52,U45:U52,Q45:Q52,M45:M52,I45:I52,E45:E52,A45:A52,A55:A62,E55:E62,I55:I62,M55:M62,Q55:Q62,U55:U62	Cell Value	contains ""	text	NO
A13,E13,I13,M13,Q13,U13,Y13,A23,E23,I23,M23,Q23,U23,Y23,Y33,U33,Q33,M33,I33,E33,A33,A43,E43,I43,M43,Q43,U43,Y43,Y53,U53,Q53,M53,I53,E53,A53,A63,E63,I63,M63,Q63,U63,Y63	Expression	=MONTH(A13)<>MONTH($AI$11)	text	NO
D15:D22,D25:D32,H15:H22,L15:L22,P15:P22,T15:T22,X15:X22,AB15:AB22,H25:H32,L25:L32,L35:L42,L45:L52,H35:H42,D35:D42,H45:H52,D45:D53,D43,D33,D23,H23,D13,H13,L13,P13,T13,X13,AB13,AB23,X23,T23,P23,L23,H33,L33,P33,P25:P32,T25:T33,X25:X33,AB25:AB33,AB35:AB43	Cell Value	<0	text	NO

Budget Calendar2.0.1.xlsm
	B	C	D
76	Date	Bills	Amount
77	2/1/2022	Mortgage	$1,350.00
78	2/1/2022	Bosco	$146.00
79	2/1/2022	Water	$40.00
80	2/3/2022	Chase	$30.00
81	2/3/2022	Capital One	$30.00
82	2/3/2022	Capital One	$30.00
83	2/3/2022	Amazon	$30.00
Sheet1

Cell Formulas
Range	Formula
B77:B79	B77	=DATEVALUE($A$10)
B80:B83	B80	=DATEVALUE($A$10)+2

Named Ranges
Name	Refers To	Cells
Print_Area	=Sheet1!$A$10:$AB$72	B77:B83

 

[scottyb1977]

To be fair I don't think I asked a question. I have tried to write several code attempts and I have failed.
This is one of the codes I attempted but it only turned the cell to true, Plus it was the cell that had the
date and I don't want to change the date values at all. I want to input the data from sheet 2 into a cell two rows down
then go to the next item on sheet 2 and so on until all dates have been put into the correct cells. Again any help is greatly appreciated.
So my question is How do I match dates and not change the date value to true? and how do I copy the data into right cells on the calendar?

Sub Add_Bills()

Dim MyRange As Range
Dim MyRange1 As Range
Dim MyRange2 As Range
Dim MyRange3 As Range
Dim MyRange4 As Range
Dim MyRange5 As Range
Dim MyCell As Range

Set MyRange = Sheets("Sheet1").Range("A13:Y13")
Set MyRange1 = Sheets("Sheet1").Range("A23:Y23")
Set MyRange2 = Sheets("Sheet1").Range("A33:Y33")
Set MyRange3 = Sheets("Sheet1").Range("A43:Y43")
Set MyRange4 = Sheets("Sheet1").Range("A53:Y53")
Set MyRange5 = Sheets("Sheet1").Range("A63:Y63")

For Each MyCell In MyRange

If MyCell.Value = Sheets("Sheet2").Range("A2").Value Then
MyCell.Value = Sheets("Sheet2").Range("B3").Copy

Sheets("Sheet1").Range("myRange").Offset(1, 4).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[scottyb1977]

Well this is the code I wrote and it seems to work. I am sure there is a better way to write it, but since no one has commented on it I guess there isn't. Thanks for the help.
Sub Add_Bills()

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A3").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B3").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C3").Value

End If


Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A4").Value Then
myCell.Offset(5, 1).Value = Sheets("Sheet2").Range("B4").Value
myCell.Offset(5, 2).Value = Sheets("Sheet2").Range("C4").Value

End If


Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 3rd
If myCell.Value = Sheets("Sheet2").Range("A5").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B5").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C5").Value

End If


Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A6").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B6").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C6").Value

End If


Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A7").Value Then
myCell.Offset(5, 1).Value = Sheets("Sheet2").Range("B7").Value
myCell.Offset(5, 2).Value = Sheets("Sheet2").Range("C7").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A8").Value Then
myCell.Offset(6, 1).Value = Sheets("Sheet2").Range("B8").Value
myCell.Offset(6, 2).Value = Sheets("Sheet2").Range("C8").Value

End If

Next myCell


For Each myCell In myRange
'Next Day of Month Bills to insert 4th
If myCell.Value = Sheets("Sheet2").Range("A9").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B9").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C9").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A10").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B10").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C10").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A11").Value Then
myCell.Offset(5, 1).Value = Sheets("Sheet2").Range("B11").Value
myCell.Offset(5, 2).Value = Sheets("Sheet2").Range("C11").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 7th
If myCell.Value = Sheets("Sheet2").Range("A12").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B12").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C12").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 10th
If myCell.Value = Sheets("Sheet2").Range("A13").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B13").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C13").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A14").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B14").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C14").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 11th
If myCell.Value = Sheets("Sheet2").Range("A15").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B15").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C15").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 14th
If myCell.Value = Sheets("Sheet2").Range("A16").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B16").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C16").Value

End If

Next myCell
For Each myCell In myRange
'Next Day of Month Bills to insert 15th
If myCell.Value = Sheets("Sheet2").Range("A17").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B17").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C17").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 19th
If myCell.Value = Sheets("Sheet2").Range("A18").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B18").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C18").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 21st
If myCell.Value = Sheets("Sheet2").Range("A19").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B19").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C19").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A20").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B20").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C20").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A21").Value Then
myCell.Offset(5, 1).Value = Sheets("Sheet2").Range("B21").Value
myCell.Offset(5, 2).Value = Sheets("Sheet2").Range("C21").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 22nd
If myCell.Value = Sheets("Sheet2").Range("A22").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B22").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C22").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 25th
If myCell.Value = Sheets("Sheet2").Range("A23").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B23").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C23").Value

End If

Next myCell

For Each myCell In myRange

If myCell.Value = Sheets("Sheet2").Range("A24").Value Then
myCell.Offset(4, 1).Value = Sheets("Sheet2").Range("B24").Value
myCell.Offset(4, 2).Value = Sheets("Sheet2").Range("C24").Value

End If

Next myCell

For Each myCell In myRange
'Next Day of Month Bills to insert 28th
If myCell.Value = Sheets("Sheet2").Range("A25").Value Then
myCell.Offset(3, 1).Value = Sheets("Sheet2").Range("B25").Value
myCell.Offset(3, 2).Value = Sheets("Sheet2").Range("C25").Value

End If

Next myCell

End Sub