เลือกชีทที่เป็นวันที่โดย vba

[March201711]

เลือก sheet ให้ตรงกับวันที่ A3 อย่างไร โดยใช้ VBA

ถ้าจะเลือก Sheets(Formate(Range("left(A3,10)").Value2, "dd-mm-yyyy")).select

แล้วติด Debug แก้อย่างไรคะ

Code: Select all

Sub Select_sheet()
'    Sheets("26-06-2019").Select
    Sheets(Format(Range("left(A3,10)").Value2, "dd-mm-yyyy")).Select
    Range("B4:E14").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("H8").Select
End Sub

[puriwutpokin]

ตัวอย่างโค้ด

Code: Select all

Sub Select_sheet()
'
' aaaa Macro
'

'
'    Sheets("26-06-2019").Select
    Sheets(Format(Right(Range("A3").Value, 10), "dd-mm-yyyy")).Select
    Range("B4:E14").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("H8").Select
    
End Sub

[March201711]

ได้แล้วค่ะ ขอบคุณ K.Puriwutpokin มากค่ะ