Snasui Excel Forum

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

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

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

ขอโทษค่ะหนูอธิบายไม่ถูก :?:
ถ้า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 ...

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

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 ...

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