การวางข้อมูลต่อท้ายรายการเดิมที่มีอยู่แล้วโดยมี Format as table

[psnorth]

ผมต้องการวางข้อมูลจากสูตร โดยให้รายการไปต่อท้ายในช่องที่มีการทำ Quickly convert a rang เอาไว้

Code: Select all

   Set Sheet1 = Sheets("sheet1")
   Set shInput = ActiveSheet
   lRow = Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row
   Range("f4").Copy Destination:=Sheets("Tracking").Range("f65536").End(xlUp).Offset(1, 0)
   
   With Application
      .EnableEvents = False
      .Calculation = xlCalculationManual
      .ScreenUpdating = False
   End With
   With Sheet1
      
      .Cells(lRow, "c").Value = shInput.Range("d7")
      .Cells(lRow, "b").Value = shInput.Range("d5")
      .Cells(lRow, "d").Value = shInput.Range("d6")
      .Cells(lRow, "m").Value = shInput.Range("f6")
      .Cells(lRow, "q").Value = shInput.Range("f7")
      .Cells(lRow, "u").Value = shInput.Range("f8")
      .Cells(lRow, "y").Value = shInput.Range("f9")
       End With
   With Application
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .ScreenUpdating = True

นีเป็นโค๊ดที่ใช้อยู่ครับ มันจะใส่ข้อมูลต่อท้ายส่วนที่อยู่นอกตารางที่ได้ทำไว้สำหรับการจัดRang (ที่มีคอลัมอยู่ด้านบน แล้วกดเพื่อให้โชขอมูลตามวันที่ ตามตัวอักษร) รบกวนท่านผู้รู้แนะนำให้ด้วยครับ

[bank9597]

ขอไฟล์ตัวอย่างด้วยครับ

[psnorth]

รบกวนท่านผู้รู้ช่วยผมด้วยครับ
https://drive.google.com/file/d/0B72NbU ... sp=sharing

[snasui]

แนบไฟล์มาที่ฟอรัมนี้ ขนาดไฟล์ไม่เกิน 300kb อ่านกฎข้อ 4 ด้านบนประกอบครับ

[psnorth]

อัฟใหม่เรียบร้อย ขออภัยครับ

[snasui]

ไฟล์ที่แนบกับ Code ที่เขียนมาด้านบนไม่สอดคล้องกัน ลองตรวจสอบไฟล์แนบใหม่ครับ

[psnorth]

ขออภัยที่ทำให้สับสนนะครับ ผมขอชี้แจงใหม่นะครับ สิ่งที่ต้องการทำ ผมไม่แน่ใจว่ามันจะอยู่ในส่วนของ Code หรือว่าการทำตาราง แต่ที่ต้องการคือ ทุกครั้งที่กดปุ่มบันทึก ข้อมูลจะต้องเข้าไปอยู่ภายในส่วนที่ทำ Quickly convert a rang เอาไว้ ตอนนี้เวลาใสข้อมูลทีไร มันเติมนอกตารางให้ทุกทีเลย

[snasui]

ควรทราบก่อนครับว่ามันเป็นส่วนของ Code หรือสูตรแล้วแจ้งถึงปัญหาที่เป็นครับ

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

[psnorth]

ขออภัยอีกครั้งครับ คิดว่าเป็นในส่วนของ Code เพราะว่าผมได้พยามตั้งค่าทุกอย่างแล้ว แต่พอ Code รันเมื่อไหล่ มันก็ใส่ข้อมูลนอกตารางทุกครั้ง ขออธิบายเพิ่มดังนี้ครับ
-หลังจากกรอกข้อมูลที่ชีส Infromในช่อง d5:d6, f4:j19 แล้ว เมื่อกด OK ข้อมูลที่กรอกไว้ทั้งหมดจะถูกคัดลองไปวางที่หน้า Sheet1
-แต่ข้อมูลที่เข้ามาจากชีสInform จะไปวางต่อท้ายนอกตารางที่ทำ Quickly convert a rang เอาไว้ตลอด

ผมต้องการให้ข้อมูลที่มากจาก ชีส Inform ไปอยู่ในตาราง Quickly convert a rang เพื่อที่จะได้จัดเรียงข้อมูลที่เข้ามาได้ง่ายขึ้น รบกวนด้วยครับ

[snasui]

ค่อย ๆ ถามตอบกันไปนะครับ

Code ชื่อว่าอะไร อยู่ใน Module ใด บรรทัดใดที่เป็นปัญหา อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

[psnorth]

Module ชื่อว่า Sent ครับ ตามความเข้าใจผมคิดว่าเป็นที่ lRow = Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row
แต่ไม่รู้จะแก้อย่างไร

[snasui]

ตัวอย่างการหาบรรทัดสุดท้ายหลังมีข้อมูลใน Table ตามด้านล่างครับ

Code: Select all

'Other code
With Sheet1
     For Each rng In Sheet1.ListObjects("Table1").ListColumns(2).Range
         If rng = "" Then
             lRow = rng.Row
             Exit For
         End If
     Next rng
End With

'Other code

[psnorth]

ปรับCodeให้เข้ากับงานผมได้แล้ว ดีใจมากๆเลย ขอบพระคุณมากครับ