Get Value Of Cell Adjacent To Active Cell

Oct 25, 2006

I'm trying to compare two lists of foods, one input by a user (together with number of servings consumed), the other a list of foods with their calorie content. Then I'm trying to get the number of servings associated with the user's input (in a cell adjacent to the one I'm in for the comparison/search), and get the calorie content of that food from the list (also in an adjacent cell), so I can multiply the two to get total calories consumed. However, I'm getting, variously, "Wrong number of args," "Type mismatch," "Application/Object-defined error," and so on.

The code below shows what I've tried, and I think I'm doing something braindead basic wrong, but I can't find what my error is. Everything works in the snippet (that is, I've correctly Dimmed the variables, I get my food match, and the row indexes keep up correctly), except the attempt to write, for instance, the number of servings to the variable 'o'. That cell ref fails.

m = 7 'initializes the row index of Daily Data block of the Inputs sheet for the food items
n = 2 'initializes the row index of the Data sheet for the food items
r = 0 'initializes value total carorie content of food item across number of times eaten in a day

For Each Food In FoodName 'the User-input food
For Each datum In DataList 'table containing food's calorie content
If Food.Value = datum.Value Then

View 3 Replies


ADVERTISEMENT

Copy Active Cell Down Adjacent Range To Right

Apr 17, 2009

Split from: Clear Range To Right Of Active Cell Down. I was working through this the first step was to clear the contents of the cells. After they are cleared, I have another sub that then goes and retreives a unquie number and places it back at the top of the column that I just cleared. Would this same code that cleared the cells contents work to copy the contents of the active cell down that same column, until the cell to its right is blank? -R-

View 5 Replies View Related

Excel 2003 :: Highlight Cell On Same Row As Active.cell Whenever Active.cell Changes

Dec 10, 2012

whenever the active cell is within a given range, highlight the cell on the same row in column S (by changing its interior colour). This should occur each time the active cell is changed, whether by cursor keys or mouse. The effect would be similar to the row and column highlights at left and top of the worksheet.

This action should be restricted to one sheet in the workbook.

It's for Excel 2003.

View 3 Replies View Related

Selecting Range From Active Cell To Last Entry In Same Row As Active Cell

Jun 8, 2014

I have got stuck on one piece of my code and having trouble fixing... Overall I am trying to find variable station name in cell L2 of Sheet 2 in Sheet 1 and then select and copy the data from the data in "cell L2 of Sheet 2" to the last entry of that row. I have attached an example test spreadsheet of the data and a macro is within Sheet 1 called test1. Please note that cell L2 in Sheet 2 will always be different station name and the station list in Sheet 1 will change with differing station name.

The code I am using is:

[Code] .....

The code that is not working and bringing up an error is:

[Code] .....

Attached File : Copy of Testexample.xlsm‎

View 2 Replies View Related

Find Cell Value Copy Cell And Adjacent Cell

Aug 1, 2007

i am trying to find a cell in column C (if cell =140) and copy that cell and the adjacent cell in column "D" to worksheets called" upload" then repeat through multiple tabs- repeating process and dumping values in columns on the "upoload" worksheet

View 3 Replies View Related

Macro That Will Clear Contents Of Cell Based On Format Of Text In Adjacent Cell

Feb 18, 2009

Been racking brain, searching through the forum here, and my Excel 2003 Bible all day trying to figure out this problem to no avail. I would like to clear the contents of any cell in a given range if the cell immediately to the right of is formatted as bold.

View 2 Replies View Related

Can Cell Keep Cumulative Of Values Typed In Adjacent Cell On Daily Basis?

May 31, 2014

See the attached excel table. I need the cell E4 to keep adding the values typed in the cell D4 on daily basis.The cumulative shouldn't be changed if there is no value in the cell D4. E4 should accumulate and keep the totals typed in D4...

Cumulative Input.xlsx‎

View 5 Replies View Related

Macro To Copy Data From One Cell To Another If Adjacent Cell Meets Certain Requirements?

Feb 19, 2014

Basically I have three columns in a work Sheet F, G, & H. F is empty, G contains text and column H has both text and numbers.

I want to be able to automatically copy the value from Cell H to Cell F if cell G contains the word cost.

I would also like to delete all rows where Column G & H contain two dashes -

View 7 Replies View Related

Excel 2010 :: Locating One Cell Data In Text Of Adjacent Cell?

Jul 1, 2013

I am using Excel 2010.

In my worksheet I have 'Column A' and 'Column B', In 'Column A' are product I.D. numbers. In 'Column B' is a text description of the product, whose I.D. number is in 'Column A,' and should also contain the I.D. number from 'Column A' somewhere in the midst of the descriptive text. However, some of these in 'Column B' do not.

I need to create a function that looks for the value in 'Column A' and determines whether or not it is present in the text of 'Column B'. Therefore, spitting the answer out in 'Column C' so that I can copy it down for 100,000 cells.

View 5 Replies View Related

Change Colour And Values Of Cell Based On The Value In Adjacent Cell?

Nov 10, 2012

