Snasui Excel Forum

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 

 

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