Sub sumcopy()
'April/2017
Dim first_day, lasy_day, month, year As Integer
Dim mmonth As String
Dim source_file As String
month = InputBox("Please enter the Month", "TCU//QNB Finansbank")
year = Worksheets("Macro").Cells(6, 2)
'Hangi ay hangi sayfada onu buluyoruz.
If...