Snasui Excel Forum

Code: Select all

Sub save2()

Application.ScreenUpdating = False

    Dim wbMaster As Workbook
    Dim wbLocal As Workbook
    Dim masterNextRow As Long
    
    Set wbLocal = ThisWorkbook
    
    Set wbMaster = Workbooks.Open("D:\Desktop\Stock take\Data.xlsx")
    
    	masterNextRow = wbMaster.Worksheets("Data").Range("A" & 
	wbMaster.Worksheets("Data").Rows.Count).End(xlUp).Offset(1).Row
    
    wbMaster.Worksheets("Data").Cells(masterNextRow, 1).Value = wbLocal.Worksheets("Scan").Range("J2").Value
    
    wbMaster.Close True
    
    wbLocal.Worksheets("Scan").Range("J2:J55").Value = ""
        
    MsgBox "saved"
    
Application.ScreenUpdating = True

End Sub

Code: Select all

Sub save2()
Application.ScreenUpdating = False
    Dim wbMaster As Workbook
    Dim wbLocal As Workbook
    Dim masterNextRow As Long
    Set wbLocal = ThisWorkbook
    Set wbMaster = Workbooks.Open("C:\Users\Stock Manager\Downloads\Data.xlsx") 'D:\Desktop\Stock take\Data.xlsx
    masterNextRow = wbMaster.Worksheets("Data").Range("A" & wbMaster.Worksheets("Data").Rows.Count).End(xlUp).Offset(1).Row
    wbLocal.Activate
    wbLocal.Worksheets("Scan").Range("b2:b" & Range("b" & Worksheets("Scan").Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Copy
    wbMaster.Worksheets("Data").Cells(masterNextRow, 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   wbMaster.Close True
    wbLocal.Worksheets("Scan").Range("b2:b55").Value = ""
Application.ScreenUpdating = True
    MsgBox "Saved"
End Sub