Snasui Excel Forum

รบกวนขอคำแนะนำ ผมต้องการหาคำใน Excel และในไปใส่สูตรเพื่อให้Macro Copy ไปยัง Sheet อื่นครับ

รายงานผมจะมีรอบละ 1 อาทิตย์ ในตัวอย่างคือ 19 - 25 Feb 2018 ต้องการหาคำว่า SLEEP_300_WAIT_EDW ของวันที่ 19 และ 25 เพื่อให้ ้Macro Copy คอลัม E และ F และนำไปวางใน Sheet อื่น

ปัญหาที่เจอคือ Macro หาข ...

ลองดูครับ

มาโครใน Book2.xlsm

Sub Macro2()
'
' Macro2 Macro
'

'
Windows("Book1.xlsm").Activate
Range("B2:H2").Select
Selection.Copy
Windows("Book2.xlsm").Activate
Sheets("Report").Select
Range("B2").End(xlToRight).Select
' Selection.End(xlToRight).Select '-> Move to right of border data ...

เพิ่มให้แล้วครับ ขอโทษนะครับมือใหม่มากๆกำลังศึกษา

Save Macro 1 ในBook1 ไม่ติดไปครับ เพิ่มเติมให้ครับ :geek:

Sub Macro1()
'
' Macro1 Macro
'
Range("B2:H2").Select '-> Select -> Select data for copy
Selection.Copy '-> Copy data
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlToRight).Select '-> Move to right of border data ...

ใน Macro 1 ในฺไฟล์ Book1 ใช้งานได้ครับ วางไฟล์ต่อกันได้ แต่ใน Macro 4ฺ Book2 เป็นการก็อปปี่ข้ามไฟล์ ยังทำไม่สำเร็จครับ.ขอบคุณมากครับ

ต้องการให้วางข้อมูลในแนวนอนต่อกันครับ ตอนนี้มันติด Activecell ติด 2 บรรทัดนี้ครับ รบกวนด้วยนะครับ ขอบคุณมากๆ

Windows("Book1").Activate
Range("B3:H3").Select
Selection.Copy
Windows("Book2").Activate
ActiveCell.Offset(0, -1).Range("A2").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A2").Select
Range("A2").Select
ActiveSheet.Paste

puriwutpokin wrote: Wed Feb 14, 2018 1:53 pm ควรแนบไฟล์ตัวอย่างและโค้ด และคำตอบที่ต้องการ พร้อมแนบโค้ดให้เป็นโค้ด ตาม เงื่อนไขของบอร์ดนี้ด้วยครับ

รับทราบครับ

รบกวนสอบถามเรื่องการวางข้อมูลต่อกันเป็นชุดๆ (ชุดละ 7วัน) ใน Row เดียวกัน โดยห้ามวางข้อมูลทับวันเก่า ทำจาก Macro ครับ
1.กำหนดให้ Excel เลื่อนตำแหน่งว่าง อย่างไรครับ
2.กำหนดให้ วางในช่องตำแหน่งว่าง อย่างไรครับ

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


ข้อมูลได้หาได้จากในเวป แต่เอามาใช้ไม่เป็น

Dim rLastCell As Range

Set ...