I need to write a macro that autopoloulate to different sheet and auto sort

[AMDanger]

I've got a multi-tab spreadsheet which has separate tabs for each of a person's clients. I am trying to make it so that when one enters a date and a payment amount in the next available cells on an individual client tab it fills in a slot on another sheet that acts as a repository. Basically, this supersheet/repository will have a date column and then a column for each client by initial. The row will have specific date and specific payment amount. The trickiest part feels like getting payments from different clients who come in on the same date to fill into the same row and for the rows/data to autosort by date. The days on which client sessions happen are not every day of the week and there is only a semi-stable pattern to which days of the week.

[xladept]

Can you post a sample? (Go to Advanced - Click on the paper clip and follow the instructions)

[AMDanger]

Here you go. The sample client tab is initials RO and the Great Repository is where I want info to travel to.(writing this sheet for a friend with titles they feel are accessible).

[xladept]

Hi AMDanger,

Try this code in the "ThisWorkbook" module:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wr As Worksheet: Set wr = ThisWorkbook.Worksheets("The Great Repository")
Dim c As Long, r As Long, S As String: S = Sh.Name
            If Sh.Name = wr.Name Then Exit Sub
            If InStr(1, S, "Client ") Then _
            S = LCase(Replace(S, "Client ", ""))
If Sh.Cells(Target.Row, 2) <> "" And CSng(Sh.Cells(Target.Row, 3)) <> 0 Then

c = 2: Do Until wr.Cells(3, c) = S: c = c + 1: Loop
r = 4: Do Until wr.Cells(r, 1) = "": r = r + 1: Loop

Application.EnableEvents = False
wr.Cells(r, 1) = Sh.Cells(Target.Row, 2): wr.Cells(r, c) = CSng(Sh.Cells(Target.Row, 3))
Application.EnableEvents = True
End If: End Sub

Directions for running the routine(s) just supplied

Copy the code to the clipboard

Press ALT + F11 to open the Visual Basic Editor.

Save your Workbook As Macro-Enabled

Select “ThisWorkbook" from the Insert menu

Paste the code in the whitespace of the module

And you're ready to go!

[AMDanger]

Thank you! I'm still having difficulty:

I entered the code you sent in the ThisWorkbook file in Visual Basic Editor. When I enter a payment on one of the client tabs, it tells me the Sub or Function is not defined and highlights the first line of code.

Thank you dearly,
Annie

[xladept]

Hi Annie,

Here's my copy:Income from Clients.xlsm: - I forgot to mention that the tab name RO needed to be changed to R.O. -