Search results

Hi, Xeroku, the code presented here takes what is displayed in the sheets. And this is what I would suggest to use because to me it seems to be confusing to be shown to be going to to ARC1 but instead finding myself placed within ARC2 :eek: What you want is what is laid behind the links in...

Hi, Dharmesh, if the database is sorted in the wanted order, use Data / Subtotals or a pivot table. Ciao, Holger

Hi, Xeroku, the links inside the worksheet should show the propper name for the corresponding sheet (that would help for those using the workbook without VBA). For the better use of the links I would recommend to use the following code (like stated above - the names for the hyperlinks shoudl...

Hi, Xeroku, in your case the sheet name which is extracted doesn´t fit the real names. I´ll need to do some further testing on the code (which I can only do this evening) but maybe the following altering will do the job: ... With Sheets(Mid(Target.Name, 1, InStr(1, Target.Name, "!") - 1))...

Hi, tdamme, the following code checks the date in column A and goes either to column B or C depending on my local time - each sheet only shows a month so at least the range has to be adjusted: Private Sub Workbook_Open() Dim datSearchDate As Date Dim rngCell As Range datSearchDate = Date For...

Hi, Dudley, make use of the function Split in VBA? Here´s a sample for the active cell but this procedure could be put into a loop. To check if splitting is possible/necessary InStr may be used: Option Explicit Sub DudleySplit() Dim myArray As Variant Dim bytCounter As Byte myArray =...

Hi, Andre, I´d say no without the use of VBA (but I could be proven wrong ;)). Ciao, Holger

Hi, Brad, without the use of EOMonth, A1 holds the date, A2 the years, A3 the months to add respectively: =DATE(YEAR(A1)+A2,MONTH(A1)+A3+(DAY(A1+1)=1),(DAY(A1+1) <> 1)*MIN(DAY(A1),DAY(DATE(YEAR(A1)+A2,1+MONTH(A1)+A3,)))) Ciao, Holger

Hi, Matt, I´ll go complain as with my new glasses I can´t find the attachment. ;) You could make very good use of the function Indirect as far as I understand the question. Ciao, Holger

Hi, Dudley, I would have liked a sample workbook to figure things out. I´d preferred to use xlSepcialCells for empty cells in column D and G and do the rest afterward. Anyhow by deleting in a For Each-Loop you will not check for two empty cells following directly as the rows fill up while the...

Hi, jamjam, I would make use of either a query to update the data or use the advanced filter to get the data. Attached you find a soktion pulling the data form Data whenever Internal or External are activated - pleas mind the name database for the used range in Sheet Data ;): Option Explicit...

Hi, Brad, as I do have my problems solving these kind of problems utilizing Data/Validation I usually make use of the workheet_Change-event behind the sheet to check and decide which further action to take. It´s an absolutely must for the use of macros in the workbooks thereafter. ;) Ciao, Holger

Hi, Jim, maybe use query to pull (or Access to push) your data into a spreadsheet and work from there on? Otherwise I would recommend to use a way like Copy data from an Access database into Excel with ADO. Ciao, Holger

Hi, jiggy, what about the usual way of never trusting anything sent to you/anybody by mail if you don´t know the sender, get the information what´s in the attachment and the size of that attachment? Ciao, Holger

Hi, fmm, I would eoither prefer Index and Match in Forumulas or use the Find-Method in VBA where the cell will be assigned to a range (and that will deliver all necessary information if a match has been found). Ciao, Holger

Hi, Stacey, I would prefer a normal printing job to the workbook-event whioch should be disabkled (Cancel = True) as that will not allow to determine if the printing really has been done or not. (only to my limited knowledge). Ciao, Holger

Hi, nh, please mind the slight difference between ActiveWorkbook (with the focus) and ThisWorkbook (with the code). In the sample code a workbook will be opened and the worksheet copied after all worksheets inside that workbook: Private Sub Copy_Worksheet_Click() Dim wkb As Workbook Set wkb =...

Hi, Ken, have you tried Debug.Print CDate(CLng(ActiveCell.Value)) or Debug.Print CDate(Int(#12/15/2005 7:17:27 PM#)) Works for me (with a different windows system Date And Time system). Ciao, Holger

Hi, Matt, if you don´t need the number of the line for other cases (I´m quite sure that shades agrees that it´s unnecessary to select a cell as almost all actions may take place without selection): Sub UseNoVariables1() Cells(Cells(Rows.Count, "N").End(xlUp).Row + 1, "N").Select End Sub Sub...

Hi, Matt, don´t know but looking at your sheetnames the string was like "'A1'!A1" which is a little different to what I had when I wrote the code. ;) The following amendments work fine for me (code only in ThisWorkbook): Option Explicit Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As...