Recent content by HaHoBe

Hi, Neo-fite, using an userform and a on-time event is the way that should always work. A different approach which may not run constantly on all computers where it should be used is using WScript: Sub MsgBoxGoes() 'add refewrence to Microsoft Scripoting Runtime in VBE Dim objWSH As Object Dim...

Hi, Kesh, use WorksheetFunction.CountIf in an If..Else..End to deliver either zero results (put your comment in the desired cell and maybe leave the procedure) or a value of 1 or more (normal following of procedure). I don´t see a need for an error handling when the use of functions may be...

Hi, Grifter, this line should deliver the last row for any pivot (please alter Range("A4") if it should not be included in the pivot area): Range("A4").SpecialCells(xlCellTypeLastCell).Row Ciao, Holger

Hi, LadyDi, maybe you should have a look at the options for saving on your computer (maybe still be put to *.xls). Use VBA SaveAs in Excel 2007-2010 by Ron de Bruin is showing things up. The FileFormat should be xlOpenXMLWorkbook and the FileFormatNum 51: wkbk1.SaveAs...

Hi, Ian, the use of CountA instead of Match as well as the use of R1C1 for the ranges may help: ActiveWorkbook.Names.Add Name:="NOT", RefersToR1C1:= _ "=OFFSET(Extract!R1C57,0,0,COUNTA(Extract!C57)-1)" Ciao, Holger

Hi, Pete, I prefer to use the AddInInstall only once (for installing the AddIn) and would prefer the Workbook_Open to check for any existing buttons on the ribbon. Ciao, Holger

Hi, Gareth, deleting rows should start at the bottom and work up to the top. If you work down any deletion will cause the counter to miss a line for the check. Another pit may be the dimensions as you use long for the last row but an Integer for the counter, passing 32.767 rows will throw up a...

Hi, Ginny, if it´s code to be used on a UserForm the following code should do the work (no need to Dim a ListBox there): Dim r As Long 'Dim RequiredRosterDWSText As MSForms.ListBox Dim numValsToAdd As Long Dim cellValue As String numValsToAdd =...

Hi, LadyDi, I don´t know about a formula (this formula should utilize Excel4Macros in Names like Cell) as I usually use BuiltinDocumentProperties or CreateObject(Class:="Shell.Application") in VBA to get the information. Ciao, Holger

Hi, new2access123, I doubt that Access-Functions deal with Excel-Ranges which would mean to adapt them and place them in a standard module in Excel... You could try to utilize the AccessUDF by giving path and module name prior to the Function name and by setting a referenece in Excel VBE to...

Hi, bulrush, I pretty much doubt that the code ever worked from the personal.xls for open workbooks due to the fact that the Worksheet-Events only works for the given sheets in the workbook where the code is located. You can work around that by using Class programming and thus activating the...

Hi, brsawvel, depending on the feedback (free text or a choice from Data/Validation?) you maybe could use TextToColumn and a pivot-table sorted descending (mind the 256 Columns up until Excel2003). Ciao, Holger

Hi, kplatt, either use VLOOKUP and a table instead of all the Ifs (maybe CHOOSE could work out nicely) or follow 7 Ifs with an AND and the rest of your Ifs... :rolleyes: Ciao, Holger

Hi, tinynoo, as you use Formulas you most hopefuly use Dates. You could use a dynamic Range based on the starting values and the MATCH function narrow thge plotted range to only those values (or raise an error and not get the other values to be shown as values in the chart while using #N/A)...

Hi, OddProject, anything agianst activating the Analysis Toolpack AddIn and use NetWorkDays? The workbook shows an example of this function. Ciao, Holger