Snasui Excel Forum

ได้แล้วครับ ขอบคุณครับมากครับอาจารย์

จาก code ที่นำไปใช้ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ต้องพิมพ์ 2 ที่ inputbox .
สิ่งที่ต้องการ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ให้พิมพ์เลข 1 ครับ

สอบถามอีกรอบครับ อาจารย์ ถ้าต้องการเลือกเป็นชื่อ sheet อย่าง sheet ("1") ไม่ใช่ sheet1 ต้องแก้ code ตรงใหนครับ

ขอบคุณมากครับ คราวหน้าจะแก้ไขครับ

ขอความช่วยเหลือด้วยครับ
ต้องการคัดลอกข้อมูลจาก sheet(AA).A1:b8 โดยให้แสดง inputbox เลือก sheet ที่จะวางครับ พอสั่ง run แล้ว error ครับ

Sub xcopysheet()
Dim xsheet As Integer

Sheets("AA").Range("A1:B8").Copy
xsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)
With ...

ทำได้แล้วครับ ขอบคุณอาจารย์ ทุกท่านครับ

ขอบคุณมากครับ สอบถามเพิ่มเติมครับ กรณีที่ข้อมูลอยู่ต่าง sheet แต่ต้องการสรุป data อีก sheet โดยไม่ต้องไปทำอะไร sheet data
สามารถทำได้ใหมครับ

ทุกเดือนต้องมีการสรุปรายเดือนว่าค่าใช้จ่ายทั้งเดือนของแต่ล่ะ Dept ทีมีหลาย Depart code
โดยรวมตาม Accode เงื่อนไข ถ้า Q2 เปลี่ยนตาม Dept ให้ รวมข้อมูลตาม AC CODE
รบกวนช่วยด้วยครับ