How to make workbook autocreate new sheet every month with data
Closed
                    
        
                    liam8671
    
        
                    Posts
            
                
            2
                
                            Registration date
            Thursday August 24, 2017
                            Status
            Member
                            Last seen
            August 24, 2017
            
                -
                            Aug 24, 2017 at 12:52 PM
                        
liam8671 Posts 2 Registration date Thursday August 24, 2017 Status Member Last seen August 24, 2017 - Aug 24, 2017 at 02:39 PM
        liam8671 Posts 2 Registration date Thursday August 24, 2017 Status Member Last seen August 24, 2017 - Aug 24, 2017 at 02:39 PM
        Related:         
- How to make workbook autocreate new sheet every month with data
- How to make google sheet right to left - Guide
- How to copy data from one excel sheet to another - Guide
- Windows network commands cheat sheet - Guide
- Tmobile data check - Guide
- Excel move data from one sheet to another - Guide
1 response
                
        
                    liam8671
    
        
                    Posts
            
                
            2
                
                            Registration date
            Thursday August 24, 2017
                            Status
            Member
                            Last seen
            August 24, 2017
            
                    
Aug 24, 2017 at 02:39 PM
    Aug 24, 2017 at 02:39 PM
                        
                    Update,
I am using the following code and it makes a new sheet every month.
Sub AddMonthWkst()
Dim ws As Worksheet
Dim strName As String
Dim bCheck As Boolean
On Error Resume Next
strName = Format(Date, "yyyy_mmmm")
bCheck = Len(Sheets(strName).Name) > 0
If bCheck = False Then
Set ws = Worksheets.Add(Before:=Sheets(1))
ws.Name = strName
End If
End Sub
But i was hoping when it made the new sheet that it would copy info from the previous months sheet.
            I am using the following code and it makes a new sheet every month.
Sub AddMonthWkst()
Dim ws As Worksheet
Dim strName As String
Dim bCheck As Boolean
On Error Resume Next
strName = Format(Date, "yyyy_mmmm")
bCheck = Len(Sheets(strName).Name) > 0
If bCheck = False Then
Set ws = Worksheets.Add(Before:=Sheets(1))
ws.Name = strName
End If
End Sub
But i was hoping when it made the new sheet that it would copy info from the previous months sheet.
