Snasui Excel Forum

สอบถามท่านผู้รู้หน่อยครับ ผมมีปัญหากับ Case Is = "Y" หลังจาก inputbox ปิดไปแล้ว ผมไม่ทราบวิธีที่จะให้ textbox ที่ชื่อ txtBarCode กลับมาถูกเลือกเหมือนเดิมได้ ช่วยชี้แนะด้วยครับ

Private Sub Reconcile()
Dim Find_ID As Variant
Dim sTbl As String
Dim iRow As Long

' sTbl = Sheet18.Name ÍѹËÅÑ ...

ยังไม่ได้เลยครับ ผมลองแล้ว

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

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

ขออีกนิดนึง สูตรที่คุณ Suka ช่วยผมมันต้องพิมค่าเต็มๆถึงจะขึ้นข้อมูล มีวีธีไหนบ้างคับที่จะหาจากบางส่วนของข้อมูลแบบ vlookup ได้
ด้วยการพิม *ข้อความ* รบกวนด้วยน่ะครับ

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

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

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

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

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

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

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

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


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

ขอบพระคุณมากเลยครับ ในที่สุดก็ได้สักที ทนเปลี่ยนที่ละค่ามาตั้งนาน^^

สวัสดีครับ ท่านผู้รู้และอาจารย์
ผมไม่สามารถแก้ปัญหาเรื่องการเปลี่ยน Sheet โดยไม่ให้สูตรขึ้น REF ได้

อธิบายดังนี้คัรบ ในSheet ที่ชื่อ จำนวนจะมีสูตรนี้เพื่อคอยบวกค่า
สูตร =SUMIF(mont6!$A$4:$A$286,"pending",mont6!$Q$4:$Q$286)

และในSheetชื่อ mont6 จะมีค่าที่สูตรอิงอยู่

คำถามคือ 1.ผมจะทำไงถึงจะเปล ...

ขอบพระคุณมากเลยจริงๆครับ ดีใจมากเลย^^

แก้เป็นแบบนี้แทนครับ

Sub sent()
Dim sheet As Worksheets

Range("d5").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(1, 0)
Range("d6").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 2)
Range("f6").Copy Destination:=Sheets("sheet1").Range("b65536").End ...

ผมต้องการเลือกข้อมูล ข้อมูลช่อง d2,d3,e2,e3,e4 ไปวางไว้อีกชีทนึง ในช่อง d,b,g,j,l,m โดยที่ทุกครั้งที่ใส่ข้อมูลใหม่ จะขึ้นแถวใหม่ให้ โค๊ดที่ผมพยามเขียนทำงานได้ แต่ช้ามากกก ขนาดดึงข้อมูลแค่2ตัวเอง
รบกวนอาจารย์หรือท่านผู้มีความรู้ทำเป็นโค๊ดที่ถูกต้องด้วยครับ

โหลดไฟจากนี้นะครับ ผมลอง attachments แต่ไม ...

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