Previous Topic Next Topic

Not sure how to use If Then statements or

Closed
weenie - Jul 26, 2011 at 12:39 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jul 28, 2011 at 03:50 PM
Hello,

I have data in Column M and if it finds exact values I entered below then Put the following text in next Column "N" (be the same row ). But I am not good with IF Then statements and when I try to run gives me a Else without If error. I have read that maybe a Select case could be better in this situation but at a loss where to start.

Sub Macro15()
'To look up values in a column M then enter a text on another column N

Dim LR As Long, i As Long

With Sheets("Failure Data")
LR = .Range("M" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If .Range("M" & i).Value = 1E+17 And .Range("N" & i).Value = "" Then
With .Range("N" & i).Value = "No Break"
Else
If .Range("M" & i).Value = 1E-17 And .Range("N" & i).Value = "" Then
With .Range("N" & i).Value = "Pretest Leakage"
Else
If .Range("M" & i).Value = 1E+30 And .Range("N" & i).Value = "" Then
With .Range("N" & i).Value = "Undefined"
Else
End With
End If
Next i
End With
End Sub

Thanks,
Weenie

2 responses

Answer 1 / 2
RWomanizer Posts 365 Registration date Monday February 7, 2011 Status Contributor Last seen September 30, 2013 120
Jul 26, 2011 at 12:59 AM
you have to write down two more end if before next i.
0
Answer 2 / 2
weenie
Jul 27, 2011 at 02:25 PM
I'm still getting complie error Else with out if even after I added the 2 End if before Next i. It highlights in yellow the 1st Else.
0
weenie
Jul 27, 2011 at 02:27 PM
I added 2 more End If before Next i but still keep getting compile error and it is highlighting in yellow the 1st Else.
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jul 28, 2011 at 03:50 PM
You got wrong "With", like With .Range("N" & i).Value = "Pretest Leakage" . You need to only say

.Range("N" & i).Value = "Pretest Leakage"


you can try this 

Sub Macro15()
'To look up values in a column M then enter a text on another column N

   Dim LR As Long, i As Long
   
   With Sheets("Failure Data")
      LR = .Range("M" & Rows.Count).End(xlUp).Row
      For i = 2 To LR
         If .Range("N" & i).Value = vbNullString _
         Then
            Select Case .Range("M" & i).Value
               Case Is = 1E+17
                  .Range("N" & i).Value = "No Break"
               Case Is = 1E-17
                  .Range("N" & i).Value = "Pretest Leakage"
               Case Is = 1E+30
                  .Range("N" & i).Value = "Undefined"
            End Select
         End If
      Next i
   End With
End Sub
0

Similar discussions

Removing " false" value in "IF"
JIN -
share -

10 responses
using multiple if functions with data validation
chriswiec -
Zohaib R -

5 responses
Multiple If in Data Validation
smuneeb -
smuneeb -

3 responses
using a data validation AND an IF formula in the same cell
bite_tony -
bite_tony -

1 response
Removing "FALSE" from an IF statement with a VLOOKUP
RayRay -
RayRay -

2 responses