Select Case Code For Column A Values To Populate Results In Column B In Same Row?
May 28, 2014
I'm trying to write a simple VBA code to loop through values in the range A14:A138 and based on the value (of a possible four values) in any row of that range, populate the adjacent column in the same row with a conditional result. For example if A14 = "Cat", then B14 = "I"; if instead A14 = "Dog", B14 = "II", etc. If there is no value in column A, the result should be blank (i.e. "").
I believe are in coding the destination range since I can get it to work for just one cell in B! Below is my code that is not working...
[Code].....
View 7 Replies
ADVERTISEMENT
Aug 22, 2012
I need some code that will find the column with the header of "Gender" and change the values from "M" and "F" to "Male" and "Female" but I keep running into issues.
I want to use a Select Case statement so I can set all other found values as blanks.
View 5 Replies
View Related
Jul 7, 2007
I've been through the forum and I've got my VBA to check that columns 37, 38
and 40 are entered if column 2 = 'O'. However I just can't get it to exclude column 39 from the check! Is there a way of getting Case Else to do this or should I use an Array?
Dim rCell As Range
Dim strMessage As String
Dim RowCounter As Integer
Dim ColumnsChecked As Integer
For Each rCell In Range("B14:B5000")
RowCounter = rCell.Row
If rCell = "O" Then
For ColumnsChecked = 37 To 40
If Cells(RowCounter, ColumnsChecked).value = "" Then
Select Case ColumnsChecked
Case 37
strMessage = "COMMENTS"
Case 38
strMessage = "INVOICE NUMBER"
Case 40............................
View 4 Replies
View Related
Aug 28, 2009
I have values in COlumn A, probably about 50K rows, The total unique values on the column A is only about 27. I need to capture all those unique values and paste them in column B. I didn't want to do "Advance filtering" since the workbook has many macros's on it that the user simply click on. Im thingking of creating a loop and compare values already pasted in Column b but then that will take too much time to complete the loop. Is there any easier or yet more efficient way to accomplish this?.
View 2 Replies
View Related
Oct 12, 2008
I have a rather frustrating issue that dates a few months back, so I hope to solve it today. The following code tests a value in Column A. If the value is between 1-5 or equal to 11, column B will return the string A. It works.
View 3 Replies
View Related
May 22, 2013
Suppose I have some data in a column like below
Blue
Red
Green
green
red
RED
BLUE
I need a macro or excel formula so that it will remove duplicate products- case sensitive(removing all duplicate prod using using excel,that i know.) i.e. it should not consider Blue BLUE as duplicate. only consider Blue Blue as duplicate.
So the macro should work same as data -> remove duplicate function already exists in excel, except it will be case sensitive..
View 7 Replies
View Related
Mar 21, 2012
the following code has been devised to populate a userform listbox ("listbox1") with seven select columns (F,H,K,L,N,O) of filtered rows of a worksheet ("Data")
Code:
Sub AddMultipleColumn()
Dim rngCell As Range
Dim wks As Worksheet
[Code]...
Regrettably, there is something amuck that is preventing it from providing the expected results. Seems as though this code wishes to process all the rows, instead of just those revealed from the filter. The routine runs indefinately, and will ultimately lock up Excel and never revealing any information. On a random stop, rngCell value far exceeded the (what I felt) to be the preferred max of 28 ... the number of rows of the filter. This routine is called from within the userform's initialization code.
Question 1 ... those that are able to shed light on the flaw ...
Question 2 ... data starts on row 6 of ther database, with rows 1-5 being header. What needs to be done, if anything, to reflect this?
And question 3 ... if the worksheet "Data" were in a second workbook , would be as simple as changing this ... Set wks = workbooks("workbook2.xls").Worksheets("Data")
View 9 Replies
View Related
Feb 9, 2010
I am adding shapes with text (msoShapeOval) to an image on a worksheet but I cant get the size of the "ShapeRange" to work dependant on the value assigned to "sTxtlen".
I had msgbox's within each Case but none were triggered allthough using another msgbox to show the length of sTxtLen is correct prior to the Select Case.
View 9 Replies
View Related
Jan 28, 2014
I've got a big file with a large dataset. One of the sheets works as a screening for the data, so everytime I populate an ID number in say cell C3, the rest of the sheet updates as per the formulas I have in place. However, I need to write a code that takes ID numbers one by one from a sheet, populates them into my screening sheet, updates the sheet and saves it.
View 4 Replies
View Related
Mar 13, 2009
I have a report that I run off a database and extract to Excel.
It has 3 fields: Title; FirstName; LastName. For example sake lets say they are in columns A, B, C. Now in D I have a fieldname of FullName and in D2 onwards the formula: =A2&" "&B2&" "&C2.
Now I currently manually type the formula and drag it down to the same row as the last entry in the first 3 columns so that I get the full title in one cell.
I wanted to know how I could enter the the formula above in column D so that it automatically does this for me?
I tried to record a Macro as a test for column D setting the field name in D1 and the formula in D2 and got the following:
View 2 Replies
View Related
Sep 25, 2006
I have an excel calculator that I use daily (mostly written in VBA). I change some of the values to get a new result. Is it possible to post the values of the results in a column so that I can see what the old values are? For security reasons I cannot disclose the calculator but I guess I can post an example of how I would like it to work.
View 3 Replies
View Related
Oct 21, 2008
I have my lookup value in column A. The vlookup result in Column B.
=VLOOKUP(A1,ALL!B2:Y10482,2,FALSE)
I now want to drag this across to populate and return values up to column Y.
When I drag the formula or copy it to Column C it does this:
=VLOOKUP(B1,ALL!C2:Z10482,2,FALSE)
The lookup value, table array, and column index number have now changed to column B, C:Z, and 2, when I need it to increment like this:
=VLOOKUP(A1,ALL!B2:Y10482,3,FALSE)
The only thing I want to change as I paste it into the adjacent field is the col_index_number.
Is there a way to do this horizontally without manually changing the formula 26 times?
View 2 Replies
View Related
Oct 31, 2011
I'm trying something interesting with Select Case where instead of using a static Case, my Case is based on the value of a cell.
here is the example of the present code:
Code:
Select Case Range("F75").Value
Case Is > Range("F30").Value
Range("AB59").Value = "Use"
[Code].....
View 2 Replies
View Related
Dec 3, 2008
In my macro, I need code that will select all the rows that contain data in a given column, minus the first row which has a header.
View 6 Replies
View Related
Apr 25, 2008
i have the following macro which finds instances of a search criteria and brings them back to a results column. what i need is instead of having the word GD: appear before each result i need it once at the begining of the results
LastRow = Sheets("design owb").Cells(Rows.Count, 10).End(xlUp).Row
Application.ScreenUpdating = False
For i = 26 To LastRow
Target = Sheets("design owb").Cells(i, 10)
With Sheets("design")
For J = 2 To 54
For K = 4 To 11
If Target = .Cells(J, K) Then
Sheets("design owb").Cells(i, 11) = Sheets("design owb").Cells(i, 11) + "GD: " & .Cells(J, 15) + " | "
End If
Next K
Next J
End With
Next i
Application.ScreenUpdating = True
View 9 Replies
View Related
Jan 11, 2013
The code below extracts unique distinct values from column A, except cell A1. Then the code adds the extracted unique distinct values to the combo box.
Sub FilterUniqueData()
Dim Lrow As Long, test As New Collection
Dim Value As Variant, temp() As Variant
ReDim temp(0)
On Error Resume Next
With Worksheets("Sheet1")
[Code]....
The vba code below copies the selected value to cell C5 whenever the combobox is selected
Copy the code into a standard module.Assign this macro to the combobox
Sub SelectedValue()
With Worksheets("Sheet1").Shapes("Drop Down 1").ControlFormat Worksheets("Sheet1").Range("C5") = .List(.Value)
End With
End Sub
Vba code belows instanly refresh the combobox when values are added/edited or removed from column A,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A:$A")) Is Nothing Then
Call FilterUniqueData
End If
End Sub
My problem is this:
Everything will be working fine if the all combobox and data can be found in 1 sheet, but how could i make some tweaks if the combo box is located in sheet 2 provided your data to be populated is in sheet 1, i tried everything but the combobox doesnt update,
View 1 Replies
View Related
Jun 5, 2014
In cell A1 I have a countdown timer from an external source that counts down to 00:00:00 approximately every 10 minutes and then resets.
I need a macro to be triggered whenever 00:00:00 is reached.
The macro will select column AL and copy a range of cells (within AL) that contain numeric values only and paste these numeric values in the adjacent cells in column AM. It is important that the paste is values only and not formatting or formulas.
Column is being fed dynamic data from an external source and displays either #N/A or numeric values.
View 2 Replies
View Related
May 8, 2009
how to make a certain type of date automate. It's kind of hard to explain, but basically, I'd like to make it so that when I enter a date in one column, another column will automatically populate with the 1st of the next month. For example:
If I enter 4/26/2009 in the 1st column, column 2 will read: 5/1/2009
If I enter 1/19/2008 .................................................. 2/1/2008
Also, it's very important that if the FIRST date is already the first of the month, then the second column will read the same. For instance: If I enter 3/1/2009 in the first colum, the second column will ALSO read 3/1/2009.
View 3 Replies
View Related
Jun 3, 2009
I've got a pretty intense macro already written, a lot of Select Case components. At the end, if nothing matches I'd like to just copy the cell above to the cell below. However, there is a range of about 400 cells in length, so I'd need some sort of wildcard for range.
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Dim Cell As Variant
For Each Cell In Range("A1:OL1")
Select Case Cell.Value
Case "Eng1"
Cell.Offset(1, 0).Value = "Engine One"
tons more in the middle here
Case Else
Cell.Offset(1, 0).Value = "N/A"
Rather then returning "N/A", how could I reference the cell above and just copy it instead?
View 9 Replies
View Related
May 30, 2014
I am trying to find a way to populate a column based on the changes in the data of another column...
For example, I want to fill in the code column....so when the customers cost changes, I want a numeric code to populate & change. So for the first 5 lines, the code could be 21, and then when the cost changes to $37.51, want the code to change to 22.
CodeCustomer's Cost
$34.10
$34.10
$34.10
$34.10
$34.10
$37.51
$37.51
$32.50
$32.50
$33.48
$33.48
$34.10
$37.51
$37.51
View 7 Replies
View Related
Jan 25, 2013
I'm looking to populate my Helper Column with all duplicates from my Data Column. Please note that my helper column needs all instances of a duplicate.
Data Column
Company ABC
Business DEF
Corporation GHI
Business DEF
Company ABC
Business DEF
Helper Column
Business DEF
Company ABC
Business DEF
The formula needs to be dynamic and it will need to be able to be copied down.
View 9 Replies
View Related
Jul 20, 2006
For the following code, I'm getting the " Case without Select Case" error (On Case 3 to 5...assuming more are wrong too, but debug can't get there yet). I thought I had it right, obviously don't. Can anyone spot how my code is wrong? ....
View 9 Replies
View Related
Aug 26, 2013
I have a macro that copies three sections of data from a word document and pastes it within the Excel worksheet. The column of data is pasted in a single column (data to be space-delimited and evaluated later), and what I would like the MACRO to do is separate the three sections of data based on the starting and ending values of the section and place them in different columns.
Section 1 : starts with the word "Team"
Section 1 : ends with the word "City"
Section 2 : starts with the word "Location"
Section 2 : ends with the word " Date"
Section 3 : starts with the word "Member"
Section 3: ends with the word "Age"
So section 1 would be pasted into cell C1, section 2 pasted into G1 and section 3 pasted into J1.
Each section will have vary in number of rows between the starting/ending values, so to cut and paste the section based on the starting and ending value is vital.
View 7 Replies
View Related
Jan 31, 2008
I've been searching the forums for this problem but I can't seem to find any answers. Anyway, this is the problem. See screenshot.
I want to compare A1 for the values in column B, then return the corresponding cell (column C) in column D.
e.g. D1 = 2, D2 = 1, D3 = 4, D4 = 5 and D5 = 3.
View 9 Replies
View Related
May 25, 2013
I am creating an inventory list for a lab, I have a column called "reorder" and another column called "price". Is it possible to have a checkbox, or if I put "x" in the reorder column, the price for that particular item will appear in the "price" section.
Then I will have a total field and any prices that populated will calculate the total price?
View 1 Replies
View Related
Mar 18, 2014
I have 02 separate excel workbooks
01 = source file
02 = data list
The workbook "source file" contains all the data
The workbook "data list" contains data for work with Drop-down list. And i can easily select my required description by just dropping down the list.
In case, i have new description i add it in the source file and it is updated in the working "data list" sheet.
This applies to Field device column also. But i want to improve the selection criteria by creating such script or formula which could check the input of the description and automatically selects the field device and its relevant signal (output type).
Screen shot is attached : Automatic Selection.jpg
View 1 Replies
View Related
Mar 25, 2013
I am trying to find a macro that look for last non empty cell in column A and them paste a formula/comment in all cells of column B.
View 3 Replies
View Related
May 8, 2008
Sub Addy()
Do Until ActiveCell. Offset(0, -4) = ""
Renamer = Proper(ActiveCell)
ActiveCell = Renamer
ActiveCell.Offset(1, 0).Select
Loop
End Sub
fail? Trying to remove all capitals from names/addresses. Error message is "compile error - sub or function not defined"
View 6 Replies
View Related
Aug 10, 2009
I have a simple script that puts the save time in the last row of column C when the spreadsheet is saved. Another script puts a username in Column A and column B contains the time opened. I would like to add to the save script to make column D od the active row have a calculation similar to:
View 2 Replies
View Related
Jul 24, 2014
I know that this could be a stupid question, but was wondering if it could be possible. I would like to select a column by a keyboard shortcut. If I would press a key combination adding the letter of a column as example F, it would select the whole column. I was trying to search for this in google, but no luck.
View 10 Replies
View Related
