เลือกชีทใน VBA code

[wthn]

สวัสดีครับ ต้องขอรบกวนถามเรื่องของ code ใน VBA

ตามไฟล์ที่แนบ ผมจะอัพเดทชีท Summary_daily ทุกวัน และจะ copy sheet ที่เป็นชื่อวันที่ออกมาทำใหม่ทุกวันโดยเปลี่ยนชื่อเป็นวันที่ที่ทำ จึงอยากให้ช่วยแก้ไขโคดให้หน่อยนะครับ
โคดที่ผมคิดว่าควรจะต้องแก้คือ Sheets("Oct 29'13").Select ซึ่งผิดถูกยังไงบอกด้วยนะครับ อยากให้เปลี่ยนเป็นรัน macro กับชีทที่ติดกับ Summary_daily

ขอบคุณครับ
ป๊อป

ปล.อยากจะแนบไฟล์เป็น excel แต่ทำยังไงไฟล์มันก็เกิน 300kb มีวิธีแก้ยังไงช่วยบอกด้วยนะครับ

[snasui]

ไฟล์ตัวอย่างไม่ควรจะมีข้อมูลจำนวนมาก ให้ตัดมาเพียงตัวอย่างที่เป็นตัวแทนของข้อมูลจริงเท่านั้น

ไฟล์ที่มีข้อมูลเล็กน้อยแต่มีขนาดเกิน 300KB ถือว่าผิดปกติครับ

[wthn]

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

[snasui]

ปกติผมพอจะอ่าน Code เข้าใจได้บ้างอยู่แล้ว แต่ต้องการไฟล์แนบที่เป็น Excel จะได้ทดสอบได้

สามารถแนบภาพในฟอรัมนี้ได้เลยไม่จำเป็นต้องแนบผ่านไฟล์อื่นใด ส่วน Code ก็วางในฟอรัมนี้ได้เช่นเดียวกันครับ

[wthn]

ผมแนบไฟล์มาให้ดูแล้วครับ

สิ่งที่อยากให้ช่วยแก้คือ ให้ช่วยแก้โคด ให้รัน macro ทุกครั้ง ให้รันไปชีทที่ติดกับชีท summary_daily โดยไม่ได้ดูว่าต้องเป็นชีทชื่ออะไรครับ

Sub Run_test()
'
' Run_test Macro
'

'
Sheets("Oct 29'13").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Summary_daily!C1:C2,2,0)"
Selection.Copy
Range("B4:B12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B14").Select
End Sub

ขอบคุณครับ
ป๊อป

[snasui]

การเลือกชีทที่ติดกับชีท Summary_daily สามารถปรับ Code เป็นตามด้านล่าง

Code: Select all

Sub Run_test1()
'
' Run_test1 Macro
'

'
    Sheets(Sheets.Count - 1).Select
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Summary_daily!C1:C2,2,0)"
    Selection.Copy
    Range("B4:B12").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("B13").Select
    Application.CutCopyMode = False
End Sub

สำหรับการวาง Code ให้เป็น Code เพือสะดวกต่อการ Copy ไปทดสอบสามารถดูได้ที่ Link นี้ครับ viewtopic.php?f=2&t=1187

[wthn]

ขอบคุณมากครับ ใช้ได้แล้ว เยี่ยมเลยแต่ขอเพิ่มปัญหาอีกนิดนะครับ

ถ้าหากเราต้องการให้มันดึงมาเฉพาะ font ที่เป็นสีแดงเท่านั้นได้หรือป่าวครับ โดยใช้ตัวอย่างเดิมแต่ในชีท summary_daily มีสองสี เราอยากได้เฉพาะสีแดงเท่านั้น ต้องทำยังไงครับ

รบกวนด้วยครับ ขอบคุณครับ

[snasui]

ลองปรับปรุงมาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ ถ้าหากปรับมาแล้วช่วยระบุด้วยว่าติดขัดที่บรรทัดใดของ Code ครับ