I need to write a condition in such a way that cell IF A1= "DBR","BPR","SLR","SKR" then change cell B1 to SPECIFIC COLOUR Each condition different colour. A1 values ("DBR","BPR","SLR","SKR") is a list of selectable values. if the condition is falls then B1 should be normal (white color cell) with 0 in it.

View 1 Replies View Related

Incorporate Adjacent Cell In Formula W/o Naming Cell Address?

Oct 2, 2009

I searched and I keep finding something that's not quite what I'm looking to do so I think I'm missing something really simple.

Let's say that I want each cell in col b to be the sum of 5 plus whatever value is in the cell adjacent to it on the left (col).

I know that you can just write a formula in each cell like...

b1 will be =sum(a1+5)
b2 will be =sum(a2+5)

... but is there a shortcut so that you don't have to write out the actual cell address for each one?

Meaning - is there a predefined name or something that represents the cell to the left or right so you can just use that instead, allowing you to just copy paste the same formula all the way down the column? Something like...

b1 will be =sum(left+5)
b2 will be =sum(left+5)

... where "left" represents whatever value is in the cell to the left of that particular cell?

View 9 Replies View Related

Inserting Values In Cell Depending On Content In Adjacent Cell

Mar 20, 2014

I have the names of companies in one column, and the amount they owe in cells in the column beside them. I then have a second list of companies that is a subset of the first. Is there a formula that would place the amount they owe in teh corresponding cell adjacent to the compny in the second list? I've attached a sample workbook, Full Company List in column A, amount owing in B, trimmed down list in D and ideally I'd like the corresponding values in E.

View 3 Replies View Related

Copy Cell Values In One Cell Based On Value Of Adjacent Cells

Feb 20, 2014

What I want to achieve: those cells have number 1 ( in column E) , adjacent cell values ( In Column D) are copied to G12 in the following format:: Mark,Lark ( i.e. cell value , cell value, etc)

is it possible ( with a command button) Sample attached

View 4 Replies View Related

Userform Find Cell From ComboBox Value And Write To Adjacent Cell

Jan 27, 2010

I am having a problem using data from my combobox to find the cell on the worksheet and write to the adjacent cell.

Worksheet name is Fleet
ComboBox Name is ComboBox7
TextBox name is TextBox3
CommandButton1

I would like to be able to take the text from ComboBox7, find this text in Col A of worksheet Fleet and write the Value of TextBox3 in the adjacent cell in Col B. when
the CommandButton1 is pressed.

View 2 Replies View Related

Find Cell, Copy Adjacent Cell Or Cells To Clipboard

Jun 14, 2007

Here�s what I want to do in VBA

1. Put a value in cell H1 (text and numbers)

2. Find a matching value in column A (starting in row 2), error message if the is not a match.

3. Copy the adjacent cell column B (rows vary) to the clip board. It would copy until it found the first blank row.

I have attached a scaled down version of the spreadsheet, the one I use has 100's of codes. I know some VBA but not much. I searched the forum but could not find anything.

View 4 Replies View Related

Delete Rows Where Cell Doesn't Equal Adjacent Cell

Aug 16, 2007

I have a sheet in Excel 2004 for Mac that is a patient list with over 2000 patients. I need a rule that will compare values (patient IDs and responsible party ID) in two adjacent cells, if the values are different, to delete the entire row. The goal is to get rid of patients (rows) that are not the responsible party (responsible party ID).

View 3 Replies View Related

Automatic Time Stamp Cell Based On Adjacent Cell

Oct 19, 2007

I am looking to add a function to a current spreadsheet that writes the current date to a cell when another is updated. The sheets function is to have a user record when a particular action has been completed and then remind them after a given amount of time. The user is faced with an option to input a "1" to essentially "start the timer" and then the date that is automatically input by the code will be used to compare with the current date. I have tried the following on the Workbook_SheetChange sub

If ActiveCell.Column = 9 And ActiveCell.Value <> 1 Then
ActiveCell.Offset(-1, 2).Value = Date
End If

