สอบถามการบันทึกข้อมูล รายการที่Updateล่าสุด

[sakajohn]

ต้องการนำข้อมูลในช่อง E2 ที่Sheet Pd ไปบันทึกใน Sheet Data ตามรหัส โดยให้บันทึกลงในข้อมูลที่ Update ล่าสุดครับ

Code: Select all

Sub PD()
Sheets("PD").Activate
Application.Goto Reference:="OFFSET(R2C1,0,4,1,1)"
   Selection.Copy
Sheets("Data").Select
    'Sheets("Sheet1").Select
   'Sheets("PD").Activate
     Application.Goto Reference:= _
        "OFFSET('[Test.xlsm]Data'!R2C1,MATCH(R2C1,INDEX('[Test.xlsm]Data'!R2C1:R50000C1,0),0),4)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

จากCode นี้มันจะไปบันทึกทับข้อมูลบรรทัดแรก ทุกครั้งครับ ทำยังไงให้บันทึกลงในข้อมูลที่ Update ล่าสุดครับ

[parakorn]

ตัวอย่างโค้ดครับ

Code: Select all

Sub PD()

Dim firstID As String

    Sheets("PD").Activate
    Application.Goto Reference:="OFFSET(R2C1,,,,6)"
       Selection.Copy
   
    Sheets("Data").Select
    
    firstID = Range("A2").Value
    If firstID = """" Then Application.Goto Reference:="R2C1" 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Else
    
    Application.Goto Reference:="R1C1"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

[sakajohn]

ตัวอย่างโค้ดครับ

Code: Select all

Sub PD()

Dim firstID As String

    Sheets("PD").Activate
    Application.Goto Reference:="OFFSET(R2C1,,,,6)"
       Selection.Copy
   
    Sheets("Data").Select
    
    firstID = Range("A2").Value
    If firstID = """" Then Application.Goto Reference:="R2C1" 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Else
    
    Application.Goto Reference:="R1C1"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

จากcodeที่ให้มา คือ copy ทั้งแถว ไปต่อท้ายข้อมูล ซึ่งไม่ตรงกับความต้องการครับ
แต่ที่ต้องการคือ ให้ Copy คำว่า "ผลิตแล้ว" ในsheet PD ไปวางให้ตรงกับรหัสเดิม ที่เป็นข้อมูลล่าสุด ในsheet Data ตรงคำว่า "วางแผนแล้ว" ที่ผมทำได้คือมันจะไปวางตรงที่รหัสที่อยู่บรรทัดแรกสุด ไม่ได้เป็นรหัสที่ Update ล่าสุดครับ

[parakorn]

ลองแก้ตามนี้ดูครับ

Code: Select all

Sub PD()


    Sheets("PD").Activate
    Application.Goto Reference:="OFFSET(R2C1,0,4,1,1)"
       Selection.Copy
   
    Sheets("Data").Select
    Application.Goto Reference:= _
        "INDEX(Data!R2C1:R11C6,LARGE(IF(Data!R2C1:R11C1=PD!R2C1,ROW(Data!R2C1:R11C1)-ROW(Data!R1C1)),1),5)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

[sakajohn]

ขอบคุณครับ ใช้ได้แล้วครับ

[sakajohn]

ขอสอบถามเพิ่มเติมครับ ตอนนี้ผมลองทำการบันทึกข้าม workbook คือ จากไฟล์TEST ไปบันทึกที่ ไฟล์ Data แต่ติด error ครับ

Code: Select all

Sub PD()
ThisWorkbook.Activate
    Sheets("PD").Activate
    Application.Goto Reference:="OFFSET(R2C1,0,4,1,1)"
       Selection.Copy 
    Workbooks("Data.xlsx").Activate 
    Sheets("Data").Select
    Application.Goto Reference:= _
        "INDEX('[Data.xlsx]Data'!R2C1:R5000C9,LARGE(IF('[Data.xlsx]Data'!R2C1:R5000C1=PD!R2C1,ROW('[Data.xlsx]Data'!R2C1:R5000C1)-ROW('[Data.xlsx]Data'!R1C1)),1),5)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

[snasui]

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

Code: Select all

Dim i As Long
Dim r As Range, rTgAll As Range
Set r = ThisWorkbook.Worksheets("PD").Range("a2")
With Workbooks("Data.xlsx").Worksheets("Data")
    Set rTgAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    For i = rTgAll.Count To 1 Step -1
        If rTgAll(i).Value = r.Value Then
            rTgAll(i).Offset(0, 4).Value = r.Offset(0, 4).Value
            Exit For
        End If
    Next i
End With

[sakajohn]

รบกวนผู้รู้ช่วยอธิบายสูตรด้วยครับ เพื่อจะได้นำไปต่อยอดได้ครับ

[sakajohn]

ตอนนี้พบปัญหาคือ รหัส*H22223725H* ถูกวางแผนที่เครื่อง M-08 ซึ่งเป็นเครื่องพิมพ์ และ M-09 จะรับงานต่อมาปั๊มมีด ซึ่งเป็นการวางแผนการทำงานต่อเนื่องกัน ความต้องการคือต้องการให้ลงข้อมูลที่เครื่อง M-08 ที่เวลา Update ล่าสุด โดยดูจากcell F2 เป็นหลัก แต่ตอนนี้ ไปลงที่รหัส M-09 แทน เนื่องจากรหัสเดียวกันและเป็นเวลาล่าสุด

[snasui]

รบกวนผู้รู้ช่วยอธิบายสูตรด้วยครับ เพื่อจะได้นำไปต่อยอดได้ครับ

กรุณาถามเฉพาะที่ไม่เข้าใจ ผมขออภัยที่ไม่แปล Code รายบรรท้ดครับ

[snasui]

ปรับที่ If rTgAll(i).Value = r.Value Then โดยเพิ่มเงื่อนไขการตรวจสอบว่าต้องเป็นเครื่องพิมพ์เดียวกันเข้าไปอีก 1 เงื่อนไข ลองพยายามปรับมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

ลักษณะเงื่อนไขคือจะต้องเข้าเงื่อนไขข้างต้นและเงื่อนไขใหม่ รูปแบบจะเป็น If rTgAll(i).Value = r.Value And Your New Condition Then

[sakajohn]

ตอนนี้ผมใช้วิธีคือ ที่ไฟล์วางแผนการผลิต ผมแยกชีท ออกตามเครื่องพิมพ์เลยครับ แล้วให้ไปบันทึกข้อมูลตามเครื่องเลยครับ ขอบคุณมากครับที่ให้คำแนะนำครับ