У меня есть 2 листа в 2 разных рабочих книгах.
а) Рабочая тетрадь (А). Листы ("А")
б) Рабочая тетрадь (Б) .Sheets ( "В")
Лист A в рабочей книге A является файлом назначения.
Лист B в Рабочей книге B является исходным файлом.
Пользователь Введите имя файла B (чтобы открыть лист B) на листе A, затем на листе B он циклично находит значения, превышающие контрольное значение. При найденном значении значение будет скопировано и вставлено на лист A (рабочая книга b) мгновенно. Затем вернитесь в таблицу B, чтобы найти последующее значение (которое больше эталонного значения). Процесс продолжается до тех пор, пока не будет соответствовать определенным критериям.
Мне удается найти значение в цикле, но мне нужно вставить значение в лист B, а затем скопировать в лист A. Конечно, пользователь должен щелкнуть сообщение, чтобы сохранить лист B.
Ниже код написан. Просьба просветить меня.
Dim VerR As Workbook
Dim VerRDest As Worksheet
Dim VerRMaxR As Range
Application.ScreenUpdating = False
XLS = Cells(16, 5)
Workbooks(XLS).Activate
Sheets("ROLLER").Select
Path = Cells(18, 5)
NoR = Cells(17, 5)
Workbooks.Open Filename:=Path
Set VerR = Workbooks(XLS)
Sheets("Stat_1").Select
y = 3
i = 4
Do While (Cells(i, 1) <> "")
i = i + 1
Loop
m2 = i - 1
For x = 4 To m2
If (cells(x,2)>5) Then
y = y + 1
TF = True
If TF Then
Cells(y, 6) = Cells(x + 1, 1)
Cells(y, 5) = Cells(x + 1, 2)
End If
End If
Next x
Set VerMax1 = ActiveSheet.Range(Cells(4, 5), Cells(y, 6))
VerMax1.Copy
ActiveWorkbook.Close
Set VerRDest = VerR.Worksheets("ROLLER")
Set VerRMaxR = VerRDest.Range(Cells(4, 3), Cells(y, 4))
VerRMaxR.PasteSpecial , Paste:=xlPasteValues
Моя цель - вставить значение, не затрагивая исходную книгу. Пожалуйста, помогите. Спасибо. Я действительно ценю твою идею. Я в конце концов.