Snasui Excel Forum

แก้แล้วครับ

code ตามนี้ครับ ผมนำไปไว้ใน thisworkbook
โดย ผมทำการ copy วันที่มาใส่ครับ พอจะมีวิธีแก้ไขหรือไม่ครับ
แนบไฟล์ไม่ได้เนื่องจากไฟล์ของผมมันใหญ่เกินไป

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("BAY").Range("R22") <> Sheets("BAY").Range("A" & Rows.Count ...

โปรแกรมมีการ copy ข้อมูลจากเว็บมาใส่ครับ คำสั่งคือเมื่อโปรแกรมเปิดขึ้นมาจะมีการเก็บข้อมูลครับ
แต่เมื่อ script ในหน้า thisworkbook และ การupdate ข้อมูลได้ทำงาน ปรากฏว่าโปรแกรมค้างแล้วขึ้น
runtime error ดังรูปครับ พอจะมีวิธีแก้ไขหรือไม่ครับ

ทำได้แล้วครับ ขอบพระคุณอาจารย์มากเลยครับ

ขอโทษครับผม

ต้องขอโทษสำหรับภาษาแชท ด้วยครับ
อันนี้ผมทำการตั้งว่า ถ้าเปิดไฟล์แล้วค่าเซลล์ A ณ ปัจจุบัน
ไม่เท่ากับ ค่าของ G22 ให้ทำการเก็บลง A ไปเรื่อยๆ ครับ

code สามารถรันได้แล้วครับ ขอบพระคุณอาจารย์มากครับ
ผมขอรบกวนถามอีกเรื่องครับ
ผมสามารถปรับเปลี่ยนโดยไม่มีปุ่มกดให้ copy สามารถทำได้หรือเปล่าครับ
copy โดยไม่ต้องคลิกอะครับ

ผมเขียนดูครับ แต่ยังงง คำสั่งบางอย่างที่อยู่ใน Module ผมแนบไฟล์
มาให้อาจารย์ดูตามด้านล่างครับ

ผมลองนำ code ที่อาจารย์เคยโพสไว้ ตามด้านล่าง
Private Sub CommandButton1_Click()
Sheets(Sheets("ARECL").Range("E2").Value) _
.Range(Sheets("ARECL").Range("E2").Value & "x").Copy
Range("Target").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
นำมาประยุกต์ใช้ แต่ก็ยังไม่สามารถ ...

ถ้ามีการดึงข้อมูลจากเว็บ โดยสมมุติให้ข้อมูลจากเว็บอยู่ช่อง E1 และ F1 เมื่อข้อมูลมีการเปลี่ยนไป
จะทำให้ column A เพิ่มข้อมูลไปเก็บได้หรือไม่ครับ
จากด้านบนผมนำไปใช้แล้ว แต่เมื่อข้อมูลในเว็บเปลี่ยน
column A ไม่เปลี่ยนตามครับ

ขอบพระคุณมากครับ สำหรับคำชี้แนะ
เป็นประโยชน์อย่างมากกับการนำไปต่อยอดกับงานที่ผมต้องการ

ถ้าวันที่ ในช่อง E1 เปลี่ยนไป จะทำการ Copy E1 และ E2 มาต่อท้ายcolumn A และ B ไปเรื่อยๆ
โดยจะ Copy ให้อัตโนมัติเลยครับ

ต้องการให้ข้อมูลแถว A เปลี่ยนอัตโนมัติเมื่อ Column E1 มีค่าที่เปลี่ยนไป
จะสามารถทำได้อย่างไรครับ แล้วทำการบันทึกเก็บข้อมูลไว้ตลอดครับ