Snasui Excel Forum

ตรงกับความต้องการครับ

มีคำถามเพิ่มเติมครับ
รบกวนช่วยปรับสูตรที่ F1 ให้ทีครับ
อยากให้หาตำแหน่ง Run no. สุดท้ายโดยอ้างอิงจากคอลัมน์ A เมื่อ D1 แล้ว +1 อย่างเช่น
เมื่อเลือก D1 นายเอ ตำแหน่ง Run no. สุดท้ายคือ 005/13-2018 แล้ว +1 = 006/"d-yyyy"
เมื่อเลือก D1 นายบี ตำแหน่ง Run no. สุดท้ายคือ 002/8-2018 แล้ว + 1 = 003/"d ...

ขอบคุณครับ ผมมองเรื่องง่ายๆแค่นี้ข้ามไป คิดเยอะไปหน่อยครับ

ตอนนี้ลองปรับแล้วแต่ยังไม่ได้ตามที่ต้องการครับ


Sub Macro4()
Dim rall As Range
Dim r As Range, i As Long
On Error Resume Next
With Sheet1
Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
For i = rall.Count To 1 Step -1
If rall(i).Value = .Range("c1").Value Then
'rall(i).Offset(1, 0 ...

ขอรบกวนอีกครั้งครับ
พอจะลองปรับ Code ดูก็ งงๆครับ
อยากจะให้แทรกแถว ทั้งแถวเลยครับจากเดิมแทรกแค่คอลัมน์ A
รบกวนด้วยครับ

Sub Macro4()
Dim rall As Range
Dim r As Range, i As Long
On Error Resume Next
With Sheet1
Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
For i = rall.Count To 1 ...

ตรงกับความต้องการครับ
ขอบคุณครับ

ยังไม่ตรงกับความต้องการครับ
บางทีกดรันแล้วข้ามตำแหน่งสุดท้ายไปของสิ่งที่ต้องการค้นหาไป 2 - 3 ตำแหน่งบางทีก็ 4 - 5 ตำแหน่ง
บางทีกดรันแล้วไม่มีอะไรเกิดขึ้นครับ


