Excel Forum

With Sheets("F").Sort .SortFields.Clear .SortFields.Add _ Key:=Range("d" & 1 & ":" & "d" & xz), _ SortOn:=xlSortOnValues, _ Order:=xlAscending, _ CustomOrder:="BASE", _ '******** DataOption:=xlSortNormal .SetRange Range("A"...

ผมแนบไฟล์ผิดมาครับ ผมต้องขอโทษด้วยครับ
ที่ผมยังติดปัญหาคือ
รหัส 888 จะมีพาร์ดลูก ผมต้องการให้โค๊ดมันก๊อปพาร์ดลูกมาด้วยพอเจอช่องว่างแล้วให้มันหยุดก๊อปแล้วรัน x ถัดไป
เพราะฉนั้นจะมี 2 กรณีคือ
กรณีที่ 1 คือไม่มีพาร์ดลูก
กรณีที่ 2 คือมีพาร์ดลูก

ช่วยแนะนำหนังสืออ่านเพิ่มเติมจะได้ไหมครับ

ขอบพระคุณมากๆเลยครับ

ผมจะนำไปลองใช้ดูครับ

แก้ไม่ได้ครับ ปุ่มแก้ไขไม่ขึ้นเลครับ

การคัลลอกตารางไปอีกเซลล์ ช่วยดูให้หน่อยครับ คือมีเงือนไขอยู่ว่า 1 ถ้า x = y ให้คัดลอกไปอีกชีทหนึ่ง ถ้าไม่ใช้ ให้ y หาซ้ำจนกว่าจะเจอ ถ้าเจอแล้วให้ให้ตรวจบรรทัดทัดไปว่าเป็นเซลล์ว่างหรือไม่ ถ้าไม่ให้คัดลอก ถ้าว่างให้วน x ครับ 2 ให้ x วนไปจนครบตามหรัสที่ต้องการหา ตอนนี้ผมติดปัญหาคือไม่รู้จะเอาเงือนไข 2 ...