Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not working
Here is the code I am having trouble with. It returns all "X"'s in the offset ranges, whereas there should be three "O"'s and one "", (blank).
Whe J = range A9 and A9 value is "B" RangerTest is a named range A1 to O1 of sheet1 RangerTest has these values: ABCDEBFGHIJBKL and O1 is blank When I run the code the offset values a XXXXXXXXXXXXXX and the last offset O1 is blank. The desired out come should be: XOXXXOXXXXXOXX (with the last offset blank in this example. Sub Testx() Dim J As String Dim RangerTest As Range, Cell As Range J = Range("A9").Value For Each Cell In Range("RangerTest") If Cell.Value = J Then Cell.Offset(5, 0).Value = "O" If Cell.Value < J Then Cell.Offset(5, 0).Value = "X" If Cell.Value = "" Then Cell.Offset(5, 0).Value = "" Next End Sub Can't figure where I am going wrong??? Regards Howard |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not working
On Wednesday, August 8, 2012 5:05:26 PM UTC-5, Howard wrote:
Here is the code I am having trouble with. It returns all "X"'s in the offset ranges, whereas there should be three "O"'s and one "", (blank). Whe J = range A9 and A9 value is "B" RangerTest is a named range A1 to O1 of sheet1 RangerTest has these values: ABCDEBFGHIJBKL and O1 is blank When I run the code the offset values a XXXXXXXXXXXXXX and the last offset O1 is blank. The desired out come should be: XOXXXOXXXXXOXX (with the last offset blank in this example. Sub Testx() Dim J As String Dim RangerTest As Range, Cell As Range J = Range("A9").Value For Each Cell In Range("RangerTest") If Cell.Value = J Then Cell.Offset(5, 0).Value = "O" If Cell.Value < J Then Cell.Offset(5, 0).Value = "X" If Cell.Value = "" Then Cell.Offset(5, 0).Value = "" Next End Sub Can't figure where I am going wrong??? Regards Howard Send file to dguillett @gmail.com with this msg and I'll look. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not working
On Wednesday, August 8, 2012 5:05:26 PM UTC-5, Howard wrote:
Here is the code I am having trouble with. It returns all "X"'s in the offset ranges, whereas there should be three "O"'s and one "", (blank). Whe J = range A9 and A9 value is "B" RangerTest is a named range A1 to O1 of sheet1 RangerTest has these values: ABCDEBFGHIJBKL and O1 is blank When I run the code the offset values a XXXXXXXXXXXXXX and the last offset O1 is blank. The desired out come should be: XOXXXOXXXXXOXX (with the last offset blank in this example. Sub Testx() Dim J As String Dim RangerTest As Range, Cell As Range J = Range("A9").Value For Each Cell In Range("RangerTest") If Cell.Value = J Then Cell.Offset(5, 0).Value = "O" If Cell.Value < J Then Cell.Offset(5, 0).Value = "X" If Cell.Value = "" Then Cell.Offset(5, 0).Value = "" Next End Sub Can't figure where I am going wrong??? Regards Howard I think OP forgot to input a value in cell j (a10) |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not working
On Wednesday, August 8, 2012 5:05:26 PM UTC-5, Howard wrote:
Here is the code I am having trouble with. It returns all "X"'s in the offset ranges, whereas there should be three "O"'s and one "", (blank). Whe J = range A9 and A9 value is "B" RangerTest is a named range A1 to O1 of sheet1 RangerTest has these values: ABCDEBFGHIJBKL and O1 is blank When I run the code the offset values a XXXXXXXXXXXXXX and the last offset O1 is blank. The desired out come should be: XOXXXOXXXXXOXX (with the last offset blank in this example. Sub Testx() Dim J As String Dim RangerTest As Range, Cell As Range J = Range("A9").Value For Each Cell In Range("RangerTest") If Cell.Value = J Then Cell.Offset(5, 0).Value = "O" If Cell.Value < J Then Cell.Offset(5, 0).Value = "X" If Cell.Value = "" Then Cell.Offset(5, 0).Value = "" Next End Sub Can't figure where I am going wrong??? Regards Howard Option Explicit Option Compare Text Sub TheTestSas() Dim J As String Dim RANGERTEST As Range Dim C As Range Application.ScreenUpdating = False J = Range("A10").Value Range("RANGERTEST").Offset(8).Value = "" For Each C In Range("RANGERTEST") If Len(Application.Trim(C)) 0 Then Select Case C Case Is = J: C.Offset(8) = "O" Case Is < J: C.Offset(8) = "X" End Select End If Next Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code not working | Excel Programming | |||
Code not working | Excel Programming | |||
Code not working NOW ? But it was before??? | Excel Programming | |||
Pop up code not working | Excel Programming | |||
VB code is not working like it should | Excel Programming |