Excel Forum

ขอบคุณครับ สามารถทำได้แล้วครับ ^^

ขอบคุณมากครับพี่

รบกวนสอบถามเพิ่มเติมอีกนิดครับ
1. หากผมต้องการกำหนดชื่อไฟล์ .txt ที่เซฟไป ต้องแก้ code ตรงไหนครับ
2. กำหนดสถานที่เซฟ ต้องแก้ code ตรงไหนครับ

ขอบคุณครับ

รบกวนตรวจสอบ Code แล้วขอ Code Save Notepad ให้ด้วยครับ
1. Copy ข้อมูลจาก Excel --> ทำได้แล้วครับ
2. เปิด Notepad --> ทำได้แล้วครับ
3. วางค่าที่ Copy จาก Excel ลง Notepad --> ทำได้แล้วครับ
4. Save File Notepad ตั้งชื่อว่า Order.txt --> ยังทำไม่ได้ครับ *****

Public Sub CreateText()
Dim n As Integer ...

ผมต้องการดึงข้อมูลจาก Column B มาที่ Column D
แต่ข้อมูลใน Column B มีข้อมูลเลข PI 2 ชุดใน Cell เดียว
อยากแยกออก และ Copy มาวาง Column D ครับ

Public Sub Adjust()
Dim Ans, PiNo(100), CelVal As Variant
Dim FirstRow, i, j, k, l As Integer

FirstRow = 1
i = 1
k = 100

While k > 0
k = k - 1 ...

ขอบคุณมากครับ พี่ menem และพี่ snasui

ขอดูตัวอย่างไฟล์หน่อยครับ
อ่านไม่เข้าใจโจทย์

เรียน พี่ๆทุกท่านครับ

คือว่าผมต้องทำการจับคู่ข้อมูล "เลขที่สินค้า" กับ "เลขที่ใบจ่าย" ในแต่ละเดือน
โดยประกอบด้วยข้อมูลดังนี้ครับ
Sheet1 : PI - จะเก็บข้อมูล "เลขที่สินค้า" ที่จับคู่กับ "เลขที่ใบจ่าย" (ข้อมูลนี้ได้มีทีหลัง)
Sheet2 : Jan - จะเก็บข้อมูลงานรายเดือน ซึ่งตอนแรกจะมีแต่ข้อมูล "เลขที่สินค้า ...

เรียนพี่ menem ครับ

ผมเอาไปทดลองใช้ติดปัญหาอยู่ครับ ลองดูไฟล์ที่ผมแนบมาให้ใหม่ด้วยนะครับ
ข้อมูลในแต่ละเดือน มันจะค่อยเพิ่มเพิ่มมาเรื่อยๆ

ขอบคุณครับ เดี๋ยวทดลองใช้ดูครับ

ขอแก้ไข Code และไฟล์แนบใหม่นะครับ

Public Sub Upload()
Dim Month As String
Dim PiNo1, PiNo2 As Variant
Dim i As Integer

Month = InputBox("Input Month", "Input Month (Ex. Jan , Feb, Mar)")
Sheets(Month).Activate

For i = 3 To 5
If Len(Cells(i, 2).Value) > 9 Then
PiNo1 = Left(Cells(i, 2).Value, 9 ...

เรียน พี่ๆทุกท่านครับ

คือว่าผมต้องทำการจับคู่ข้อมูล "เลขที่สินค้า" กับ "เลขที่ใบจ่าย" ในแต่ละเดือน โดย "เลขที่ใบจ่าย" นั้น จะได้ข้อมูลมาทีหลังครับ
ซึ่งผมตั้งใจจะทำ Sheet หลักไว้กรอกข้อมูล "เลขที่ใบจ่าย" ที่ได้มาไว้ แล้วค่อยกดปุ่มให้ดึงข้อมูล "เลขที่ใบจ่าย" ไปจับคู่กับ "เลขที่สินค้า" ใน Sheet แต ...

ขอบคุณมากครับ

รบกวนอีกครั้งครับ
ผมลองทำแล้วขึ้น Error

Run-time error '1004':
Select method of Range class failed

แนบไฟล์แล้วครับ
รบกวนด้วยครับ

Private Sub CommandButton1_Click()
Sheets("Summary").Select
Range("A1:D8").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$8").AutoFilter Field:=1, Criteria1:="A"

Range("B2:B8").Select
Selection.Copy

Sheets("CustomerA").Select
Range("B2").Select
Selection ...

คือว่า Sheet("Summary") ผมมีข้อมูลดังนี้
Column A : "Customer" - เป็นรายชื่อลูกค้า
Column ฺB : "Shipment No." - เป็นหมายเลข Shipment
Column C : "เลขที่ใบจ่ายสินค้า"
Column D : "Product" - เป็นชื่อสินค้า

ผมเขียน Code เพื่อให้ Fill ข้อมูลให้ Column A : ให้เหลือข้อมูลเฉพาะ "A"
และให้ Copy ข้อมูลใน ...