Найдите значение, затем измените ячейку 4 столбца справа с помощью Да или Нет из раскрывающегося списка.

Question

Я хочу открыть окно сообщения и найти номер цитаты, расположенный на sheet 2, column B.Если сообщение найдено, в окне сообщения будет предложено обновить статус этого номера цитаты, который на 4 ячейки справа, в столбце F.

Я получил код с другого веб-сайта для другого кода / кнопки.Когда я пытаюсь использовать его для этого приложения, оно не выполняет и изменяет последнюю запись в столбце F.

Я думаю, что строку Soldlr = Ws.Range("F" & Rows.Count).End(xlUp).Row необходимо изменить, чтобы она указала на изменение информации 4ячейки справа от любого номера кавычки, которое смог найти ящик сообщений.

Option Explicit

Sub UpdateEntry()
Dim ws As Worksheet
Dim strSearch As String
Dim aCell As Range
Dim Sold As String, Soldlr As Long

Set ws = Sheets("Data Entry")

With ws
    strSearch = InputBox("Enter Quote Number To Update", "Update Quote Entry")
    Set aCell = .Columns(2).Find(What:=strSearch, LookIn:=xlValues, _
                                 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                 MatchCase:=False, SearchFormat:=False)

    If Not aCell Is Nothing Then

        Sold = InputBox("Was This Quote Sold?", "Sales Entry", "Yes or No")
        aCell.Offset(0, 4) = Sold
        MsgBox "Quote Number " & strSearch & " Has Been Modified"

    Else

        MsgBox "Quote Number " & strSearch & " Not Found. Try Again"
    End If

    Exit Sub
End With
End Sub

Я ожидаю нажать кнопку и появится окно сообщения.Эта коробка будет запрашивать номер цитаты.Как только номер котировки введен, он будет искать этот номер котировки и спрашивать "Продан ли номер котировки" введен номер котировки "?"с выпадающим списком только двух возможных вариантов («Да» и «Нет»).Какой бы ответ ни был выбран, он заменит ячейку на 4 пробела справа от найденного номера кавычки.

Answer 1

Я не могу просматривать изменения.Я думаю, что я не на этом уровне.: (

Option Explicit

Sub UpdateEntry()
Dim ws As Worksheet
Dim strSearch As String
Dim aCell As Range
Dim Sold As String, Soldlr As Long

Set ws = Sheets("Data Entry")

With ws
    strSearch = InputBox("Enter Quote Number To Update", "Update Quote Entry")
    Set aCell = .Columns(2).Find(What:=strSearch, LookIn:=xlValues, _
                                 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                 MatchCase:=False, SearchFormat:=False)

    If Not aCell Is Nothing Then

        Sold = InputBox("Was This Quote Sold?", "Sales Entry", "Yes or No")
        aCell.Offset(0, 4) = Sold
        MsgBox "Quote Number " & strSearch & " Has Been Modified"

    Else

        MsgBox "Quote Number " & strSearch & " Not Found. Try Again"
    End If

    Exit Sub
End With
End Sub