ต้องการให้ค้นหา ข้อความที่เหมือนกัน แล้วให้ใส่ข้อมูลลงไปในเชลที่กำหนด

[yodpao.b]

ต้องการให้ค้นหา ข้อความที่เหมือนกัน แล้วให้ใส่ข้อมูลลงไปในเชลที่กำหนด

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

ให้ค้นหาข้อความในเซล D7 ( Sheets("Orther1").Range("D7") )
ไปเทียบข้อมูลในคอลัม A:A ( Sheets("calibrateREQSIT").Range("A:A") )
เมื่อเจอว่าตรงกัน ให้เอาค่าใน B4 ( Sheets("Orther1").Range("B4") )
ไปใส่ไว้ในเซลที่กำหนด
ทำงานได้ถูต้อง

แต่พอมันหาไม่เจอ หมายความว่า ไม่มีข้อมูลที่เหมือนกัน
มัน ดีบัค ครับ
แก้อย่างไรดีครับ
ต้องการให้ เมื่อหาไม่เจอข้อความที่เหมือนกัน ให้ ปล่อยผ่านไปทำ code ต่อไป

[snasui]

กรุณาแนบไฟล์นั้นมาด้วยจะได้สะดวกในการตอบครับ

[yodpao.b]

ขั้นตอนทำงาน
1.ใส่เลข 34
2.คลิกปุ่ม
แสดงผล ก่อน คลิกปุ่ม

0.JPG

แสดงผล หลัง คลิกปุ่ม

1.JPG

3.ใส่เลข 10
4.คลิกปุ่ม
แสดงผล หลัง คลิกปุ่ม

2.JPG

[yodpao.b]

ไฟล์แนบ

[snasui]

ตัวอย่างการปรับ Code ครับ

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

[yodpao.b]

"?? ????

ความหมาย คือ เผื่อไว้เป็นข้อความอื่นๆ ใช่ไหมครับ

[snasui]

"?? ????

ความหมาย คือ เผื่อไว้เป็นข้อความอื่นๆ ใช่ไหมครับ

เครื่องหมายคำถามที่ยกมาอยู่ที่ไหนกรุณาลงรายละเอียดครับ

[yodpao.b]

Code: Select all

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

ผมเข้าใจแล้วครับ มันไม่เป็นภาษา

ตอนนี้ทำงานได้แล้วครับ

[yodpao.b]

ขอถามอีกหน่อยครับ
Dim LRegion As String, c As Range


Dim LRegion As String คือ LRegion = Sheets("Orther1").Range("D7").Value

c As Range ไม่เห็น มีตัวแปร แบบด้านบนเลยครับ

[snasui]

ต้องการจะเห็น c ที่ตำแหน่งไหนจึงจะเข้าใจว่ามี ขอรายละเอียดด้วยครับ

[yodpao.b]

ขอโทษครับ
ดูไม่ละเอียดเจอแล้วครับ
Set c = Sheets("calibrateREQSIT").Range("A:A").Find(What:=.Range("B9").Value