Copying Data from other workbook and pasting in new workbook depending on Month input

[whiskey_pickle]

Hello!

I am not versed in VBA whatsoever, and have a daunting task.

I have a brief (Workbook A) that I update every week from a report that's generated and sent to me (Workbook B). Usually I just copy the data I need from Worksheet B into Worksheet A but my superiors want a code that automatically generates it.

So here it is, my SOS:

I need help with having a tab in Workbook A that I click a "Run Report" button that prompts me to enter in the month I want to update, link/upload Worksheet B and then it pastes the Obligations and Expenditures into another tab in Workbook A. That tab in workbook A basically mirrors Worksheet B's tab except it only contains the 2 types of data I need for each month.


Thank you in advance everyone for anything and everything you may provide!

Supporting Links:

Workbook B: Report that I want to link/upload the first tab to Workbook A
https://imgur.com/DGyVgFZ

Workbook A Tab that is populated by Workbook B:
https://imgur.com/tWeB6D2

 

[oldbrewer]

do you want the first tab to be copied over in its entirety ?

 

[whiskey_pickle]

Thank you for your response!

In short, no. I would only want the data in "Gross Obs" and "Expenditure" Columns (Columns H and I) from Worksheet B to be copied over to Worksheet A in the month that was specified by the input prompt. I hope this answers your question! Please let me know if you need more information.

 

[oldbrewer]

if you make sheet2 cell A1 =[workbook B]sheet1!A1 and copy down and across sheet 2 is then a copy of workbook B

then this macro, written and run from sheet2 of workbook A will grab the correct data and put it in sheet1 of workbook A for you

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 12/03/2019 by bob
'


'
Dim obs(100), expend(100)
For j = 5 To 100
If Cells(j, 1) = Cells(1, 6) Then Sum = Sum + 1: obs(Sum) = Cells(j, 4): expend(Sum) = Cells(j, 6)
Next j
Sheets(1).Select
For k = 1 To Sum
Cells(k, 1) = obs(Sum): Cells(k, 2) = expend(Sum)
Next k
End Sub

 

[whiskey_pickle]

Thank you!