ต้องการ uodate ข้อมูลหลาย บรรทัด ลงในเซล

[yodpao.b]

ต้องการ uodate ข้อมูลหลาย บรรทัด ลงในเซล

0.JPG

ความต้องการ คือ
ใน sheet " Database ' ในคอลัม "ID Number" ID Number ที่ 35 ,36 ให้ใส่ข้อความว่า "เบิกยืมได้"

ขั้นตอนการทำงาน
1.ให้มอง ID Number ใน sheet " Addrequisition1 "
2.นำ ID Number ไปเทียบกับ ID Number ใน sheet " Database ' เมื่อเจอให้ใส่ข้อความ "เบิกยืมได้" ในคอลัม E โดยให้ตรงกับ ID Number

code ที่ผมใช้ใส่ได้ บรรทัดเดียวครับ

1.JPG

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 มาโคร1 ก็ ีupdate ได้ บรรทัดเดียวเหมือนกัน

[logic]

code ที่ผมใช้ใส่ได้ บรรทัดเดียวครับ

Code บรรทัดนี้ไว้ให้ทำอะไรครับ ⬇

Exit For

[yodpao.b]

ผมก็ไม่รู้ครับ copy code ที่อื่นมา ทำแล้วผลออกมาถูกต้องกับส่วนอื่น
ก็เลยคิดว่าน่าจะลองนำมาใช้กับส่วนนี้ ครับ
พูดแบบไม่อายเลยนะครับ ผมไม่เข้าใจ code เลย
จะเข้าใจก็ตรงใช้ มาโคร อัดการทำงานครับ

[logic]

เอาบรรทัดนั้นออกไปแล้วลองรันใหม่น่าจะได้นะครับ

[yodpao.b]

ผลเหมือนเดิมครับ
ทำงานบรรทัดเดียว

[Bo_ry]

เช็คกับค่าเดียว Sheets("Addrequisition1").Range("E2") ก็ไส่ค่าเดียว

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

[yodpao.b]

ขอบคุณมากครับ

[yodpao.b]

อีก 10 % ก็เสร็จแล้ว

[yodpao.b]

ถ้าข้อมูลมีบบรทัดเดียว มัน error ครับ

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

[snasui]

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

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

[yodpao.b]

ขอบคุณมากครับทุกท่านเลย
ไฟล์นี้เสร็จแล้ว
คืนนี้จะลองทดสอบดูครับ