I have a lookup ( Validation List) cell for each question, I want to Lock the Cell after selecting one of the Answer. I mean want that cell become disable from selecting again.
I have a sheet that contains two values in seperate columns that I need to concatinate into one value for the drop down. If I use one value my code works but doesn't show all the values. If I use both values I get a 1004 - Application Defined or object defined error. I bolded the section that if I add I get the 1004 error. Is there some sort of restriction when creating the validate list for a drop down? My list is not reaching 65000 characters which is the string cut off.
Dim intAdEventCol As Integer, intAdEventNmCol As Integer, intRow As Integer Dim intLastRow As Integer, intLastCol As Integer Dim strAdEvent As String, strAdEventNm As String Dim strAllAdEvent As String
Do Until intRow > intLastRow strAdEvent = Worksheets(gstrcDataWorkSheet).Cells(intRow, intAdEventCol).Value strAdEventNm = Worksheets(gstrcDataWorkSheet).Cells(intRow, intAdEventNmCol).Value If intRow = 2 Then..........................
I can’t seem to add the “Insert New row” or where to add or maybe I’m not even doing it right. I have a worksheet with 4 column and need to only function in these columns as I have information doing something else.
In Column A, B, C and D are my main column for the following functions:
Column A will act as titles Column B will act as sub titles (There can be multiple sub titles withing the same title, needs to be added on an as when requirement) Column C will act as possition (There can be multiple position withing the same sub Title, needs to be added on an as when requirement) Column D will act as sub position (There can be multiple sub position withing the same Position, needs to be added on an as when requirement)
All columns will react to what is in Column A. I have the following code for column A:
[Code] .....
This will look in my next available row to see if it is a blank row then add my information from my userform listbox.
I have tried to add the same procedure to my column B but don’t even come close to what I need in this function.
I need that when I double click my sheets cell in accordance to the following code:
[Code] ....
...to show my userform then to add the information but only to look in Column A to D and not pass this column.
I have added a Workbook to add the other information has it could get long to actually explain but to quickly explain:
I will need to add a title (already set up with a userform, listbox and on click of this listbox it will transfer the information to my sheet) This will look in my Column A to see where is my next available blank row and add the listbox value to it. If I double click column B, next to the columns A title, I need to add this information on the next available blank row but to create a Insert new row as there could be addition information going in column A or B and so on... I presume it will be the same code for C and D as this has to function the same way.
See Attachment for details and information : Book1.xlsm
If a user selects certain options from a drop down list created by cell verification (from list), is it possible to display an input box and have the resulting input populate on another worksheet in the workbook? I have an attendance template I'm working with and if a user selects OT (Over Time) then a input box is displayed prompting for how many hours. The overtime is then tracked on another worksheet.
I tried very hard to design a leave roster for user to mark their leave application. The criteria are as follows:
1. 4 applications per date 2. a region of worksheet (i.e. "A2 to H20) will be defined for users to "click" on the cells (within the defined region) to mark their application. 3. once a cell is clicked (i.e. marked), it cannot be altered. 4. each click will automatically increase the total by 1.
I got the following code to deal with the situation but user can still click on any cell outside the region (in fact I fail to define the region).
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim m ad = Mid(ActiveCell.Address, 2, 1) m = Range(ad & 24).Value 'here a formula "CountA(A2,A20)" will be place in the cell (24, c).......................
I have attached a portion of an excel file I am using at the moment. What I require is a piece of VBA code which will allow me to copy selected data based on a combo box selection. What needs to happen is this :-
If the selection in the "Index" worksheet combo box related to "Month" in cell G19 is for instance "December", I would like the macro to compare this cell value to the cell values in cells C96, C124, C152, C180, C209, C236, C263 and C290 in the "Tech Services" worksheet and where the values match.......copy the commentary (Range C126:Z147 in December's case) to the range C34:Z55.
I am working on a project where user has to select an item from a listbox, however there is a condition that if user select an item, other items of listbox should be disabled so that he/she can not select any other item.
I want to have a drop down list in a cell so that the value in the cell can be only selected from two columns of data. Additionally once the data from the first column has been selected I want to be able to limit the inputs the user can select from in the second column.
e.g. In cell C115 I want to have the value BDS05.
I want to be able to select the value BDS from a drop down list of values and once that value has been selected I want to be able select 05 from a list of values from 01 to 14 If I select BCS as the first value then I want the second set of values to be limited to 01 to 02 etc.
I have read about combo boxes and list boxes and I'm a bit confused about the best way to achieve this (or even if I can).
Private Sub Worksheet_SelectionChange(ByVal Target As Range) col = ActiveCell.Column Range("output") = ActiveCell.Offset(0, -(col - 4)).Value End Sub
In case it's not obvious, the macro places the value in the active row and 4th column of the worksheet into the range "output". The problem is, the worksheet is large and somewhat slow to recalculate. This macro forces a recalc on any selection change, but i only need it to run when the row selection changes, not the column. I'm sure there's a straightforward way to reprogram this.
I'm trying to build an investment calculator. Tried searching "calculator" as keyword but return nothing similiar.
There are eight cell : [ A ][ B ][ C ][ D ][ E ][ F ][ G ][h]
[ H ] is price of the leverage
[A] is X balance [b] is X lot size [C] is X amount of money use to get x lot [D] is X percentage of money use to get x lot [E] is X point gain [f] is X money gain [G] is balance + money gain
Ignore the formulae for leverage to determine 1 lot price. Take 1 lot = 250.
What I'm looking for is when I enter any value at cell B, C or D, it will automatically calculate the value for either B, C or D cell.
Let say, the balance is 10000.
If I enter 2 at cell B. Then, it will calculate the value for cell C & D.
If I enter 750 at cell C, then it will calculate value for cell B & D.
If I enter 25 at cell D, it will calculate value for cell B & C.
I have a code (pasted below) that copys a line of data from one workbook into another. Each time i run the code it enters the data on the next available line. This is all working ok however what I would really like to do is when i run the code have it pop up a selection box asking me which sheet i would like to copy from. The reason i need this is that the sheet that gives the data isn't always named the same although the format is exactly the same every time. In this example the data sheet is "copy of NewProductForm), this name may change and i may also have other different active workbooks open at the same time and I don't want the macro to get data from them.
Code :
Sub GetData() Windows("Copy of NewProductForm.xls").Activate Rows("48:48").Select Selection.Copy Windows("Book2.xls").Activate NextRow = Range("A65536").End(xlUp).Row + 1 Range("A" & NextRow).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Copy of NewProductForm.xls").Activate Application.CutCopyMode = False Range("A41:AH41").Select Windows("Book2.xls").Activate End Sub
I am trying to format a range of cells based on a user selection. The user may select 8 rows (rows 20 - 27) or the might just select A20 to A27 or the may select A20 to C27 on all of the occasions I would like to find the 1st row and the last row of a selection. I have found the command
x = ActiveWindow.RangeSelection.Address
which I could try and extract the row numbers, but is there an easier way?
I want to program a macro that reads out the min row number and max row number of a selection.
Lets say a user selected the Range A1:D4. After executing the macro I want the following output: The min row number of the selection is: 1 The max row number of the selction is: 4
I have a list of 4 customers and their individual revenue, which is summed up in cell E12.
What needs to be done to make Excel only sum revenue of say customer A and D in cell 12 upon selection of these through standard filter (see attached sample)?
I've attached a sheet. In this sheet I would like to print the selection....C9:17 and BL9:BW17. I would like to print it onto a PDF and I would like to expand it so it is very visible. Actually, it doesn't need to be PDF. If I could just print this selection and make it visible that would work. I had a problem using print selection because the columns are separated. I also tried fit to page but that makes it too small.Mod's note: file attachment removed at OP's request
I'm having a problem summing after running arrays to analyse data. I have a list of four possible outcomes and I need sum up the totals, but sometimes there are no results, so there is #DIV/0 in the list I need to find the total for.
is there some code or some kind of formatting that would give me a total even if #DIV/0 is in the list?
I've currently written the following code to make sure exactly 2 single cell selections are made. But now, I want to extend this code to make sure only cells from rows 5 & 7 are selected and the cells are in the same column.
I want to create a macro that will allow me to highlight a column and have the macro Trim every cell with text in the column, preferably putting the results over the original text. The column in question has text in every cell, until the column ends.
(That is, there are no numbers and no blanks until the data ends altogether.) I do not want to remove internal spaces in the text, just the leading and trailing ones.
I am sure this is fairly simple, but I'm not sure how to get it to look at every cell and then terminate properly.
It is actually a form - much like Access. I have protected it so it can't be changed. They can click on a particular cell, but as soon as they try to enter anything it gives them a message and entry is not allowed.
Is it possible to even prevent them from selecting an individual cell, i.e., restricting them to only clicking the control buttons ? I realize this is a spreadsheet, other products would probably have worked better, etc., however it's kind of like the last minor hurdle before releasing it for general use. The world certainly will not stop if I can't - just thought I would check with the expers.
I have two strings in two cells, both are dynamic values. I need to plot the values of any of the column that changed in the third cell either the two cells change its values.
Is it possible to invert a selection? I have a heap of data that is scattered all over the place and I can to a Search and Find All to locate the data I want but I want to get rid of everything else, so can I invert the selection some how?