Excel 从下拉列表中找到一个值，然后用“是”或“否”修改右侧的单元格4列

我想打开一个消息框，找到位于

第2页B列的报价编号。如果找到，消息框将要求更新该报价编号的状态，即F列右侧的4个单元格

我从另一个网站上抓取了一个代码作为另一个代码/按钮。当我尝试将其用于此应用程序时，它不会执行并修改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空格。
我无法查看编辑内容。我想我不在那个水平上(

我不能查看编辑。我想我不在那个级别(

要写入找到的单元格右侧的单元格4，请使用
aCell.Offset（0,4）=…
通常，我会问@chrisneilsen是否想写一个答案，你是否会接受，这样他就可以让代表提供答案。如果他不想，请写下你自己的答案并接受。这会让人们知道你的问题已经解决。要写到找到的单元格右侧的单元格4，请使用
aCell.Offset（0，4）=……
通常我会问@chrisneilsen是否想写一个答案，你是否会接受，这样他就可以让代表提供答案。如果他不想，那么请写你自己的答案并接受。这让人们知道你的问题已经解决。
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