Search results

Hi, gjh, check the security level for macors (Tools/Macro/Security) which should be set to medium. This code should go into a module, I opted for a choice for the (old) file to be opened: Sub CopyValues() Dim wbData As Workbook Dim wbOld As Workbook Dim varFileToOpen As Variant Dim rngUsed As...

Re: How to copy a worksheet withoput copying maco Hi, smiler44, the other way of not copying the sheet directly but looping through the UsedRange to copy values and formulas to a "master" being used instead without code won´t please me. Maybe anybody else has a workaround for this problem...

Hi, smiler44, Codename is the internal name of the object as you can see in the Project Explorer (should be something like Sheet1, not the name which can be altered in the sheet itself), and CodeModule just relies on the module for that particular object. There are two checkboxes on the second...

Hi, smiler44, if you use OfficeXP/2002 or later you may have to check the access for the vba project under security: Dim wks As Worksheet Sheets("Dashboard").Copy Before:=Workbooks("Vice President.xls").Sheets(1) Set wks = ActiveSheet With ActiveWorkbook.VBProject _...

Hi, gjh, give more detailed information about what needs to be included in the new workbook or record the action with the macro-recorder and start to work on the code in the VBIDE as the recorder will hard-code all actions (say the names of the workbook etc.). The place for the macro should...

Hi, triplell89, if form means UserForm (called by VBA) that would be okay, you could read the contents of the cell into a textbox and edit it there. Writing to the cell could be done by pressing a commandbutton on the userform. Depending on if the values to search for are listed in a...

Hi, Rod-b, I meant another kind of hyperlinks as I have put into the workbook. As you used spaces in Sheetnames I adjusted the code to perform properly for what I call hyperlinks. I put some macros on the autoforms to show an example of how to use these - they actually work well for the first 2...

Hi, Curtis, maybe use an automation based on Sub CopyCurtis() Dim wks As Worksheet Dim iRow As Integer Dim iStart As Integer Application.ScreenUpdating = False Set wks = ActiveSheet iRow = 2 iStart = iRow Do Until IsEmpty(wks.Cells(iRow, 1)) If wks.Cells(iRow, 1) <>...

Hi, IC, I´m afraid it will take a little bit more than just a code like Dim lngLastColum As Long lngLastColum = Cells(1, Columns.Count).End(xlToLeft).Column - 11 If lngLastColum <= 0 Then lngLastColum = 2 Application.Goto Cells(1, lngLastColum), True I would suggest the use of API for finding...

Hi, dark_magus, right now can only think of VBA to solve the problem (my formula approach didn´t fit :(). I used the following code to transform the data putting it to the Range E1:I8: Option Explicit Sub magus() Dim intCol As Integer Dim lngPlace As Long Dim lngCounter As Long...

Hi, Keith, the & will concatenate numbers to a string thus a multiplication has to be fulfilled to convert the string back into numbers which may be displayed as wanted. Ciao, Holger

Hi, Keith, any good reason not to use the normal time segment with an input of 00:00 which should convert properly if you format the result user defined by [hh]:mm for more than 24 hours? I put another way to solve the problem in the attachment but sadly enough I always get 03:40 as a my...

Bob, please do me a favour and answer the question if you tested the code - I doubt that very much according to what you quoted about the Excel Help. If you haven´t done it just test it and then give me your answer - I wonder the result of that. btw: I know the syntax for Ranges as well as...

Hi, Bob, then it seems to me like a code Cells(24, "P").Select isn´t working with english/american versions of Excel (it´s working fine for me but I´m using the german versions of the application). Is that correct? Ciao, Holger

Hi, RaunLGoode, first of all: if you found a solution that fits your needs stay with that - no matter what arguments I may come up with... ;) A Range object understands the numeric instruction given quite well. As the String starts with a letter for the Column Excel (at least 97 through to...

Hi, rlan214, if the file is open you could make good use of INDIRECT and the path located in a seperate cell. If not Replace could prove to be of good use or the use of the Links Dialog box. And you might even use VBA to alter the formulas - either when opening the workbook or by using a menu...

Hi, RaunLGoode, Dim X As Long Dim intCol As Integer X = ActiveCell.Row intCol = 1 Range(Cells(X, intCol), Cells(X + 2, intCol + 5)).Interior.ColorIndex = 6 According to my knowledge (which indeed is very limited) there is no need to convert numeric expressions to strings for a range object. ;)...

Hi, Xeroku, there´s really a great way to check if the code does what it´s supposed to do - just save the workbook, add a couple of sheets and test it (sorry of my unclear thoughts but I suggest you to test it, not me ;)). If the code works correctly (what I think it will do if the mentioned...

Hi, Xeroku, about the shown names of the hyperlinks in the worksheets: I would prefer to show the exact sheet´s name or use a more abstract term like "Details" instead of using ARC1!A1 (which to me should point to that worksheet and range). About the code: if you record a macro you will learn...

Hi, XerxesDGreat, maybe if you an additional column for a running number may be used you could make good use of the following function in that new column (I assumed Column A to be the running number with the numbering starting off in Row 2, below is the Formula for A2) =--SUBTOTAL(3,B$2:B2)...