Snasui Excel Forum

สามารถทำได้แล้วค่ะ ขอบพระคุณมากๆเลยค่ะ

ต้องการให้ดึงข้อมูลจาก E2 ในชีท report จากชีท Database column A จนถึง K แล้วมาแสดงผลในชีท Report ค่ะ
Run code แล้วติดค่ะ ไม่ทราบว่าต้องแก้อย่างไรคะ ขอบคุณค่ะ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" And Target <> "" Then
ShowEmp
ElseIf Target.Address = "$E ...

พยายามคิดแล้ว แต่คิดไม่ออกจริงๆค่ะ รบกวนทุกๆท่านด้วยนะคะ

1.เดียอยากให้เมื่อกดปุ่ม Gen packing list no. แล้วชีทที่เดียระบุไว้ใน Q20 รันตรงตัวอักษร /01 รันเป็น 02,03,04 ตามที่เดียจะกำหนดใน Q20 ค่ะ
http://www.mx7.com/i/126/10mE90.JPG
http://www.mx7.com/i/9eb/mvgN1g.JPG

2.เดียอยากให้ตรง Net weight ...

commongirl wrote:

snasui wrote: ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

ลองปรับดูแล้วค่า ยังเป็นเหมือนเดิมเลยคะ ที่ถูกมันต้องเป็นเดือน 5 แต่มันกลายเป็นเดือน 7 ค่ะ YY

ทำได้แล้วค่า เดียลองเปลี่ยนเลข4เป็นเลข2ค่าา *\(^o^)/*

snasui wrote: ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

ลองปรับดูแล้วค่า ยังเป็นเหมือนเดิมเลยคะ ที่ถูกมันต้องเป็นเดือน 5 แต่มันกลายเป็นเดือน 7 ค่ะ YY

เดียลองทำการ Text to Columns ด้วย Macro แล้ว format วันที่ไม่ถูกต้องค่ะ กลับกันหมด
ถ้าทำแบบไม่ใช้มาโครดันถูก รบกวนผู้รู้ช่วยหน่อยค่ะ YY

Sub Macro5()
Sheets("Data").Select
Selection.Copy
Sheets("Textto").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection ...

คุณ bank9597
เดียสามารถทำได้แล้วค่ะ ลองเปิดปิดใหม่ทั้งหมดค่ะ - -
ขอบพระคุณมากๆเลยนะคะ ^^

ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ


Public Sub CopyPaste()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim strWbName As String
Dim strShName As String
Dim strPath As String

Set wb1 = ThisWorkbook

wb1.Sheets(1).Range("A2:A10").Copy
strWbName = wb1.Sheets(1 ...

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets(" Packing list_1 ").Select
2.ตรง Windows(" Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm ").Activate
Sub Macro7()
Range("D10:q23").Copy ...

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets(" Packing list_1 ").Select
2.ตรง Windows(" Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm ").Activate
Sub Macro7()
Range("D10:q23").Copy ...