Create new worksheet & copy the based on date
Solved/Closed
Related:
- Create new worksheet & copy the based on date
- Create skype account with gmail - Guide
- Create new instagram account without phone number - Guide
- Create snapchat account - Guide
- Create hotmail account - Guide
- Transfer data from one excel worksheet to another automatically - Guide
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Apr 8, 2012 at 08:38 AM
Apr 8, 2012 at 08:38 AM
Start macro recorder
Apply the filter for date
copy the visible rows
paste
stop the recorder
this will give you a good template to work from
Apply the filter for date
copy the visible rows
paste
stop the recorder
this will give you a good template to work from
Apr 8, 2012 at 08:42 AM
But, I tried above things but I cant get the correct result.
Note: I am new to the excel macro :-(
Apr 8, 2012 at 08:43 AM
post your macro and give a bit more information about the "wrong result"
Apr 8, 2012 at 08:58 AM
but dont know how to copy the particular fields based on todays date...
used code
Sub Macro3()
Dim x As Integer
For Each cell In Selection
x = Sheets.Count
Sheets("Sheet2").Copy After:=Sheets(x)
Sheets("Sheet2 (2)").Name = cell.Value
Next cell
End Sub
Apr 8, 2012 at 09:01 AM
Apr 8, 2012 at 09:24 AM
Sub Test2()
ActiveSheet.Range("$A$2:$N$458").AutoFilter Field:=12, Operator:= _
xlFilterValues, Criteria2:=Array(2, "4/5/2012")
ActiveCell.Offset(-181, 0).Range("A1:N284").Select ' -> Getting error here
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet2").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Todays Work"
ActiveCell.Offset(12, 10).Range("A1").Select
Application.CutCopyMode = False
End Sub
Getting some error here, I wanna to copy particular date....
Note: Same thing work small data sheet.... now am trying for large data (it mean my sheet having Many data)