excel vba: копировать значение ячейки из одной книги в другую?

Question

Я пытаюсь скопировать значение из ячейки Ь из активной строки на листе «SupplierTracking», когда текст «отправить опрос» щелкают в колонке BA и вставьте в ячейке A2 на другой моей книге «Supplier Survey» на "Data ' лист.

По какой-то причине я не получаю никаких ошибок, однако ничто не вставлено в ячейку A2 на моей другой книге.

Может кто-нибудь, пожалуйста, покажите мне, где я иду не так. спасибо заранее

If Target.Column = Range("BA1").Column And Range("BA" & ActiveCell.Row).Value = "Send Survey" Then 
Application.ScreenUpdating = False 
Dim wb As Workbook 
Dim ws1112 As Worksheet 
Dim ws2221 As Worksheet 
Set ws1112 = Sheets("SupplierTracking") 
Set wb = Workbooks.Open("\\{server address}\assets\Supplier Survey.xls") 
Set ws2221 = wb.Sheets("Data") 
ws2221.Range("A2").Value = ws1112.Range("B" & ActiveCell.Row).Value 
'Optional if you want to close the workbook afterwards 
wb.Close SaveChanges:=True 
Application.ScreenUpdating = True 
End If 

Answer 1

мне удалось решить ответ на мой вопрос, мне нужно, чтобы сохранить activeCell.Row в качестве переменной строки, как так

If Target.Column = Range("BA1").Column And Range("BA" & ActiveCell.Row).Value = "Send Survey" Then 

Dim wb As Workbook 
Dim ws1112 As Worksheet 
Dim ws2221 As Worksheet 
Dim s As String 
Dim r As String 
Set ws1112 = Sheets("SupplierTracking") 
s = ws1112.Range("B" & ActiveCell.Row).Value 
r = ws1112.Range("C" & ActiveCell.Row).Value 
Set wb = Workbooks.Open("\\UKSH000-File06\Purchasing\New_Supplier_Set_Ups_&_Audits\assets\Supplier Survey.xls") 
Set ws2221 = wb.Sheets("Data") 

ws2221.Range("A2").Value = s 
ws2221.Range("B2").Value = r 
'Optional if you want to close the workbook afterwards 
wb.Close SaveChanges:=True 

End If