Add row in 2 worksheets

[fezonio]

Hi

I need to add a row in tab "Clients", every time I have a new customer. Then I need to add that same row in another tab "Master". I tried using a macro but it copies the same row with the same information again and again.
Basically i need to add a row, put in some info and that automatically the same row is added in another tab

Hopefully someone can help me

Thanks in advance

[royUK]

Why do you need to duplicate data, it is generally totally unnecessary. Where do you want to add the Row, attach a small example workbook.

[fezonio]

Ok, I have a list iof customers and info in the tabs of Chi and Mex. In the tab Master I have a consolidation of all my data. The tab Master has a formula to modify automatically whatever changes I make in the other 2 tabs. However, when i add a new customer in Chi or Mex, I have to copy it and paste it in Master.
Now imagine doing that when you have 10 worksheets and many many customers on them.

Hope this helps

[royUK]

You only need one sheet of data, you can easily use AutoFilter on the countries column

[fezonio]

Sorry no, that doesn't quite help me. Perhaps I'm not being clear. When I add a new customer's info on Chi or Mex, I want Excel to copy all by itself, that very same info in the Master worksheet. Maybe using a button that says "Add new row" or something like that.

[royUK]

What I am saying is that it is unnecessary, you could manage with one sheet of data. Why duplicate data? You could use something like this, it will copy the row of the selected cell

 Dim R      As Long
    With Sheet3
        R = .Cells(Rows.Count, 1).End(xlUp) + 1
        ActiveCell.EntireRow.Copy .Cells(R, 1)
    End With

[fezonio]

Sorry but could you also help me in telling where should I copy the code?? I am really not good por VBA programming

Thanks

[royUK]

You need to add a Standard Module in the VB Editor using the Insert menu, then add

Sub copyRow{}
 Dim R      As Long
    With Sheet3
        R = .Cells(Rows.Count, 1).End(xlUp) + 1
        ActiveCell.EntireRow.Copy .Cells(R, 1)
    End With
End Sub

Close the VB Editor

Finally add a button on the sheets from the Forms Menu, right click & Assign Macro.

[fezonio]

Thanks, but it has an run-time error '13': Type mismatch
In the debug, it marks in yellow: R = .Cells(Rows.Count, 1).End(xlUp) + 1

[royUK]

Sorry I missed a bit

R = .Cells(Rows.Count, 1).End(xlUp).Row + 1

[fezonio]

Thanks roy, I mean really thanks, it works perfectly.
Thanks again man

greetings from mexico

[royUK]

No problem, please mark the question Solved.