thismonth

Hi All, I'm working with a workbook where it opens up to a specific sheet# based upon the current month. For example, if it is: October it opens up to Sheet1 . . . September it opens up to Sheet 12 in using this code: Sub MonthSheetSelect() Dim shtname As String Dim thismonth As Long...

I am trying to run a Vlookup inside a VBA. I am trying to run a dynamic Vlookup with two changing variables that will pull the needed data with the other workbooks closed. The two changing variables are Month and Year. If there is a better way to do this I am open to suggestions. I am new at...

I have been running this Macro for a while and all was good until my computer was upgraded to windows 10. My excel is now Excel 365 2016. The debugger highlights the row I put in red. Any help with this would be great. Sub CopyData_Machine_Performance() Application.ScreenUpdating = False...

Sub CopyData_Machine_Performance() Application.ScreenUpdating = False Dim lastRow As Long lastRow = Sheets("DATADump").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Dim ldateto As Long Dim ldatefrom As Long Dim ThisMonth As Long Dim ThisYear...

HI!!! Sub getSum() Dim strDate As String Dim ws As Worksheet strDate = InputBox("Insert date in format mm/yyyy", "User date", Format(Now(), "mm/yyyy")) If IsDate(strDate) Then strDate = Format(CDate(strDate), "mm/yyyy") Else MsgBox "Wrong date format. Please try again." Exit Sub End If Dim...

Hi!!!! Sub getSum() Dim strDate As String Dim ws As Worksheet strDate = InputBox("Insert date in format mm/yyyy", "User date", Format(Now(), "mm/yyyy")) If IsDate(strDate) Then strDate = Format(CDate(strDate), "mm/yyyy") Else MsgBox "Wrong date format. Please try again." Exit Sub End If Dim...

Hi!!!! My workbook contains more that 1000 sheets and increases daily. I need to get total value of column "I" (Range "I7:I") for all sheets based on month in column "F" (Range "F7:F"). mumps (Member in this forum) have given me this wonderful code mentioned below which is working fine. But...