I have a database of customers in sheet1 and can search colA by using .find command and find part of text string entered in textbox1, results are filtered and shown in listbox1. my problem is the listbox is only showing 9 columns and i need 12.
i think this is because i am using the additem command.
can anyone suggest a way around this or alternative coding method??
Sub cmbFindAll_Click()
Dim strFind As String 'what to find
Dim rFilter As Range 'range to search
Set rFilter = Sheet1.Range("a2", Range("f65536").End(xlUp))
Set rng = Sheet1.Range("a2", Range("a65536").End(xlUp))
strFind = Me.TextBox1.Value
With Sheet1
If Not .AutoFilterMode Then .Range("A2").AutoFilter
rFilter.AutoFilter Field:=1, Criteria1:=strFind & "*"......................
On the attached spreadsheet, I have a command button on the search results spreadsheet that opens a userform to show the individual records with populated data.
This is working fine. The problem is when I use the 'drill down' button beforehand.
As an example, I search for the language "Italian". I then drill down to find "Females". When I click the command button and click Find, I only want the 3 records for the females, not the 7 that match the original search.
I know where in the macro changes are required, I just don't know what to change it to.
im trying to create a two column listbox that will transfer both columns to the listbox on the right and also transfer from the right to left currently right to left works but when I trasnfer from the left to right then the right to left only one column is moved.
1. When I query it grabs the column name and then the value I am looking for, how do I just grab the value?
2. How can I have the query return the results in the order that they are obtained? For example, lets say I query 3 data points. The first is 1, second is 2, and 3. But when they are put on the excel SS they are in the order 3, 2, 1.
3. In addition to the table I am grabbing below, I have a second table I want to query. The table name is two words, and last time I tried to query it, it did not work.
Sub proSQLQuery1() Dim varConnection Dim varSQL
For i = 0 To 1
varConnection = "ODBC; DSN=MS Access Database;DBQ=C:Documents and SettingskbreslinDesktopLydia.mdb; Driver={Driver do Microsoft Access (*.mdb)}" varSQL = "SELECT VitalStats.birth_date FROM VitalStats WHERE VitalStats.Cases_ID='" & Cells(1 + i, 1).Value & "'"
With ActiveSheet.QueryTables.Add(varConnection, Worksheets("Temp Hold").Cells(2, 4))
I used the Get External Data function within Excel and the query returned the fields in alphabetical order. I went back into the query and rearranged the fields into a more logical order, but when refreshed the query continues to return the fields to Excel in the original alphabetical order.
Am I missing something, or do you only get one shot at the order of the fields being returned?
I have the below code that will do a data dump of an access table into excel based on an SQL query, is there a way to do a select statement that can match against the data in column C on the spreadsheet.
like:
"Select * From Bsmart where Serial_Number = ##[EXCEL COLUMN C1:Lastrow]##
Code: Dim bkNew As Workbook Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim stCon As String Dim SQl1, SQL2, SQL3, SQL4, SQL5, varSQl As String
I have simplified this spreadsheet from the original to get to the core of what I want it to do. There are three tabs: 1) tab:"query fields" is an area that places data that is retrieved from the web, in this case it retrieves tables from yahoo finance given a ticker input. The ticker input cell is currently on the "score card" tab. 2) tab:"score card" in this tab you can input a ticker symbol in the indicated box and it will populate the "query fields" with corresponding data. This tab also extracts certain fields from the retrieved tables and performs a pass/fail test then produces a score %
This is great if I'm doing one symbol at a time, however I eventually would like to 'loop' this process such that a score field is populated for a list of tickers, hence tab 3) "list". Ideally I'd create a control button to initiate the web retrieval process and it would go down my list, retrieve the table data, perform the pass/fail tests, then populate the corresponding score % in the cell next to the ticker symbols. I know I can keep running separate web queries for specific symbols, but I guess my secondary goal is to have this be as dynamic as possible, since the ticker list will change and the list could be sizable at times.
I want whenever i select any dept in the B column say ID or Design... the value into the D column should change automatically...
say if i select in B5 as ID then D5 value should show me India
******** ******************** ************************************************************************>Microsoft Excel - resource_sheet_11_Dec_07_V2.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDE1Project(Client - Name- Length)Dept.Resource 1-Oct2 3Template 4 5New Course Sample Template ID 6New Course Sample Template ID 7New Course Sample Template DesignDesign Pool 8New Course Sample Template BuildBuild Pool Project Schedule [HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
I have an MS Access query that contains a parameter. The parameter is a date field, and I have configured that in the Access query. If I run the query within the MS Access user interface, it prompts me for the paramater value as expected, and runs just fine. However, I want to connect to this query from within Excel as a data source.
I have created a connection to the Access file using ODBC from within Excel. In the MS Query window, I am merely selecting all of the fields resident in the MS Access query, and returning all values. In other words, there is no selection criteria in the MS Query. I have done this many times with Access queries that DO NOT contain a parameter, and everything works fine. However, in this instance, I need to pass a parameter through to MS Access in order for the query to run. At the moment, I get the "Too Few Paramaters...1 expected" error message. This makes sense, because I haven't figured out how to pass the paramater to MS Access.
Is there a way to structure this that does not involve VB code? If so, I'd love to know how. I have tried creating parameters in MS-Query with the same name, but although I get the prompt it doesn't connect with the Access query as the source for the parameter value.
If the solution requires using code, I'm good with VB Code in Excel...is there VB for Excel code that could make this happen?
Failing that, I guess there must be (I've seen a few in my search thus far) Access VB Code that can make this work. I'm very rusty using VB with Access, so this is my least favored solution. However, if this is the only option, keep in mind that I need to pass the paramater ultimately from a user who will initiate the process using Excel.
Need the query parameters which takes the date from the cell into the query. How should I modify my query if it needs to take the date from a cell?? The bold one date should be picked from one of the cell in sheet 2.
My query is this WEB 1 http://fc-web-phl1-101.phl1:8090/gp/...runReport.y=12
I am trying to set up a listbox on a userform that will draw from 2 columns. The first column is an abbreviation of the phrase in the second column as shown below. When the user clicks the listbox arrow I want them to see the descriptor of the 1 - 3 character code since they are not always intuitive. When the selection is made I want the form to capture only the code.
IP In Progress AMAwaiting Materials ADAwaiting Design CPCompleted.
I have a csv file on another drive on the network that i need to query. I believe that ms query would be the best way. I know that a DSN needs to be setup but this macro will be used by various users who wont know how to do that. thus I would like to create one via VBA every time the task needs to be run. I haven't a clue how to do this and i need it to be explained to me in general terms with words of one syllable!
I am trying to make a macro that will query a column J4 for a date, if the date is found say "Wednesday, July 4, 2012" (J8) get the text from Column K8 "Independence Day" and insert the text in Cell (H1).
The Macro Prints sign in sheets with the date in H2, it only prints Monday through friday. Then skips the weekend and the next date will start the following Monday.
The Federal Holiday schedule is in column range J (Date) and K (Holiday)
I have a four column listbox where 4th column is percentage. In my source worksheet cells are formatted as percentage but when this is displayed in list box it shows approximately 10 decimals or maybe even more. How can I change my code only to show two decimals in 4th column?
I have the following code, a checkbox and listbox on a sheet at the moment the list box appears to the right of the column , I want it to appear to the left of the data entry column.
I have tried theproperties on the list box itself but it just resets, I reckon this code controls the size,shape,location of the list box.
Option Explicit
Private Sub CheckBox1_Click() If CheckBox1 Then ListBox1.Visible = True Else ListBox1.Visible = False End If End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Target As Range Dim MySel As Range
Set Target = Range("VBA_Target") Set MySel = Intersect(ActiveCell.EntireRow, Target) MySel.Value = ListBox1.Value
I have a table that lists the months of the year down from cell A2:A13, and days of the week along row from cell B1:H1. The data in between (cell B2:H13) is pulled through from elsewhere in the workbook and is in number format.
What I basically want to do is create another worksheet with the months of the years listed down column A, and in column B, for each month, I want the first day of the week where the value in the original table is more than zero, and in column C the second day of the week where the value is more than zero. I really hope that makes sense, was quite difficult to explain!
