Try
Sub import()
Dim wkb As Workbook
Dim z As Long
Dim flpath As String
Set wkb = Workbooks.Open(Application.GetOpenFilename("Excel File
(*.xls*)," & "*xls*"))
z = ThisWorkbook.Sheets(1).Range("a65356").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("a" & z).Value = wkb.Sheets(1).textbox1.Value
Th
Dear Team
Needs your support. Please find attached two workbooks, description are as
follows:
1. *AMR FORM* - that I used to received from different locations.
2. *Database *- that is the database to store data from *AMR FORM* workbook.
I want the macro code in the *database* sheet linked to