Snasui Excel Forum

ขอบคุณมากค่ะ

รบกวนสอบถามสูตร Excel การหาวันที่ล่าสุด ที่สินค้าแต่ละชนิดมีการขึ้นผลิตค่ะ
โดยมีการลงข้อมูลใน Sheet " DataInput" ในแต่ละวันว่ามีการขึ้นผลิตสินค้าชนิดใดบ้าง และต้องการให้คำนวณหาวันที่ล่าสุดที่สินค้าแต่ละชนิดใน คอลัมน์ C ใน Sheet " DataInput" มาแสดงใน คอลัมน์ B ใน Sheet " DataOutput"

สวัสดีค่ะ
รบกวนสอบถามเกี่ยวกับคำสั่งดึงรูปภาพใน Folder ให้แสดงใน Image control ใน Userform เมื่อชื่อชิ้นงานที่เลือกตรงกับชื่อรูปภาพใน Folder เบื้องต้นลองเขียน Code คำสั่งมาแล้วแต่ยังติดปัญหา Debug ค่ะ

Private Sub Partdescription_Change()
Dim NameFound As Range
Set NameFound = Partdescription ...

ทำได้แล้วค่ะ
ขอบคุณมากค่ะ

เรียนอาจารย์
แนบไฟล์ที่ปรับ Code ตามคำแนะนำค่ะ

ขอบคุณค่ะ

รบกวนสอบถามเพิ่มเติมค่ะ
อาจารย์ค่ะ กำหนด nextRow ให้ตรงกับ ComboBox 2 แล้วแต่เวลาสั่งเดินหน้าหรือถอยหลังก็ยังติดปัญหาอยู่ค่ะรบกวนด้วยค่ะ

Private Sub Cmdpre_Click()
nextRow = Worksheets("DataInput").Columns(3).Find(ComboBox2.Text).Row
If Cells(nextRow - 1, 2) = "ลำดับ" Then
MsgBox "Can't previous ...

ขอบคุณมากค่ะ

รบกวนตรวจสอบ Code ใน Userform 1 คำสั่ง:เมื่อค้นหาข้อมูลจาก sheet DataInput จากนั้นทำการแก้ไขข้อมูลและบันทึก โดยกดปุ่ม"บันทึกข้อมูลการสั่งซื้อ" ข้อมูลจะบันทึกในบรรทัดถัดไป ไม่แก้ไขข้อมูลในแถวที่เลือกค่ะ ซึ่งต้องการให้ข้อมูลบันทึกลงแถวเดิมค่ะ และ ใน UserFom 1 เมื่อคลิกปุ่มถัดไปและก่อนหน้าก็ ข้อมูลท ...

ตอนนี้ปรับ Code ตามคำแนะนำของอาจารย์และทำสำเร็จแล้วค่ะ
ขอบคุณมากค่ะ

ขอโทษค่ะ
ไฟล์แนบค่ะ

แก้ไขโพสต์ Code ค่ะ
รบกวนสอบถามเกี่ยวกับ Code คำสั่ง
เมื่อ ComboBox5 เลือกตำแหน่งงานที่ตรงกับ Sheet"ระยะเวลา column A" ให้ TextBox12 แสดงข้อมูลระยะเวลาในการสรรหา column Bค่ะ
พยายามเขียน Code มาแล้วแต่ยังไม่สำเร็จค่ะ

Private Sub ComboBox5_Change()
Dim i As Long, LastRow As Long
LastRow = Sheets ...

รบกวนสอบถามเกี่ยวกับ Code คำสั่ง
เมื่อ ComboBox5 เลือกตำแหน่งงานที่ตรงกับ Sheet"ระยะเวลา column A" ให้ TextBox12 แสดงข้อมูลระยะเวลาในการสรรหา column Bค่ะ
พยายามเขียน Code มาแล้วแต่ยังไม่สำเร็จค่ะ

Private Sub ComboBox5_Change()
Dim i As Long, LastRow As Long
LastRow = Sheets("ระยะเวลา").Rang("A ...

ขอบคุณมากค่ะ

ตอนนี้ Map Drive มาหน้า desktop แล้วค่ะ
และกำหนด path = "\\pserver01\Department\การฝึกอบรมสอนงาน (OJT)\บันทึกการฝึกอบรม\บันทึกการฝึกอบรม 2019\" แต่ยังไม่สำเร็จค่ะ

รบกวนด้วยค่ะ

รบกวนสอบถามเพิ่มเติมค่ะ
ถ้าตัวแปร path อยู่ใน WorkGroup ใน Server ต้องเขียน code อย่างไรคะ

ต้องขอโทษด้วยค่ะ ทีไม่ได้ศึกษาการ โพสต์ Code ให้ละเอียด
ตอนนี้ทำได้แล้วค่ะ
ขอบคุณอาจารย์มากค่ะ

ขอความช่วยเหลือเกี่ยวกับการเขียน Code คำสั่ง VBA
1. เมื่อเลือกข้อมูลจาก M15 แล้วกด" ดูหลักฐานการฝึกอบรม (pdf.file)" จาก CommandButton3 แล้วไฟล์ PDF ที่มีชื่อตรงกับ M15 จะเปิดขึ้นมาค่ะ

ตัวอย่างตามไฟล์แนบค่ะ
Private Sub CommandButton3_Click()

Range("M15").Select
Dim s As String
s = Range("M15 ...