How populate last value from file to another

[Mussala]

Hello
I have file name(OUTPUT.xlsm) and file name(STOCK.xlsm) and both files are existed in folder(REPORT) in "D:\Users\MUSSS\Desktop\REPORT"
in OUTPUT file contains SUMMARY sheet should populate value in B4 from the last cell contains numeric value in column H in SH sheet for STOCK file , every time run the macro should replace the value in B4 in SUMMARY sheet for OUTPUT file.
thanks

 

[DanteAmor]

Try this:

Sub populate_last_value()
  Dim wb1 As Workbook, wb2 As Workbook
  Dim sPath As String
  
  sPath = "D:\Users\MUSSS\Desktop\REPORT\"
  
  Set wb1 = Workbooks.Open(sPath & "OUTPUT.xlsm")
  Set wb2 = Workbooks.Open(sPath & "STOCK.xlsm")
  
  wb1.Sheets("SUMMARY").Range("B4").Value = wb2.Sheets("SH").Range("H" & Rows.Count).End(3).Value

  wb1.Close True
  wb2.Close False
End Sub

 

[Mussala]

Hi,
doesn't seem to work . doesn't show anything , just run but there is no value in B4 for OUTPUT file in summary sheet !

 

[DanteAmor]

You can put a minisheet or an image of your Stock file from the SH sheet, to see what you have in the last cell of column H.

Also check that on the SH sheet, in the last cell with data you have information, it may be that the last cell has blank spaces, so check carefully which is the last cell with data, you can verify it if you go to the last one cell in column H (H1048576), press the end key once and then the up key. Check where the cursor stops and post the image of the cursor here.

 

[Mussala]

Hi again ,
I tested in another laptop seem to be work , but I don't want close OUTPUT file .just I want close STOCK file after run the macro . I try doing this like you , but still close OUTPUT file and keep STOCK file is open !

wb1.Close False
  wb2.Close True

 

[DanteAmor]

I tested in another laptop seem to be work

I don't want close OUTPUT file

Just delete this line:
wb1.Close True

 

[Mussala]

great !
thanks very much .