Sub Macro4()
Dim number As Range
Dim endRow As Range
With Sheet1
Set number = .Range("B2")
Set endRow = .Range("a:a").Find(what:=.Range ...

รบกวนช่วยปรับ Code ให้ทีครับ
1. อยากให้หาค่าที่ที่คอลัมน์ A อ้างอิงที่ B1 แล้วไปอยู่อยู่ที่ตำแหน่งสุดท้ายของค่านั้นๆครับ
อย่างเช่น ค่าที่หาคือ วัน แล้วให้ไปอยู่อยู่ที่ตำแหน่งสุดท้ายของค่า วัน
2. เมื่อทำข้อ 1 สำเสร็จแล้วเลื่อนลงมา 1 แถว แล้วให้แทรกแถวตามจำนวนที่อ้างอิงที่ B2 ครับ


Sub Macro4 ...

ตรงกับความต้องการแล้วครับ
ขอบคุณครับ

เกือบตรงแล้วครับ
คือว่าถ้าเดือนเปลี่ยน ยังไม่ต้องให้เริ่มปรับเป็น 001 ใหม่ครับ
จะเริ่มนับ 001 ใหม่ได้ต้องขึ้นเป็นปีใหม่ครับเช่น 2018 : 1809-051
พอขึ้นเดือนใหม่ก็ยังให้รันเลขต่อ แต่ถ้าขึ้นปีใหม่ให้เริ่มนับ 001 ครับเช่น 2019 : 1901-001
จะเริ่มนับใหม่ได้อิงจากปีครับ

รบกวนช่วยปรับสูตรให้หน่อยครับที่ชีต Sheet1 ที่ B1
1. อยากให้หาค่าตำแหน่งสุดท้ายที่ชีต Sheet2 คอลัมน์ A แล้ว + ด้วย 1 ครับ คือ 1808-050 +1 = 1808-051
2. เมื่อขึ้นปีใหม่ให้เลขรันเป็น รูปแบบ yymm-001 ครับ คือเริ่มนับใหม่

ตรงกับความต้องการครับ แต่คำนวณช้านิดๆ

ต้องขออภัยครับที่อธิบายไม่ละเอียด
เซลล์อ้างอิงจะอยู่ที่ AA-04 ของชีต "ตัวอย่างคำตอบ "
หลักๆแล้วดึงมาจากชีต "ข้อมูลครับ "
เมื่อพิมพ์ที่เซลล์ A4 ชีต "ตัวอย่างคำตอบ" AA-04 จะให้ดึงข้อมูล
1. ชื่อลูกค้า ,ที่อยู่ , เลขประจำตัว โดยที่ชีตข้อมูลจะมีชื่อย่อของแต่ละบริษัท ที่คอลัมน์ B ซึงฐานข้อมูลของลูกค ...

ขอสอบกวนสอบถามหน่อยครับอยากจะดึงข้อมูลมี 2 กรณีดังนี้
1. กรณีที่ 1 ดึงข้อมูลภาย Workbook (ไฟล์ ดึงข้อมูล กรณี 1)
- อยากจะดึงข้อมูลภายใน Workbook ,ชีทตัวอย่างคำตอบ ที่ตำแหน่งอ้างอิง A4 แล้วให้ผลลัพธ์ออกมาอย่างในตัวอย่างคำตอบครับ
2. กรณีที่ 2 ดึงข้อมูลข้าม Workbook (ไฟล์ ดึงข้อมูล กรณี 2)
- อยากจะด ...

ตรงตามความต้องการครับ ขอบคุณมากครับ

ต้องขออภัยครับด้วยครับ แนบมาให้ใหม่แล้วครับ
ปัญหาตอนนี้คือ เมื่อ Save as แล้วเปลี่ยนชื่อ File เป็น Test send data2.xlsm , 3 4 5 6 แล้ว
เมื่อกด Send data จะติด Debug ตรง Windows("Test send data1.xlsm").Activate เพราะว่าชื่อใน Code ไม่ยอมเปลี่ยนครับ
ก็เลยอยากถามว่าพอจะมีวิธีไหนเมื่อ run code แล้ว ...

ตอนนี้ลองปรับ Code ดูแล้วครับ แบบนี้ก็ยังถือว่าโอเคดี
แต่อยากให้เมื่อ Open File แล้วให้ File ที่เปิดมาไม่ต้องโชว์ทับไฟล์ที่เปิดอยู่อะครับ
ลักษณะคล้ายๆ Code ตรงนี้ Windows("Test send data1.xlsm").Activate พอจะทำได้ไหมครับ
เพราะถ้า Save as แล้วทำต่อชื่อ file ก็จะเปลี่ยนไปครับ

Sub SendDataToFile ...

อยากจะสอบถามหน่อยครับ เราควรจะเพิ่ม Code อย่างไหร่เพื่อที่จะ
เวลาที่จะส่งข้อมูลไปยังอีกไฟล์โดยที่ไม่ต้องเปิดไฟล์ที่รับข้อมูล เพราะตอนนี้ทำได้แค่ต้องเปิดทั้ง 2 ไฟล์พร้อมๆกัน
ที่จะทำแบบนี้เพราะว่างานบ้างงานต้อง Save as ไปเรื่อยๆ จึงจำเป็นต้องมี Database แยกไว้อีก 1 ไฟล์ครับ
รบกวนขอคำชี้แนะด้วยครับ ...

ขอบคุณครับ
มีคำถามใหม่ครับ พอดีจะทำให้ตัวบันทึกข้อมูล บันทึกลง Sheet แบบตาราง Table ครับ
ลองทำดูแล้วมันลงได้แค่แถวเดียวแล้วก็ไม่ไปต่อให้ครับ

ขอสอบถามหน่อยครับว่า อยากจะเช็ค Textbox ทุกอันว่าถ้ามีช่องไหนว่างให้แจ้งเป็น Msgbox ว่า กรุณาหรอกข้อมูลให้ครบด้วยครับ
ตอนนี้ทำได้แค่ textbox1 ถ้าเขียนแบบ textbox1 คงเขียนเยอะพอมีวิธีไหนที่เช็คแบบรวดเดียวบ้างครับ


Private Sub CommandButton1_Click()
If Me.TextBox1.Value <> "" Then
Dim ws As ...