Hello,
I'm having a problem with extracting and paste the filename into another workbook.
I have code for:
Copy Cell "R19" in "Sheet1", in every workbook in folder "Test3".
Paste that value into workbook: "vikt.xlsm", column "W" with:
Workbooks("vikt.xlsm").Worksheets("Sheet1").Range("W" & Rows.count).End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues.
But how to:
Adjacent to that value in column "W", insert in column "X", the workbook name the value came from?
Any help would be much appreciated.
Thanks.
I'm having a problem with extracting and paste the filename into another workbook.
I have code for:
Copy Cell "R19" in "Sheet1", in every workbook in folder "Test3".
Paste that value into workbook: "vikt.xlsm", column "W" with:
Workbooks("vikt.xlsm").Worksheets("Sheet1").Range("W" & Rows.count).End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues.
But how to:
Adjacent to that value in column "W", insert in column "X", the workbook name the value came from?
Any help would be much appreciated.
Thanks.