transposing data not copying to the target cell(s)

[jdin54]

Hi,
I am transposing data from one worksheet to another in the same workbook.
When I transpose the data from the originating workbook to the target cells in the other workbook (using copy, paste transpose) I either get no data copied across or a circular reference warning.
Could someone please show me a way by vbasic how I can do this.
Please see file. I am copying the Outgoings totals from worksheet tab 07JULI&E H40:X40 to tab 07JULRECON G6:G22 and the Income totals from 07JULI&E H10:X10 to tab 07JULRECON D6:D22
Thanks in advance
Jdin54

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

BTW there's no data in H10-X10 on your sample.

[jdin54]

Thanks John will try this and get back to you.
Joe

[jdin54]

Thanks again John. Worked perfectly.
So if I now add new worksheets for Aug, Sept etc. I just change the appropriate sheet names will that work. Or can you think of an other way?
Thanks,
Joe

[JOHN H. DAVIS]

You could do that, but another option would be to use an input box to select the sheet name. That way you don't have to change the macro every month.

[jdin54]

Thanks again John,
I really am very new to this. I will try the input box.
May have to get back to you if I can't make it work though.
Thanks again,
Joe

[jdin54]

Hi John,
Have tried the input box in which the user enters the date (not the sheet name). This updates the date correctly and all is fine.
I tried to have the input box display when the reconciliation sheet is opened. It worked once when I first tried it but when I saved and reopened the worksheet it did not display the input box.
Can you please have a look and advise as to why it is not displaying on opening the worksheet. Also, I am looking for a way to send the file but can't see any way to do that here. Did it on my first Query so that is something else I need to learn ? So I have copied the code here (below).

Private Sub Workbook_Open()

End Sub
Private Sub CommandButton1_Click()
Dim MyVariable As Variant
MyValue = InputBox("Enter the date of this Reconciliation")
Range("G3").Value = MyValue
End Sub

Your valued advice is much appreciated.
Joe

[JOHN H. DAVIS]

Please use code tags when posting. See Forum Rule No. 3 on the link.

http://www.excelforum.com/forum-rule...rum-rules.html

I think you're after Sheet Activate Event Code:

Please Login or Register  to view this content.

[jdin54]

Hi John,
Getting a run-time error "424" which states:
Object required when I run the code.
Regards,
Joe

[JOHN H. DAVIS]

Where did you place the code? Did you place it in the Sheet Code Module?