Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. PorscheGT2

    Getting autofilter list into a combobox...

    Hi Tony, Sure, no rush, my deadline for this tool is on the 3rd of May. I'd be happy to look at any code you can produce and tailor/incorporate it into the tool. I would highly appreciate that. Anyway, I've been trying to do a while, wend statement since this morning and no luck so far. My...
  2. PorscheGT2

    Getting autofilter list into a combobox...

    Hello Tony, Thanks for your reply. One way I could think of doing it would be to sort the records, write a loop code and set a flag. Would it be possible though to do it without having to sort the records? Problem is, the users of the tool I'm working on will need to change names here and...
  3. PorscheGT2

    Getting autofilter list into a combobox...

    Hello all, Is it possible to get the criteria list for a particular autofilter to appear in a combo box? TIA! Marvin
  4. PorscheGT2

    Is animation possible in VBA?

    Thank you both for your help! I gave each of you a star!
  5. PorscheGT2

    Is animation possible in VBA?

    Hi all, Is it possible to animate several picture/graphic frames in VBA? Just wondering. Thanks in advance.
  6. PorscheGT2

    Controlling other applications with VBA, need help!

    Alright, point well taken. I'm using an error handler in the same code, replacing "createobject" with "getobject" and using err.document and another variable to set a flag. It still has a hole though, since when you close MS Word manually and do not specify to close Word in the macro, it still...
  7. PorscheGT2

    Controlling other applications with VBA, need help!

    Hello Skip, It's not that I absolutely have to code without error handlers, it's just a preference I have and I think it's practical since if something screws up in the code, it will continue to run (assuming it's something that can be handled) without notifying the user that something went...
  8. PorscheGT2

    Controlling other applications with VBA, need help!

    Hi Skip, Thanks for your help and reply. I've actually read that. I'd like to make this macro open Word and a new document if an instance doesn't exist, and use an existing instance when one exists. There's gotta be a way to create this condition without using error handlers. Any other takes...
  9. PorscheGT2

    Controlling other applications with VBA, need help!

    Hello All, I've been tasked by my manager to create a macro that would copy a range of cells from MS Excel to MS Word. So basically when it gets transferred to Word, it becomes a table. Here's the code: Application.ScreenUpdating = False Dim appWD As Word.Application, docWD As...
  10. PorscheGT2

    How to Unprotect a Worksheet in MS Excel

    Hello Skip, I just did that after I clicked on Submit and it works now! Thanks, I'll give you a star. Marvin
  11. PorscheGT2

    How to Unprotect a Worksheet in MS Excel

    Hello Skip, I'm so sorry, I forgot to mention I'm making this macro work from a commandbutton. Sure, it does work if you run it as a macro, but from a commandbutton, sure does give me that error. Thanks for your help! Marvin
  12. PorscheGT2

    How to Unprotect a Worksheet in MS Excel

    Hello Skip, Thanks for your reply, but I already tried that. I thought the syntax for both protect and unprotect would be the same but if you check the help menu, it gives you a different syntax for each method. By the way, the error I'm getting is: Run Time Error 1004 Unprotect Method of...
  13. PorscheGT2

    How to Unprotect a Worksheet in MS Excel

    Hello all! Before I go on, here's the code I'm working on: ActiveSheet.Unprotect "GT2" Dim BASE, RX, BUILDUP, PRES, QSUM, RIB, SQ, BASEDIR, RXDIR, _ BUILDUPDIR, PRESDIR, QSUMDIR, RIBDIR, SQDIR BASE = Range("b9") BASEDIR = Dir("x:\" & BASE) RX = Range("b12") RXDIR = Dir("x:\" & RX)...
  14. PorscheGT2

    How to create a copy of an activeworksheet to a new workbook

    Hello Geoff, Thanks for your reply. For some reason, when it executes the line: ActiveSheet.Copy Before:=Workbooks(svname).Sheets(1) it gives me the error "Copy Method of Worksheet Class Failed." Though when I execute it as a macro in a module, it works just fine. My co worker told...
  15. PorscheGT2

    How to create a copy of an activeworksheet to a new workbook

    Ok, here's the code I did last night: Private Sub Create_Copy_Click() Unload UserOptForm SrvArea = Range("d5") svname = SrvArea & " - BOBCopy.xls" Workbooks.Add.SaveAs FileName:=svname Windows("The 2004 Book of Business Report.xls").Activate...
  16. PorscheGT2

    How to go to make a MsgBox message go to the next line if it....

    .. doesnt fit the screen. I know you use the underscore symbol to do that, but how? TIA!
  17. PorscheGT2

    Need help moving entire rows to another worksheet.

    Thanks Skip, I gave you a star! That was very helpful.
  18. PorscheGT2

    Need help moving entire rows to another worksheet.

    Ok, cool. That was quick! Thanks again. BTW, Skip, is it possible to delete that entire row where the original data came from? Thanks, Marvin
  19. PorscheGT2

    Need help moving entire rows to another worksheet.

    Hello Skip, Thanks for the tip. Although the code only does half of what I wanted it to do. I actually wanted to paste the entire row to sheet 2. The code only cuts and paste the purchaser id found. I have yet to understand the arguments in your code too ;). Maybe you can explain what the...
  20. PorscheGT2

    Need help moving entire rows to another worksheet.

    Ok, here's the code: Application.ScreenUpdating = False Columns(&quot;a:a&quot;).Select PurchID = &quot;221&quot; If TypeName(Cells.Find(PurchID)) <> &quot;Range&quot; Then MsgBox (&quot;Purchaser ID not found!&quot;) Range(&quot;a1&quot;).Select Else: Cells.Find(PurchID).Activate...

Part and Inventory Search

Back
Top