But cannot figure out how to eliminate user error. Let me explain. If a user enters a value (will only ever be a 1 to indicate "yes") into column 9 then the date appears in the correct place (two cells to the left) If however a user deletes a value then the date will update one cell too high!? I also thought of using a cell based if statement (if j7 = 1 then today() else "" but this only updates with todays value each time you open where I want the date to stay as the day the cell was updated. The date is going to be used as a way of working out when to change the original value of the cell in column 9 to "".

View 2 Replies View Related

Find Value, Copy Adjacent Cell & Paste To Corresponding Cell Of Another Found Value

Apr 5, 2008

I have found many posts similar to what I am trying to accomplish, but nothing that I have been able to modify and make work. I need a VBA script that will find a cell with the text data "Difference" and copy the adjacent (to the right) cell's data. I then need to find a cell with text data "Ops" and paste the previous data to it's adjacent cell.

View 3 Replies View Related

Find Cell Value In Column & Return Text In Adjacent Cell

Jun 10, 2008

I have a drop down list in a merged cell B12-F12 and B13-F13 and B14-F14 . . . B30-F30.

I need the adjacent merged cell to populate a reason (text) based on the text answer in the drop down list or the entered text in the first merged cell. For example in the cell B12-F12 the user picks from the list or types in "Amiodarone." I want the adjacent merged cell G12-J12to automatically fill with "Heart Rhythm." I also want to be able to set up multiple if - them statements like if Amiodarone is entered then fill adjacent cell with Heart Rhythm and if Toprol XL then fill adjacent cell with Heart / Blood pressure and if simvastatin then fill adjacent cell with Cholesterol, etc. I have about 30 different options for cell 1 that I want to have auto fill in cell 2 based on the contents of cell 1. I've attached my file.

I want the user to be able to choose from the list or type the drug name in.

View 8 Replies View Related

Use Value From A Cell Immediately Adjacent To Referenced Cell In A Formula

Feb 25, 2014

I need to create a cell reference which will allow me to specify a cell in a table by value (using indirect) and pull the value from a cell immediately one row over for use in a formula. Say I have a table Containing column A and B; I want to reference the value of a cell in column A (e.g. "Large Widget") and receive (in the formula) the value in column B (e.g. "41 cm^2").

View 4 Replies View Related

Text In Cell Then Formula To Put Particular Number In Adjacent Cell

Feb 16, 2014

I have text in column A of either "xxx" or "yyy"

I'm looking for a formula so that If

A1: "xxx" then B1: $100
Or if
A1: "yyy" then B1: $150

So when I write "xxx" or "yyy" in a cell of Col A

then $100 or $150 shows up in adjacent cell in Col B automatically.

I will need to sum the numbers later so Col B will need to be in number/accounting format.

View 3 Replies View Related

How Do I Insert A Cell Based On Its Match With An Adjacent Cell

Jan 20, 2006

There's got to be a way to do this (mail merge style perhaps...) I would like to insert the entry/ies under a heading in a table in one worksheet whenever that heading matches the data entered in a separate worksheet.

Presently I can find no way to do this in Excel.

View 12 Replies View Related

Merge Cell Values If Common Value In Adjacent Cell

Mar 22, 2009

I have data in two columns

Column A has values with names like -

John, Paul, Hena, Kumar, Paul, Hena, John in different rows

Colum B has day values - eg , sun, mon, tue, wed , thu, fri and sat

I want to insert a new column C with formula that returns

1. for every John, concatenate of all the day values adjacent to row of John eg "sunmonfri"

Similarly for all the values in Column A, Column C should reflect the concatenate values of Column B.

View 9 Replies View Related

Cell Colour Change From Result In Adjacent Cell

Jun 1, 2006

I am trying to make the colour of cell change depending on the result in an adjacent cell and have found and adapted the following:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("x4:x202")) Is Nothing Then
Select Case Target
Case 11
icolor = 43
Case 21
icolor = 43
Case 31
icolor = 27
Case 41
icolor = 27................

View 4 Replies View Related

Find Cell Value In Another Workbook & Return Adjacent Cell

Aug 12, 2008

I am trying to complete these steps:

Take a value from AK59 from the "EQF" tab in a file called "QuoteMaster.xls"

Use that value to find match in column "A" in a Seperate workbook "ITMSTR.xls" on the "Sheet1" tab

Offset to the right 1 cell of the found value, take back to the "QuoteMaster.xls" and put in cell "AN59"

My code comes up with no errors, it opens the file and closes is as shown, but it doesn't copy the value over for whatever reason...

View 3 Replies View Related

VBA - Selecting Active Cell And Working Back To Specific Cell Range?

Jul 2, 2014

I have a form that loads and depending on the word selected in the drop down the following code loops through cells Q2:AC2 until it finds the word in one of those cells (the word will always be in one of the cells)

Code:
For Each c In Range("Q2:AC2").Cells
If c = period Then
c.Select

[Code]...

The active cell it finds will always change, i know I need something to code the active cell back but I don't know what it should be.

View 5 Replies View Related

Assign Active Cell In Macro With Dynamic Cell Choice

Dec 29, 2009

Before unloading a userform the range to select the active cell is set to

View 3 Replies View Related

Lock Cell Based On Value Of Adjacent Cell?

Sep 20, 2013

I need to lock the cells in a certain column based on the value of the right side cell. If the value of the right side cell is "Slave" it should lock the cell, otherwise it should remain unlock. I read many codes in the internet but none of them worked properly for me.

View 9 Replies View Related

Finding A Cell Adjacent To A Blank Cell

Feb 24, 2009

Ok, I've come close to the solution using the Match function, but somehow just can't quite nail it.

What I need is a formula that will search down Column B until it finds the first blank cell. Then report what is directly to the left of that cell.

So If the first blank cell is in $B$5, it will report what is in $A$5.

View 6 Replies View Related

Change The Value In The Cell Adjacent To The Cell In Column B

Nov 30, 2006

This should be simple but this is not working like I want it too. It should change the value in the cell adjacent to the cell in column B if the value of the cell in column B = "X".

Dim Well As Range
For Each Well In Range("B:B")
If Well.Value = "A2" Then Cells(Well, Well - 1).Value = "SamplePlate2"
Next Well

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved