Recent content by JPearson

It really shouldnt take that long. I use code to import sheets that can be 20,000 rows with 27 columns and it finishes in under 30 seconds. How are you trying to import this?

Hello! I have a set of code to generate at pivot chart based on the information entered by the user on a form. The data populates fine however if it is the first time that the dates are being viewed on the chart they are collapsed. I want these dates to open expanded showing the hours...

I have a database that populates the Digital Signature has been tampered with... warning everytime I open it after I have run the code. I have done some reserch and have discovered that this will occur if you have and action query that is modified by code. Is there any work around for this...

Not 100% sure on this without a bit more digging but the class I use has a procedure Private Sub OFN_to_WOFN(wofn As W32_OPENFILENAME). In this procedure there is with wofn.... .nFilterIndex = FilterIndex the FilterIndex is listed as a variable: Public FilterIndex As Long ' Initial directory...

I dont believe there is formula that will solve this problem. There is the option to use VBA to look at the cell values and, compare the previous cells and stop when it reaches the first matching criteria.

It will be tricky since it is not consistant but the best bet is to find something consistant in the rest of the string and work backwards. At least currently you can use the 2010 as a marker point. You know if you find 2010 inthe string then you can go back 6 spots and thats the begining of...

What about something like this AccuracyRate: IIf([totalItems]=0,0,(1-([TotalIncorrectItems]/[totalItems]))) -JP

Public Function FolderExists(filename As String) As Boolean If Not Dir(filename, vbNormal) = vbNullString Then FolderExists = True End Function

If you create the combined information behind the form you can use something like this. dim CbProdCode as string cbprodcode= Box1.value & box2.value & box3.Value & ect. I would probably also set all the box values to "" default to avoid a null error.

Sounds more like you should use VBA to change and refresh the query of that cbo box.

Private Sub CBOk_Click() 'place value in the txt box into a worksheet cell. Sheets("ToolChange").Range("C3").Value = me.tbentry.value 'can't close so we hide it from view me.hide 'clear the txt box in the form me.tbentry.value = "" end sub

Couple things I see here. 1. tbentry does not need the .value after it since its a long variable 2. You need to set the tbentry equal to something first. Its a non existant value so it has nothing to put into the specified range. 3. You do have tbentry at the end setting it to something...

Yes there is an easier way. Private Sub process() Dim ce As String Dim AA As Range Dim d As Integer Range("D1").Select d = 4 ce = "y" Do Set AA = Range(Cells(1, d), Cells(48, d)) Cells(50, d).Value = Application.WorksheetFunction.CountIf(AA, ce) ActiveCell.Offset(0, 1).Select...

That format will not define a location. It will make the cell in row 1 column 2 is B1 = whatever a is. If a = 6 then B1 cell will display 6.

Yes that is how the Cells(r,c) works.