I have a workbook that's setup like a form, with 30+ worksheets in it (lets say this file is called "source.xlsx"). I have information in specific cells I want pulled out in each worksheet and brought in to a new workbook called "Destination.xlsx" and listed in a row.
I have a spread sheet that has rows of information and once you click on the tally form button (top Left) you can search on the info and it will display in the list box once you click on a result. I have attached the spread sheet, with only 1 row as obviously I dont want to share work data on here.
My question is that, if I want to display a row in the form, I would like to be able to click on a certain cell (Incident # column), it would then recognise the row and display that row in the form.
At the moment I have a EVENT that will highlight a row if a cell is selected. Just thought I'd mention that in case it would interfere.
VB: Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ' If more than 1 cell is selected, then don't run the rest of the code Application.ScreenUpdating = False
I am trying to figure out how to initialise a multipage userform. I have two worksheets, one with a contact 'database', and one temp that holds search results.
I understand how to load data from the worksheet and write it back using a single useform, but this is foxing me just a tad!
I have a userform which loads the data into a worksheet named "Data" which is being used as a database for an event scheduler. I also load a calendar from a worksheet named "Month" so I need the information from the userform "UForm01" added to 2 worksheets.
The userform adds a series of textboxes to worksheet "Data" in the first open row. I also need certain textboxes from the Userform to be added to another worksheet to populate the calendar.
How do I change the following code to allow me move all contents from listbox1 to listbox2?
Windows Vista - Excel 2003
Option Explicit Private Sub cmdLeft_Click() With Me.lbRight ‘Make sure something is selected If .ListIndex > -1 Then ‘Add the selection to the other listbox Me.lbLeft.AddItem .Value ‘Remove the item from the current listbox .RemoveItem .ListIndex End If End With
I have listbox1 MultiSelectExtended (2 columns). If the items are selected I add them to listbox2 (also in 2 columns) with a CommandButton. The problem is that the code I have in the CommandButton adds them upside down!
I want to transfer from listbox1 to listbox 2 in the same order as listbox1 (Top to Bottom)
This is the code:
With ListBox1 For eCount = .ListCount - 1 To 0 Step -1 If .Selected(eCount) = True Then ' if selected then ListBox2.AddItem .List(eCount, 0) 'add to listbox2, Column 0 ListBox2.Column(1, ListBox2.ListCount - 1) = .List(eCount, 1) 'add to listbox2, Column 1 End If Next End With
I want to use excel to create quotations for customers. (currently doing it in word)
Tab 1 is the quote, has 4 columns, part number, description, cost, yearly maintenance Tab 2 has all the things we sell, part number, description, cost, yearly maintenance. 150 lines.
So, Tab 1, description column is a drop down box from Tab 2. Working fine.
Question. When an item is selected from the drop down, how do I get it to then bring from tab 2 the part number, cost and yearly maintenance.
I'd like to bring data from Sheet2 to Sheet1. If value at Sheet1 f2=5 it should copy from sheet2 b5:k5 tosheet1 a2:j2 If value at Sheet1 f2=10 it should copy from sheet2 b10:k10 tosheet1 a2:j2 etc.
I have a dataset which is dumped into my model every month. The Report tab is a "user form" whereby the user can select multiple search criteria. The dataset is then filtered according to the search criteria entered by the user.
Problem is, that if the user only selects 1 of 3 search criteria and the other 2 cells are left blank, the filter filters on these blank cells and doesn't retrieve any data. Any ideas how I can overcome this?
Sub PopulateReport()
Application.ScreenUpdating = False
Dim MyFilter1 As String Dim MyFilter2 As String Dim MyFilter3 As String
MyFilter1 = CStr(Sheets("Report").Range("C2").Value) ' convert cell value to string MyFilter2 = CStr(Sheets("Report").Range("C4").Value) MyFilter3 = CStr(Sheets("Report").Range("C6").Value)
Sheets("Waste").Select
Dim Rw As Long Dim Rng As Range
Rw = Range("A65536").End(xlUp).Row Set Rng = Range("A1:W" & Rw)
With Rng .AutoFilter .AutoFilter Field:=20, Criteria1:=MyFilter1 .AutoFilter Field:=2, Criteria1:=MyFilter2 .AutoFilter Field:=13, Criteria1:=MyFilter3 End With
how to display my excel worksheet using HTML maker as I've downloaded the software but have no idea how to use it!
To set up the problem, I have a folder that contains files that are all named numerically, ex. 08-100, 08-101, etc. Each file is identical in format but contains different data, ex. cell B1 is alway "material weight", cell B2 is always "estimated man hours" and new files are added weekly.
I am trying to set up a master spreadsheet that all I have to do is enter the file name (08-102) in the first column, and the second column will return the data in a specific cell of that file.
I have a workbook with several sheets of varying length (amount of columns). The length of each sheet changes every week. I want particular data from the sheets to come together on one sheet in as organized a fashion as is possible. I'm currently losing my mind copying and pasting every week when I need to update the thing.
VB: 'enables user to click [U]highlight and select[/U] an item in ListBox1 and ListBox2 item (same row in index) is also [U]highlighted[/U] (highlighted only not selected) Private Sub ListBox1_Click() ListBox2.ListIndex = ListBox1.ListIndex End Sub
Question: Is it also possible to enable a user to click to select an item in ListBox1 and ListBox2 item is also selected simultaneously (same row in index). Is there excel vb code to do this?
I think the code may be along the lines of the ListBox SelectedIndex property. What would be the Excel VB code equivilant for the ListBox SelectedIndex property, if so?
Develop one system that can search and make changes on the user form. I already find the solution on my first worksheet(USER PROFILE) but when i used the same coding on my second worksheet(INVENTORY&RET), it doesnt work. Here is the example of my INVENTORY&RET worksheet example.xlsm
I have a userform I attached here with 3 combo boxes where a user can pick districts and schools, etc. When they click ok, the various tabs in this macro enabled workbook will "refresh" with the metrics for that entity)combination of picks from form) across the board. Each tab will have multiple pivot charts/tables so the filters will need to be addressed. I've been looking for code to kind of match this scenario. I've seen some that kind of in the ballpark, but due to the size and complexity, I suspect this will be extensive, right?
For example I have three columns named Name, City and Telephone.
UserForm1 has three textbox(TextBox1, TextBox2 and TextBox3). All three textboxes data populated from sheet1 (Name, City and Telephone) by selecting a comboBox.
The code is below... and which is working fine.. The problem is in my next code. I am trying to amend data in all worksheets but it is not working.
Private Sub ComboBox1_Change()
Dim strNamedRange As String Dim lRelativeRow As Long
With ComboBox1 If .ListIndex > -1 Then strNamedRange = .RowSource
So I am supposed to take the names of worksheets and populate a listbox with them, simple enough as I had it running, but now it isn't working. Here is my code:
Code: Private Sub UserForm1_Initialize() Dim ws As Worksheet i = 1 For Each ws In Worksheets Worksheets.Select Sheets(i).Activate ListBox.AddItem (ActiveSheet.Name) i = i + 1 Next ws
[Code] .......
Why it isn't populating the listbox anymore? There arent any errors just a blank box.
I have created a userform and a command button to bring up the user form but when I click on the command button and the user form pops up I am not able to enter any data, the entire page freezes
This is the code
Private Sub CommandButtoncancel_Click() unloadme End Sub Private Sub CommandButtonOK_Click() With Workbooks("RETS results version 2.xlsm")
how I would go about writing a macro that would pop up if a value in a certain cell is greater than a set value. For example, if the cell b1 has a value of >50, I would want an alert box to pop up saying "Over Range". Ideally this should be automatic as soon as another value is entered into cell a1.
I need to write VBA code to clear all Values, all values beginning with an = sign for eg = 9725, except formulas and text on all my worksheets, except the last 2 worksheets.
I have a sheet made of 3 columns, every column has several rows, I am trying to bring the values of the second column beneath the values of the first column and then the values of the third column beneath them all. Attached are 2 sheets showing the current and required scenarios
I would like to download historical stock quotes from yahoo and then bring them into a worksheet. I have used the Webbrowser control to bring in the Yahoo page but I have no idea on the code to use to bring in the values from the table.
I have two tables which both have two columns. One column has dates in it e.g. 01/09/04 and the second column has a number in it. What i am wanting to do is create a combo box that, when i select the date from the list, it brings up the number (that is in the cell next to it) and puts this number into the cell next to the combo box.
I know how to get the combo box and add the dates to the list, but how to bring the dates up.
I have tried creating a combo box with the dates and then formatting it to create a cell link. This link then brings up the first number of the date in the cell i have chosen. I have then selected a blank cell and entered the formula :
VLOOKUP(lookup_value,table_array,col_index_num)
However, when i have tried this, it hasn't worked.
What I have is a sheet with Command Buttons on, and one of them when clicked launches another application which has a log in screen.
I can't for the life of me get it to bring that application log in window in front of the excel application when it runs.
I have tried various ways of sending Excel to the back once the button is clicked, but just can't get it to work.
Ideally, once clicked the new application log in window will come up in front of excel, and set focus on the Password box, is this impossible to do just from inside excel?
My rows and columns are as below _____________________________________________________ A B C D E F ____________________________________________________
I'm using a little sub routine to bring up a pop up calendar when i click in a cell, everythings lovely but it annoyingly comes up when i select a clolumn or row that also contains that cell. modification to require a double click to display the calendar?
create an array of active printers. I edited the code to write the array to a range, then populate a data validation list with the printer names. All works great. The goal was to select a printer name from the list and run a macro to print some sheets. However, the function doesn't bring back enough of the name to do this. how to edit the function to bring back the whole name.
For example: after running the function the 1st printer returned ="\rizzoHQ-ENG-04"...when i record a macro to print to this printer it needs ""\rizzoHQ-ENG-04 on Ne05:". Here is the function unedited, I bolded the part i think is controlling the name:
