+ Reply to Thread
Results 1 to 15 of 15

Auto Post Day of Month Entry

Hybrid View

  1. #1
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Auto Post Day of Month Entry

    Hello is it possible to automatically post to my Entries! sheet from the Recurring Log! sheet every month based on the day of the month in column A on the Entries! sheet?

    Thank you very much for any help.

  2. #2
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    Sorry for the trouble.

  3. #3
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,416

    Re: Auto Post Day of Month Entry

    .
    Don't be impatient. Sometimes, answers are given hours or days later.

  4. #4
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    I will try to figure it out.

  5. #5
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,416

    Re: Auto Post Day of Month Entry

    .
    If you paste this in the Recurring Log sheet module, it will copy everything to the Entries sheet, everytime you type something.
    .

    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Sheets("Recurring Log").Range("A1:Z1000").Copy Destination:=Sheets("Entries").Range("A1")
        Application.CutCopyMode = False
    End Sub

  6. #6
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27
    Thank you for the code. I was looking for entries to be made based on the date. For instance today is the 1st so the row with a 1 in the column should post.

  7. #7
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    I sorted the column so the dates are in order of proposed lines entries when the day of the month happens not before. So today there is one entry for the internet that should auto fill.

    Thank you for the help
    Last edited by John775; 10-03-2018 at 11:21 AM.

  8. #8
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,416

    Re: Auto Post Day of Month Entry

    .
    In order to have your selection copied / paste from one sheet to another, I had to remove the table you established on both sheets.

    If you desire to have every other row color coded, you can do that via another macro and not use a table.

    Here is the code that will copy/paste rows found based on the number you enter into the Inputbox :

    Option Explicit
    
    Sub filterTerm()
    Dim ValToCopy As String
    ValToCopy = InputBox("Enter number to find: ", "What Date Number ?")
    
    Application.ScreenUpdating = False
        Columns(1).AutoFilter 1, ValToCopy                     
        With Range("A3", Range("i" & Rows.Count).End(3))        
            .Copy Sheet2.Cells(Rows.Count, 1).End(3).Offset(1)  
        End With
        Columns(1).AutoFilter                                   
    Application.ScreenUpdating = True
    
    End Sub
    Attached Files Attached Files

  9. #9
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    Thank you so much for helping. I revised the book and hopefully you can understand my request now. The yellow areas on the Entries! sheet should be rows 4 & 5 since the designated 3 matches today's day number.

  10. #10
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    The Entries sheet should have the date in column A. This process should repeat so each month has the entries when the day happens.

  11. #11
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,416

    Re: Auto Post Day of Month Entry

    .
    To automate the process, delete the Sub filterTerm () macro and replace it with this macro :

    Option Explicit
    
    Sub TodayDate()
        Dim daterng As Range
        Dim DateCell As Range
        Dim WorkSht As Worksheet
        Dim dateStr As String
        Application.ScreenUpdating = False
        
        'To display ONLY THE CURRENT DAY in "Entries Sheet" ... uncomment the next three lines
        'Sheets("Entries").Activate
        'Sheets("Entries").Range("A3:A50").EntireRow.Delete
        'Sheets("Recurring Log").Activate
        
        With Sheets("Recurring Log")
        
            Set daterng = Range("A1:A100")
            
            For Each DateCell In daterng
                DateCell.Activate
                ActiveCell.Select
                On Error Resume Next
                dateStr = DateCell.Value
                
                If dateStr = Day(Now) Then
                    DateCell.EntireRow.Copy Sheet2.Cells(Rows.Count, 1).End(3).Offset(1)
                End If
            Next
            
            End With
            
        Sheets("Entries").Activate
        Sheets("Entries").Range("A3").Select
    
        Application.ScreenUpdating = True
    End Sub
    Then, in the ThisWorkbook module, paste this macro :

    Option Explicit
    
    Private Sub Workbook_Open()
        TodayDate
    End Sub

    Note the comments in the TodayDate macro :

     'To display ONLY THE CURRENT DAY in "Entries Sheet" ... uncomment the next three lines
        'Sheets("Entries").Activate
        'Sheets("Entries").Range("A3:A50").EntireRow.Delete
        'Sheets("Recurring Log").Activate

    If you ONLY WANT TO SEE THE CURRENT DAY entries, uncomment the three lines. It will look like this :


     'To display ONLY THE CURRENT DAY in "Entries Sheet" ... uncomment the next three lines
        Sheets("Entries").Activate
        Sheets("Entries").Range("A3:A50").EntireRow.Delete
        Sheets("Recurring Log").Activate

  12. #12
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    Hello Logit and thank you very much. I made some updates to my workbook and then tried this new code in it. I know it is something I'm doing wrong. Can you please take a look at the workbook ?

  13. #13
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,416

    Re: Auto Post Day of Month Entry

    .
    Your workbook has TABLES.. The macro posted wont work with TABLES.

  14. #14
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27
    Quote Originally Posted by Logit View Post
    .
    Your workbook has TABLES.. The macro posted wont work with TABLES.
    Okay I will revise the book in the morning thanks.

  15. #15
    Registered User
    Join Date
    09-27-2018
    Location
    Texas
    MS-Off Ver
    2010
    Posts
    27

    Re: Auto Post Day of Month Entry

    I converted tables to ranges and saved workbook as 3.1 version closed it and reopened. The entries aren't filling in still. If you have a chance can you check it please?

    Sheet2 is referenced in the code but that is the Jan! sheet. Could that be the issue?

    Thank you

    PS I changed the sheet to Sheet17 and it posted today's row. But it posted it multiple times and in the date column it has the number 4 and not the date. Can you please fix?
    Last edited by John775; 10-04-2018 at 08:37 AM.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 2
    Last Post: 04-30-2016, 05:38 AM
  2. [SOLVED] Auto instert Month names for This month, Last month and Next month
    By hemal89 in forum Word Programming / VBA / Macros
    Replies: 4
    Last Post: 12-10-2013, 12:01 PM
  3. VBA: Piviot table Month auto select based on current month?
    By mattress58 in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 08-21-2013, 07:18 AM
  4. Forcing month/year entry to last day of month
    By Gunther Maplethorpe in forum Excel General
    Replies: 8
    Last Post: 06-13-2013, 03:16 PM
  5. [SOLVED] Auto populate cells from data in a 6 month range starting with the current month
    By ecarnley349 in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 09-21-2012, 07:32 PM
  6. Calendar VBA auto filling week and month based on calendar entry.
    By perrymagic in forum Excel Programming / VBA / Macros
    Replies: 7
    Last Post: 12-18-2011, 02:00 PM
  7. Auto month entry
    By Tracyann in forum Excel General
    Replies: 4
    Last Post: 10-12-2011, 04:21 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1