ต้องการดึงข้อมูลตามวันที่เลือก

[March201711]

ต้องการดึงข้อมูลตามวันที่ ที่ cell E1 โดยเอาข้อมูลที่ cell E62 ให้ไปใส่ที่ File : KeepData ตามวันที่ที่เลือกที่ cell E1 ตามcode ที่แนบ ค่ะ แต่พอเปลี่ยนวันที่เป็นวันอื่น มันก็ใส่ที่ cell M30 ที่เดิม ต้องปรับเปลี่ยนตามวันที่ที่เลือกอย่างไรคะ

Code: Select all

 Sub CashAmt() 

     Range("E62").Select 
     Selection.Copy 
     Windows("KeepData.xlsx").Activate 
     Range("L12").Select 
     ActiveWindow.SmallScroll Down:=15 
     Range("L30").Select 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
         :=False, Transpose:=False 
     Range("L30").Select 
     Windows("RecordDailyAmt.xlsm").Activate 
     Range("V61").Select 
     Application.CutCopyMode = False 
 End Sub 

 

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub CashAmt()
    Dim intMnt As Integer, txtDate As String, v As Double
    
    v = [e62].Value
    intMnt = VBA.Month([e1].Value)
    txtDate = "Day " & VBA.Day([e1].Value)

    With Workbooks("KeepData.xlsx").Worksheets("cash_amt")
        .Cells(Application.Match(txtDate, .[a:a], 0), intMnt + 1).Value = v
    End With

End Sub

[March201711]

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