Google Answers Logo
View Question
 
Q: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE ( No Answer,   8 Comments )
Question  
Subject: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
Category: Computers > Programming
Asked by: leetim-ga
List Price: $5.00
Posted: 22 Aug 2004 01:02 PDT
Expires: 22 Aug 2004 21:38 PDT
Question ID: 391023
Sub accy()
If a1 <> 0 Then
GoTo c1
type "accy"
Else
End If

End Sub

Request for Question Clarification by mathtalk-ga on 22 Aug 2004 12:53 PDT
Hi, leetime-ga:

The Comment posted by dreamboat-ga provides VBA code assuming you're
trying to do this in Excel.  If that's correct, you may want to direct
any follow-up Clarifications to dreamboat-ga by posting Comments
below.

If the solution supplied meets your requirements, you may wish to
expire the Question (with the Close button at upper right) to avoid
any charge for an Answer.

regards, mathtalk-ga

Request for Question Clarification by mathtalk-ga on 22 Aug 2004 18:27 PDT
Hi, leetim-ga:

I'm glad that the Comment provided by dreamboat-ga is what you wanted
to know, but since dreamboat-ga is not a Reseacher, you will not be
charged for that as an Answer.  Closing the Question would prevent any
further Comments from being posted, so hold off until you've finished
that discussion!

In fact Researchers should read your comments before attempting to
answer a question, so I think it unlikely anyone would post an Answer
at this point.

regards, mathtalk-ga

Clarification of Question by leetim-ga on 22 Aug 2004 21:33 PDT
Thanks SO much Dreamboat - have managed to do what I set out to do now
and can get on with posting from trial balanc to profit and loss
account.

Have read the personal.xls but it does not make much sense.
Answer  
There is no answer at this time.

Comments  
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: dreamboat-ga on 22 Aug 2004 02:25 PDT
 
Option Explicit 
 
Sub accy() 
     
    If Range("A1") <> 0 Then 
        Range("C1").Select 'Remove this line if you don't need to select the cell.
        Range("C1").Value = "accy" 
    End If 
     
End Sub


My Name is Dreamboat.
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 17:37 PDT
 
Sub acno()
If Range("a1") <> 0 Then
Range("c2").Select
Range("c2") = a1
End If
End Sub
Yes that accy sub you gave me works fine and I need to pay you for it,
but can you tell me how to please? Also, I want to put the actual
figure into c2 - how do I put figs in ie the 1 that is shown in a1 -
see my attempt above does not work
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 17:39 PDT
 
mathtalk-ga - yes dreamboat fixed this for me and I now want to pay
him the 5.00 that I put out my tender for - how do I do it please?
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 17:42 PDT
 
Dreamboat your code works fine, but I want to store it in personal
macros - where do I find, or shall I say, how do I put the sub in
personal so that it works for all spreadsheets please
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 17:51 PDT
 
dont worry about the figs please dreamboat - I found out how to do it
simply put range c1 = range a1 (suitably coded of course)But I still
need to know where to store personal macros
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 18:00 PDT
 
also, how can I put the info on sheet2 please

Sub acno()
If Range("a1") <> 0 Then
Range("d1").Select 'range ("shee2!d1" does not seem to work???)
Range("d1") = Range("a1")
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: leetim-ga on 22 Aug 2004 18:54 PDT
 
Sub ad()
If Range("sheet1!a1") <> 0 Then
Range("sheet2!d1").Select
Range("sheet2!d1") = Range("sheet1!a1")
End If
End Sub

This is the sub I want to run - it runs okay on sheet1 without any
problem but to get it to post to sheet2 - it wont run
Subject: Re: HOW CAN I MAKE ACCY FIT INTO C1 PLEASE
From: dreamboat-ga on 22 Aug 2004 20:52 PDT
 
Hi! Sorry to come back so late!

For sheet 2:

Sub accy() 
     
    If Sheets("Sheet1").Range("A1") <> 0 Then 
        Sheets("Sheet2").Range("D1").Value = Sheets("Sheet1").Range("A1").Value 
    End If 
     
End Sub 


I'm sorry that you cannot pay me.
Google will not let anyone become a researcher anymore--they have too
many, they say.

Do you still need to store in your personal macro workbook? Please see
Help file for "personal.xls" or come back.

mathtalk: thanks for your help--it's very nice of you.

Important Disclaimer: Answers and comments provided on Google Answers are general information, and are not intended to substitute for informed professional medical, psychiatric, psychological, tax, legal, investment, accounting, or other professional advice. Google does not endorse, and expressly disclaims liability for any product, manufacturer, distributor, service or service provider mentioned or any opinion expressed in answers or comments. Please read carefully the Google Answers Terms of Service.

If you feel that you have found inappropriate content, please let us know by emailing us at answers-support@google.com with the question ID listed above. Thank you.
Search Google Answers for
Google Answers  


Google Home - Answers FAQ - Terms of Service - Privacy Policy