hello
i need help from experts to copy data from sheet1 to sheets(may,jun,July...etc) it depends on what write into inputbox if i write may then copy data only dates of may months to sheet called may and so on the rest of months and sheets if is possible do that by array because it's quick i have no experience that that's why i request that i do a simple code but i think it's not practical i search so much in the internet to get code like my demand and adjusted what i need but i failed
Code
Sub MoveData()
For Each cell In Range("A1:A111") ' Where to look for the date
If cell.Value = "1/05/2020" Then ' The date
Range("A4:D100").Select ' What is the range to copy
Selection.Copy ' Copy it
Sheets("SHEET1").Select ' Select the Sheet it applies to
Range("A1").Select ' Where to paste the data
ActiveSheet.Paste
Sheets("MAY").Select ' Go back to the templete sheet
Range("A1").Select
Application.CutCopyMode = False ' Remove the copy mode
End If
Next ' Move forward to the next
For Each cell In Range("a1:a100")
If cell.Value = "1/06/2020" Then
Range("A4:D100").Select
Selection.Copy
Sheets("JUNE").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("SHEET1").Select
Range("A1").Select
Application.CutCopyMode = False
End If
Next
End Sub
Display More