Solved

# Enter values in one range based upon values in another range...

Posted on 2008-10-22
143 Views
Whenever "(1)" [without " "] shows up in range AQ102:AQ141 I would like VBA code to enter 0 [zero] in the corresponding cell in range AQ59:AQ98.
0
• 4
• 3

LVL 76

Accepted Solution

GrahamSkan earned 500 total points
ID: 22782097
Do you mean like this?
``````    Dim cl As Range

For Each cl In ActiveSheet.Range("AQ102:AQ141").Cells

If cl.Value = "(1)" Then

cl.Offset(59 - 102, 0).Value = 0

End If

Next cl
``````
0

LVL 17

Expert Comment

ID: 22782124
Your specs are a little vague, but if AQ102:AQ141 are text formatted cells, the following formula will provide the zero for the corresponding cell(s).

=IF(AQ102 = "(1)",0,"")
once you have entered the formula in cell AQ59, just select the cell and drag the lower right corner down thru cell AQ98. This will copy the formula to the remaining cells.
0

Author Comment

ID: 22782144
Graham -

I tried the code but it won't execute.  The line
If cl.Value = "(1)" Then
is highlighted in yellow.

Division produces the values in AQ102:AQ141 & a few of them come up #DIV/0!.  Could this be screwing up the code?

Ron

0

LVL 76

Expert Comment

ID: 22782168
Yes. I wasn't expecting that. Try cl.Text  instead of cl.Value.
0

Author Comment

ID: 22782191
Graham -

I tried the change... still no cigar.  ;>(

Ron
0

Author Closing Comment

ID: 31509002
Graham -
I got rid of the #DIV/0! error with the formula
=IF(OR(Y59=0,AB8=0),0,Y59/AB8)

Thanks.
0

Author Comment

ID: 22785013
Graham -

I fixed the #DIV/0! issue & the code worked with a minor adjustment.  Back to cl.Value and "-1" rather than "(1)".

Thanks,

Ron
0

LVL 76

Expert Comment

ID: 22785443
Yes if you simply enter (1) into a cell, it is converted to -1, but if you enter '(1), you will get the text - less the apostrophe.
0

## Featured Post

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…