Snasui Excel Forum

Code: Select all

   Dim LRegion As String
   LRegion = Sheets("Orther1").Range("D7").Value
   
   If LRegion = "ส่ง Service & Calibrate" Or LRegion = "ส่ง ซ่อม & Calibrate" Then  '
        
        With Sheets("Orther1")
            For Each r In .Range("B9")
                Sheets("calibrateREQSIT").Range("A:A").Find(What:=r.Value, LookAt:=xlWhole).Offset(0, 7).Value = Sheets("Orther1").Range("B4").Value
            Next
        
        End With
   End If

Code: Select all

'Other code
Dim LRegion As String, c As Range
LRegion = Sheets("Orther1").Range("D7").Value
If LRegion = "Êè§ Service & Calibrate" Or LRegion = "Êè§ «èÍÁ & Calibrate" Then  '
    With Sheets("Orther1")
        'For Each r In .Range("B9")
        Set c = Sheets("calibrateREQSIT").Range("A:A").Find(What:=.Range("b9").Value, _
            LookAt:=xlWhole)
        If Not c Is Nothing Then c.Offset(0, 7).Value = Sheets("Orther1").Range("B4").Value
        'Next
    End With
End If
'Other code

Code: Select all

If LRegion = "Êè§ Service & Calibrate" Or LRegion = "Êè§ «èÍÁ & Calibrate" Then