Мне нужно создать макрос, который выполняет обновление с листа на другой.
На одном листе у меня есть строка с информацией, которая постоянно обновляется (вручную), и мне нужно проверить другой лист в столбце, если эта информация уже здесь, если нет, обновите и запишите новую информацию в этот столбец.
Вот мой код:
Sub Update()
Dim Final As Worksheet
Dim Actual As Worksheet
Dim recRow As Long
Dim lastrow As Long
Dim recCol As Long
Dim lastCol As Long
Dim fcell As Range
Dim i As Long
Set Roles = Worksheets("Actual")
Set Final = Worksheets("Final")
Application.ScreenUpdating = False
recRow = 1
With Actual
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
Set colcount = Final.Range("A:A").Find(what:=.Cells(i, "A").Value, lookat:=xlWhole, MatchCase:=False)
If Not fcell Is Nothing Then
recRow = fcell.Row
Else
.Cells(i, "A").EntireRow.Copy
Final.Cells(recRow + 1, "A").EntireRowInsert
recRow = recRow + 1
End If
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub