Я хочу экспортировать данные из одной рабочей книги в другую ............ Данные для экспорта из исходной рабочей книги (имя исходной рабочей книги должно быть записано в ячейке "M1") и рабочей таблице "SALARY" от столбца диапазона E4 до S К рабочей книге назначения (имя рабочей книги должно быть записано в «N11») и столбец диапазона «SALARY DETAIL» таблицы A2 - O. И я хочу экспортировать данные, если столбец «US» имеет значение больше нуля ,
Sub Salary()
Name = ThisWorkbook.Worksheets("24Q INPUT DATA").Range("M1").Value
Set src = Workbooks(Name).Sheets(6)
x = Workbooks(Name).Sheets(6).Range("N11").Value
Set des = Workbooks(x).Sheets(4)
' desitination file
L2 = src.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.Sum(src.Columns("US")) > 0 Then
src.Range("UJ12:ZB" & L2).Copy
des.Range("A3").PasteSpecial xlPasteValues
End If
Set src = Nothing
Set des = Nothing
End Sub
В настоящее время данные экспортируются, но все данные экспортируются, даже столбец "US" имеет ноль.