VBA Help

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 374,546 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,664 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser:

Thread Tools Display Modes

Views: 1424 | Replies: 2

•

Join Date: Feb 2007

Location: Las Vegas

Posts: 8

Reputation: FatalGrace is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

FatalGrace FatalGrace is offline

Offline

Newbie Poster

VBA Help

Feb 9th, 2007

Hi,

I’m trying to set up a database type program in excel using VBA, you may find yourself asking “why not use access” the answer is the boss wants excel. Believe me every day that I work on this thing I cry, sad…sad little tears :cry:
Anyway I’ve got it all done except one tiny thing. And if you could help me I would be extremely grateful.

I need to copy information form one cell in an active sheet, to another cell in an inactive sheet, without leaving the active sheet.

Here is a snipit of what I’m trying to do. “Not working though”

Help with Code Tags

(Toggle Plain Text)

  Rem copy cells form one sheet to another
   
  A = Sheet("Final Checklist").Range("F9")
   
  If A > 0 Then Sheet("Summary").Range("10B") = Sheet("Final Checklist").Range("B9")
   
  End If

If this is the wrong forum please don’t flame me I was just looking for a little help.

Thanks,

-Fatal Grace

P.S. I'm using MS Office 2003, OS Windows XP Pro

•

Join Date: Feb 2007

Location: Las Vegas

Posts: 8

Reputation: FatalGrace is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

FatalGrace FatalGrace is offline

Offline

Newbie Poster

Re: VBA Help

Feb 12th, 2007

Ok… I’m trying something new

Help with Code Tags

(Toggle Plain Text)

  Private Sub CommandButton1_Click()
  Rem copy cells form one sheet to another
   
  A = Workbooks("QA Forms Master v1-7").Sheets("Final Roof Inspection Checklist").Range("F9")
   
  If (A > 0) Then Workbooks("QA Forms Master v1-7").Sheets("QA Summary").Range("10B") = Workbooks("QA Forms Master v1-7").Sheets("Final Roof Inspection Checklist").Range("B9")
   
  End Sub

When I click on the button if its greater then 0 I still get an error, I think I’m on the right track, but help is still very much welcomed.

Thanks,

-Fatal Grace

Tech Support Question:
I deleted a file from my PC last week and just realized that I need it.
If I turn my system clock back two weeks, will I have my file back?

•

Join Date: Feb 2007

Location: Las Vegas

Posts: 8

Reputation: FatalGrace is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

FatalGrace FatalGrace is offline

Offline

Newbie Poster

Re: VBA Help

Feb 12th, 2007

Posting to fix this code, I has a aixelsyd “dyslexia” moment if anyone needs to use the correct code here it is.

Help with Code Tags

(Toggle Plain Text)

   
  Private Sub CommandButton1_Click()
  Rem copy cells form one sheet to another
   
  A = Workbooks("Your Workbook Name").Sheets(" Your Sheet Name").Range("F9")
   
  If (A > 0) Then Workbooks("Your Workbook Name").Sheets("Your Sheet Name").Range("B10") = Workbooks("Your Workbook Name").Sheets(" Your Sheet Name").Range("B9")
   
  End Sub

I had 10B I should have put B10

Thanks and unless you need this code disregard this post.

-Fatal Grace

Tech Support Question:
I deleted a file from my PC last week and just realized that I need it.
If I turn my system clock back two weeks, will I have my file back?