Recent content by chandlm

Sorry should have read cboTemp.SelStart = 0 cboTemp.SelLength = cboTemp.TextLength Hope this helps. Matt [rockband]

This should be achieved by using the following cboTemp.SelStart = 0 cboTemp.SelLength = Me.ComboBox1.TextLength Hope this helps. Matt [rockband]

Nicely done AnotherHiggins! Hope this helps. Matt [rockband]

DaveInIowa & RIVERGUY Star to both of you as you pushed me in the right direction. I used a combination of both your suggestions and came up with the following. Just what I needed. Dim dsheader As New DataSet Dim dsdetails As New DataSet dsheader.Tables.Add()...

file looks like this and appears to be just a normal comma delimited file. "H",19,04032009081510,"INS" "D","INS:116469008","15230000073",04032009080000,"CANCEL","NOACCESS" "D","INS:118747017","16067000309",04032009080200,"JOBSTARTED","Job Has Started"...

I have a number of files with a .dat extension. I want to be able to populate a dataset with a the contents of the files which are comma separated. I have tried using the Microsoft Text Driver without success. Can anyone give any pointers. Hope this helps. Matt [rockband]

Glad I could help. It certainly is weird if you have had no issues before and have definitely not changed anything. Hope this helps. Matt [rockband]

Hi Groves22, I took your code and got the same error using .Sheets(5).Range(.Cells(3, 1), .Cells(count1 + 3, 52)).Copy I then changed it to this and it didn't cause me any issue. .Sheets(5).Range(Cells(3, 1), Cells(count1 + 3, 52)).Copy Hope this helps. Matt [rockband]

After a quick scan of your code I can't see anywhere where you have declared/assigned a value to count1. Hope this helps. Matt [rockband]

There isn't a particular query it fails on. I have tried using a macro and looping through all sheets in the workbook and refreshing the queries on each. I purposely run it starting on a different sheet each time and it gets to updating 64 queries then the unspecified error occurs. I have...

Hi Guys, Not sure if this is the best place for this question but here goes. I have been given an excel workbook with around 500 queries to an access database. The problem we have is that when we open the workbook we are asked if we want to enable automatic refresh. We enable it and off it...

Only reason I can see why you would progrmatically add a formula and not the result is, that if you needed to change the values in the workbook it would not reflect in the cell containing the average. Hope this helps. Matt [rockband]

This will do as you ask. MFORMULA = "=average(" & Cells(3, 6).AddressLocal & ":" & Cells(HORZPTrowcount, 6).AddressLocal & ")" Cells(HORZPTrowcount, 6).Formula = MFORMULA I should point out however that you are going to create a circular reference with the formula you supplied. Hope...

Something like this dim uservar as integer uservar = InputBox("Enter a number between 1 and 3", , "1") Sheets("Sheet" & uservar).Select Hope this helps. Matt [rockband]

I use something like this. Sub finduser() Dim User As ActiveDs.IADsUser dim domainname as string domainname = "somewhere.co.uk" Set User = GetObject("WinNT://" & domainname & "/" & Range("a1").Value & ",user") If Err.Number <> 0 Then Status.Text = "Domain or User does...