https://www.dropbox.com/s/c98wh0q52t...2222.xlsx?dl=0
hi i had a spread sheet for my accounts for car trade and some one gave me this code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim dt As String
If Target.Cells.Count > 1 Then Exit Sub
If Len(Sh.Name) <> 3 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("C3", Cells(Rows.Count, 3).End(xlUp))) Is Nothing Then
dt = Format(Range("C" & Target.Row).Value, "mmm")
Sh.Range("A" & Target.Row).Resize(1, 9).Copy
Sheets(dt).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
Sh.Range("A" & Target.Row).Resize(1, 9).ClearContents
End If
Application.EnableEvents = True
End Sub
but now i am making a new one so if any one could help me please
the new range is from Column A to X Row 1260 to 2000
Column of Sold Date start from B 1260 to B 2000
got 14 Worksheet 12 months of the year from Apr to Mar one Total and the last one Make And Models
got a formula in Column K,P and V i dont know if u need to know that
all what i want is when i put the sold date the row of the information of the car move to the right month Exemple
i have bought a car in April witch is all the information will be in worksheet Apr and sold it in May so when i put the sold date i want the row from A to X of the right car move to worksheet May
the old code was working perfect apart from when i put the sold date in the same month used to go to the bottom of the list and leave empty row at the top if there is any way to repair that
Bookmarks