Hi All,
Got some great help yesterday from De Premor using VBA to copy data to
other worksheets and then using next available row to copy again etc.
It works like a charm. But I need some tweaking that I hope is possible.
Scenario of worksheet TOTALS
A B
Can you explain it with a sample workbook ?
or maybe you can try to change
*LRow = WorksheetFunction.CountA(Sheet2.Range(A:A)) + 1**
*
to
*LRow = WorksheetFunction.CountA(Sheet2.Range(C:C)) + 1**
*
Pada 11/09/2013 19:28, georgebeegl...@gmail.com menulis:
Hi All,
Got some great help
Hi De Premor,
Thanks so much for the accurate information yesterday. We are currently
using that for one of our workbooks.
Yesterday, you nailed putting the value into the TOTALS worksheet in A1 and
then each time the values were cleared and the macro was run again it
replaced that
Please send me a sample file with a little explanation there
Pada 11/09/2013 20:10, georgebeegl...@gmail.com menulis:
Hi De Premor,
Thanks so much for the accurate information yesterday. We are
currently using that for one of our workbooks.
Yesterday, you nailed putting the value into
Explanation written on attached worksheet. Thanks for your time and
assistance.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use
PERFECT!!!Thanks so much for your assistance the last 2 days. I
appreciate it very much.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
U're welcome ;-)
Pada 11/09/2013 21:24, georgebeegl...@gmail.com menulis:
PERFECT!!!Thanks so much for your assistance the last 2 days.
I appreciate it very much.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
It’s =TIME(2,DO:IT,N:OW) ! Join official
Try this code, please give more attention on RED Color :D
Sub RoundedRectangle1_Click()
Dim LRow As Long
Sheet1.[A10].Formula = =SUM(A1:A9)
LRow = WorksheetFunction.CountA(Sheet2.Range(*B:B*)) + 1
Sheet2.Cells(LRow, *2*) = Sheet1.[A10]
Sheet1.Range(A1:A9).ClearContents
End