เอาข้อมูลที่มีอยู่ตามเลขที่บิล มาลงข้อมูลเพิ่ม

[jarunee6181]

เอาข้อมูลที่มีอยู่ตามเลขที่บิล มาลงข้อมูลเพิ่ม แล้ว Save กับไปเลขที่บิลเดิมค่ะ
วิธีทำของหนูมีดังนี้ค่ะ
1.ไฟล์ Excel ชื่อ Test.xlsm เป็นไฟล์ที่ใช้ดึงข้อมูลมาเพิ่มรายการ โดยการใช้สูตร VLOOKUP($A$2,'db_Calico Stock.csv'!$A$1:$F$7,2,0)
โดยการใส่เลขที่บิลที่ช่อง A2 ดึงข้อมูลมาไว้ B2,C2,D2,E2 ส่วนข้อมูลที่ต้องเพิ่มเข้าไปคือ F2 ค่ะ

2.ไฟล์ database ชื่อว่า db_Calico Stock.csv มีรายการดังนี้ค่ะ หนูต้องการเพิ่มข้อมมูลใน Column F โดยการอ้างอิงจากเลขที่บิลเดิมค่ะ
columnA,,,,columnB,,,,,,,columnC,,,,,,columnD,,,,,columnE,,,,,columnF
เลขที่บิล,,,,,,,รหัสสินค้า,,,,,,,,,,วันที่ ,,,,,,,,,,,จำนวน ,,,,,,,ราคาชื้อ,,,,,,,,ราคาขาย
142979,,,,,,570628057,,,,,1/7/2014 ,,,,,,1,,,,,,,,,,,,,,10.7
142310,,,,,,570626086,,,,,1/7/2014 ,,,,,,10,,,,,,,,,,,,159.7
142311,,,,,,570626086,,,,,1/7/2014 ,,,,,,1,,,,,,,,,,,,,,8.6

หนูใช้ VBA ไม่ค่อยเป็นค่ะ รบกวนอาจารย์และเพื่อนๆช่วยแนะนำด้วยค่ะ Code อยู่ที่ไฟล์ Test \Module1\Saevdata ค่ะ หนูตั้งกระทู้เป็นครั้งแรกเลยไม่ค่อยเข้าใจเรื่องการตั้งกระทู้ ขอโทษอาจารย์และเพื่อนๆด้วยนะค่ะ ขอบคุณมากๆค่ะ
Sub Savedata()
Application.ScreenUpdating = False
Dim wb As Variant, Source As Range
If Range("A2") = "" Then Exit Sub
Set wb = Workbooks.Open("\\Server\e\Test\db_Calico Stock.csv", False, False)
i = Worksheets("db_Calico Stock").Columns("A:A").Find(Range("A2"), LookIn:=xlValues).Row
Worksheets("TEST").Range("f" & i).Resize(1, 1).Copy
Worksheets("db_Calico Stock").Range("F2").PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
wb.Close True
End Sub

[snasui]

ที่ถามมานั้นติดปัญหาที่บรรทัดใดครับ

ควรแนบไฟล์ปลายทางมาด้วยจะได้ช่วยตรวจสอบได้

สำหรับการวาง Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่าน ดูตัวอย่างที่ Link นี้ครับ viewtopic.php?f=3&t=1187

[jarunee6181]

จะ error ตรงนี้ค่ะ Worksheets("TEST").Range("f" & i).Resize(1, 1).Copy ไม่ทราบว่าต้องแก้ยังไงค่ะ

Code: Select all

Sub Savedata()
Application.ScreenUpdating = False
 Dim wb As Variant, Source As Range
If Range("A2") = "" Then Exit Sub
Set wb = Workbooks.Open("\\Server\e\Test\db_Calico Stock.csv", False, False)
i = Worksheets("db_Calico Stock").Columns("A:A").Find(Range("A2"), LookIn:=xlValues).Row
Worksheets("TEST").Range("f" & i).Resize(1, 1).Copy
Worksheets("db_Calico Stock").Range("F2").PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
wb.Close True
End Sub

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub Savedata()
    Dim sourceWb As Workbook
    Dim wb As Variant, Source As Range
    Application.ScreenUpdating = False
    If Range("A2") = "" Then Exit Sub
    Set sourceWb = ThisWorkbook
    Set wb = Workbooks.Open("\\Server\e\Test\db_Calico Stock.csv", False, False)
    i = wb.Worksheets("db_Calico Stock").Columns("A:A").Find(Range("A2"), LookIn:=xlValues).Row
    sourceWb.Worksheets("TEST").Range("f" & i).Resize(1, 1).Copy
    wb.Worksheets("db_Calico Stock").Range("F2").PasteSpecial xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    wb.Close True
End Sub

[jarunee6181]

ขอโทษค่ะหนูอธิบายไม่ถูก
ถ้าColumns("A:A")ในไฟล์ db_Calico Stock ตรงกับ A2 ในไฟล์ Test ให้เอาข้อมูล F2 ในไฟล์ Test ไปใส่ในไฟล์ db_Calico Stockให้ตรงแถวที่มีเลขที่บิลเดียวกันใน Columns "F" ค่ะ
i = Worksheets("db_Calico Stock").Columns("A:A").Find(Range("A2"), LookIn:=xlValues).Row

ตรง .Range("F2")จะต้องแก้ยังไงให้วางข้อมูลตรงกับเลขที่บิลค่ะ
Worksheets("db_Calico Stock").Range("F2").PasteSpecial xlPasteValues, Transpose:=True
ขอบคุณค่ะ

[jarunee6181]

หนูเปลี่ยนเป็นแแบบนี้ก็ไม่ได้

wb.Worksheets("db_Calico Stock").Range(""f" & i").PasteSpecial xlPasteValues, Transpose:=True

[snasui]

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

Code: Select all

Sub Savedata()
    Dim sourceWb As Workbook
    Dim wb As Workbook
    Dim source As Range
    Application.ScreenUpdating = False
    Set sourceWb = ThisWorkbook
    If Range("A2") = "" Then Exit Sub
    Set source = sourceWb.Sheets("TEST").Range("A2")
    Set wb = Workbooks.Open("\\Server\e\Test\db_Calico Stock.csv", False, False)
    i = wb.Worksheets("db_Calico Stock").Columns("A:A").Find(source, LookIn:=xlValues).Row
    source.Offset(0, 5).Copy
    wb.Worksheets("db_Calico Stock").Range("F" & i).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    wb.Close True
End Sub

[jarunee6181]

ใช้ได้แล้วค่ะ ดีใจมากๆเลย ขอบคุณมากๆเลยค่ะอาจารย์ สวัสดีค่ะ