Утверждение с использованием VBA

Question

Я застрял с кодом VBA нужна помощь ссылку на файл: https://1drv.ms/x/s!AiK9-yjZAUUwg210ToKJymNqQKFM

Нужно работать с двумя листами "View_Form" и "Tracker".

Когда мы выбрали Идентификатор файла (выделенный желтым цветом) на листе "View_Form" будут отображаться все данные, введенные для этой конкретной записи формы. Внизу я поместил одну кнопку в качестве подтверждения. Поэтому я ищу помощь, когда нажимается кнопка "Утвердить", необходимо найти выбранный идентификатор файла на листе "Трекер", и в конце этой строки соответствующего идентификатора файла (B) на данный момент в столбце HR должно отображаться слово "Утверждено".

Я постараюсь поставить в баллах:

1.  Sheet  select “View_Form” select file ID (highlighted in yellow)
2.  Will display all data in the fields automatically.
3.  Review all data
4.  Click approve 
5.  Selected File ID data in Sheet “Tracker” 
6.  That particular Row in Tracker Sheet at end (HR col) should show Value as Approved.

Answer 1

Если вам нужно добавить макрос к изображению утверждения, а затем добавить к нему следующий код, он должен добавить столбец Подтверждено в HR в Sheet Tracker:

Sub Picture1_Click()
Dim found As Range 'define variables
Dim SelectedFileID As String

SelectedFileID = Sheets("View_Form").Range("SelFileID").Value 'get the currently selected File ID

Set found = Sheets("Tracker").Range("B:B").Find(What:=SelectedFileID) 'find the file ID in the Sheet Tracker
    If Not found Is Nothing Then 'if found
        Sheets("Tracker").Unprotect Password:="1234" 'change the password to whatever you wish, this unlocks the sheet
        Sheets("Tracker").Cells(found.Row, 226).Value = "Approved" 'change the value of the row it was found, but column 226 which is column HR
        Sheets("Tracker").Range("A1:HR500").Cells.Locked = False 'keeps range unlocked
        Sheets("Tracker").Rows(found.Row).Cells.Locked = True 'while the appropriate rows are locked
        Sheets("Tracker").Protect Password:="1234" 'protect the sheet after updating to Approved on Column HR
    Else
        MsgBox "ID not found in Sheet Tracker!", vbInformation 'if not found then show message
    End If
End Sub