Snasui Excel Forum

Code: Select all

Sub Macro2()
    
LastRow = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
    If Sheets("Database").Cells(i, "A").Value = Sheets("Addrequisition1").Range("E2") Then
         Sheets("Database").Cells(i, 5).Value = "เบิกยืมได้"
        Exit For
    End If
Next
    
End Sub

Code: Select all

Sub Macro2()
With Sheets("Addrequisition1")
    For Each r In .Range("E2", .Range("E2").End(xlDown))
        Sheets("Database").Cells(Sheets("Database").Range("A:A").Find(What:=r.Value, LookAt:=xlWhole).Row, 5).Value = "เบิกยืมได้"
    Next
End With
End Sub

Code: Select all

Sub Macro2()
With Sheets("Addrequisition1")
    For Each r In .Range("E2", .Range("E2").End(xlDown))
        Sheets("Database").Cells(Sheets("Database").Range("A:A").Find(What:=r.Value, LookAt:=xlWhole).Row, 5).Value = "ddddddddd"
    Next
End With
End Sub

Code: Select all

'Other code
For Each r In .Range("E2", .Range("E" & .Rows.Count).End(xlUp))
    Sheets("Database").Range("A:A").Find(What:=r.Value, LookAt:=xlWhole).Offset(0, 4).Value = "ddddddddd"
Next
'Other code