I have a column with comboboxes in each cell, each with LinkedCell set to the cell the combobox sits inside. Once the selection is made, I hide the combobox with .Visible="False". I want to be able to unhide hidden comboboxes by selecting a range of cells in the column, and then finding the corresponding comboboxes within each cell in this range, and unhide them.
View 3 RepliesI have two combo boxes which are named as AREA and BRANCHES. AREA makes me choose from Math, Science, History. The result of AREA populates BRANCHES. example: if I choose Math in AREA, BRANCHES will make me choose from Algebra, Calculus, Trigonometry.
Based from the choice made, all the data that I will put in my userform will go to the corresponding worksheet. example: if I choose Math in AREA and Algebra in BRANCHES, my data will go to a worksheet which has a name of MathAlgebra. If I choose Math in AREA and Calculus in BRANCHES, my data will go to a worksheet which has a name of MathCalulus
I have userform which has got a variable no. of comboboxes. Now I want to collect the selected values of all these comboboxes in a dataunit. There fore I am using the following code
View 2 Replies View RelatedCan anyone help me in finding how to write the command in VBA to determine what Cell was selected in a worksheet? The objective is to know what Cell has been selected by double click event to pop up a userform with a calendar from which the user can select the date. I am looking at making it dynamic so I do not select a particular range.
Can this be achieved? I guess yes, but how?
I have a macro which formats charts. It takes a user selected chart and formats it.
I would like to allow the user to select many charts and process them all at once (instead of just one at a time).
The problem is that when I have X charts selected in Excel, the Selection object assumes the "ChartObjects" type which includes all charts in the worksheet and not only those which are selected!
If I do "Selection.Count" it will count all charts (selected or not) and if I do "Selection.Item(x).Name" I can access any chart on the worksheet and not only those which are selected.
Questions:
1. Is there anyway to determine which charts are selected by the user? Either using the selection object or any other method?
2. When I select multiple objects (chart and non-charts), the selection object assumes the "DrawingObjects" type, which when counted returns the correct number of selected objects. However when I try to access them via "Selection.Item(x)" I again can access all DrawingObjects in the worksheet. Is there anyway to determine which drawing objects are selected? And access them (so I can determine whether they are charts)?
Is there a way of determining the series that has been selected on a chart?
View 3 Replies View RelatedI have the following code which will determine if a user has selected a entire column.
If Selection.Rows.Count = 65536 Then
MsgBox "User has selected an entire column."
End If
Although it worked, but is there a better way to do it? I was thinking if future version of Excel goes beyond 65536 rows, then this code is definitely unusable!!
is there any way to get the value for the selected item from the combo box in vba code?
View 5 Replies View RelatedI need to determine if any of the cells selected by the user have an indent level equal to 1 and if so then have them confirm the action. the below works well if the user only selects one cell but if the select 2 or more and any of the selected cells has an indent level greater than 1 it doesn't show the confirmation.
View 3 Replies View RelatedI have a daily collection of data based on half hour meter readings. Responsibility for this data is to be split between core and non-core hours so for example core hours would be from 6:00 to 18:30.
What i would like to do is have a combobox for both the start time and end time allowing the user to change these as appropriate.
Where i'm struggling is using these comboboxes to select the data between these two times and total the values per row.
My data is currently arranged with the times (staring at 00:00) running horizontally on row 14.
I am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I know about
(isnumber(match({,12054, 12056, 12058}).....
How could I express a range of numbers to identify 12054-13001. How would that expression be written?
After formating I need to multiply by 2 . As you can see my Cells.Value = Selection.Value * 2 is not correct. How can I accomplish this?
With Range("I17:I4000", Range("I" & Rows.Count).End(xlUp)).Offset(, 1)
.Formula = "=ReplaceChar(I17)"
.Value = .Value
Selection.NumberFormat = "0.00"
Cells.Value = Selection.Value * 2
End With
I want to calculate
=SUM(A1:A5)*A6+SUM(B1:B5)*B6+SUM(C1:C5)*C6...
Can I do this with SUMPRODUCT - without listing all the summed ranges out separately?
I have data in 2 columns.
COLUMN A COLUMN B
2008-01-01 00:00:00 CRIMINAL EVENT
2008-01-04 00:34:48 OTHER
2008-02-04 00:23:59 SUSPICIOUS INCIDENT
2008-01-31 23:59:59 ENEMY ACTION
2008-01-08 00:45:43 FRIENDLY ACTION
2008-01-09-00:45:33 RAID
I need a formula or macro that will count all the times "Criminal Event", "Other", "Suspicious Incident", and "Enemy Action" occured in January. Also if possible I need to not specify column ranges, such as A2:A7, but instead it needs to find the last cell containing data in Columns A and B, and use that as the end point. For example it would search A2:Last Cell Containing Data
I am having a bit of amnesia right now, but I know there are some smart cookies out there who can do this in a second or two.
I have a certain range in a worksheet (D6:D27). I need to find the first blank row, or the last row with data +1. I would like a worksheet function of some sort that might be used like this
=LastRow(D6:D27)
The result would be row 10 (the first blank row).
I have been searching for the past hour and just can not get anything to work right. I have tried many different suggestions, but I still draw a blank.
Column A contains a giant list of pathogens, with each often appearing in several ways (with/without species name, various misspellings, etc.) Column B contains truncated versions of maybe 20 or so pathogens that I'm interested in. What I want in column C is for an "X" or something to appear every time the code finds a pathogen of interest (that is, from column B) in the corresponding row of column A. For example:.............
View 4 Replies View RelatedHow to decide the two range object variant represent the same range? Plz check the following code, How to decide Rng4 and Rng5 is or not the same range?
Sub IsTheSameRange()
With ActiveSheet
LastRow = .Cells(65536, "B").End(xlUp).Row
Set Rng1 = .Range(.Cells(3, "K"), .Cells(LastRow, "K"))
Set Rng2 = .Range(.Cells(3, "AE"), .Cells(LastRow, "AE"))
Set Rng3 = .Range(.Cells(3, "BQ"), .Cells(LastRow, "BQ"))
Set Rng = Application.Union(Rng1, Rng2, Rng3)
Set Rng4 = Rng.SpecialCells(xlCellTypeFormulas, 23)
Set WhlRng = .Range("A3:DR" & LastRow)
Set Rng5 = WhlRng.SpecialCells(xlCellTypeFormulas, 23)
End With
End Sub
I have a range varable (say productxrange), is there a way to determin if that range is empty?
View 4 Replies View RelatedI have a report of time balances that employees enter. I need to run a macro that looks at each cell and determines if the number is divisible by 4. (We only track vacation and ill time in 4 hour increments) If the number the employee entered is not evenly divisible by 4, I want the cell highlighted.
All of this I have figured out, the loop to look at each row, the IsNumeric function to test if there is a number...
My problem is with the MOD. I figure I should be testing number MOD number, but it is not reliable.
4.1 Mod 4 returns 0
.5 Mod 4 returns 0
I just need it to return zero if the number is evenly divisible by 4.
I considered the RoundUp function, but then it would also round anything above 3 hrs to 4, and that won't work.
I have formula that copies a range of cells and pastes to another worksheet (based on the click of a button on that row), however i need to adapt it to define which sheet to paste it to based on the contents of another cell on the same row. The below code all works for the first part of this, i added in Sub MN and Sub Month_to_Classify to resolve the second part. When i run this at the moment i get
Run-time error '1004': Method 'Range' of object'_Global' failed
and the highlighted line of code is in Sub MN:
Range(ActiveCell.Offset(0, -8)).Name = "Man"
Sub AreYouSure()
[Code] ........
I have a large collection of datasets, sorted/grouped by rows. I need to perform some calculations against these SETS (Ave, Low, Median, etc.).
The number of member in each SET is variable (1 to NN), the number of SET Members is included in the data. Example:
Code:
3 Data Sets:
Row Set Members Price Ave
1 A 4 $1.00
2 A 4 $1.25
3 A 4 $1.50
4 A 4 $1.75
5 B 1 $4.00
6 C 3 $10.45
7 C 3 $14.50
8 C 3 $17.75
how to compute the AVE value for each SET above?
I am thinking if I can determine the FIRST Row number for each set, add the MemberQty as an ~offset to determine the LAST Row, then use an Indirect reference to compute the ave, something like:
=AVERAGE(INDIRECT("D"&A1&":D"&A1+C1)) The SET's Ave value should be added to EACH row in each SET.
I am struggling trying to point a formula like this to the First Row of the NEXT set.
I have a table that needs to be subtotaled. The lines for the sub-total already exist and cannot be changed.
How can I insert a subtotal into a cell that will automatically determine the range for the subtotal? Each subtotal will range (single columns only) will be from 1 line to 100 lines. I will work from top to bottom down the page so is there a way to make it work like the Sigma summation sign that is on one of the toolbars?
How can determine if a range is empty without looping it till the first value is found? On a 5x5 range a for loop is not that bad but what if its the whole worksheet? Is there a fast way to do this?
View 3 Replies View RelatedI'm feeling pretty inadequate at the moment ... I'm trying to determine something that (I think) would be relatively simple ... How do I determine if a single column , for example, (B:B) is blank (or null)? Alternatively, how do I determine if a range of cells in a column or columns, for example, (B1:B30) or (B1:D30) is blank (or null)?
View 2 Replies View RelatedI am trying to create a macro that determines if a range I am selecting has any non-numeric fields. If it finds say an cell beginning with a letter a message box appears letting the user know and possibly give the cell and value it found.
View 7 Replies View RelatedGiven a named range ,e.g., "myRange" how do I know the worksheet name it belongs to?
View 4 Replies View RelatedThe code below loops thru a specified range I12:I26 for a duplicate combobox value in each cell. When I enter the same combobox value in range I43:I54 it still finds a duplicate.
Select Case cmbSel_WBS.Value ...
I have a spreadsheet where I need to check if one cell value is greater than 6 other cell values in the row, then have it enter 1 in another cell if so.
For example: C1=5 C2=2 C3=3 C4=2 C5=7 C6=0 C7=4
The largest value is in cell C5, so I would like C6 to show that it is by entering a 1 in there.
I am trying to make a spreadsheet for bank reconiliation. I found this formula, =if( countif($B1:$B$1000,D1),D1)=0,D1,"") but there are two open parathese and three close. What needs to be corrected?
View 3 Replies View Related