Thread
:
Loop for text check in three colums and set a text code based on thisin another column
View Single Post
#
2
Posted to microsoft.public.excel.programming
Claus Busch
external usenet poster
Posts: 3,872
Loop for text check in three colums and set a text code based on this in another column
Hi Johan,
Am Tue, 16 Apr 2019 10:41:42 -0700 (PDT) schrieb
:
Loop in column A for all rows from second to last
If (li, co+13) contains text "AAA"
and (li, co+21) contains text "BBB"
and (li, co+22) contains text "CCC"
then set (li,co+25) the text "A"
Else
If (li, co+13) contains text "DDD"
and (li, co+13) does not contains text "EEE"
and (li, co+22) contains text "FFF"
then set (li,co+25) the text "B"
end if
If (li, co+25) is empty
then set (li, co+25) the text "C"
else
end if
I don't know if I understood you correctly.
If the following code does not work for your problem explain a little
more.
Sub Test()
Dim LRow As Long, i As Long
Dim varData As Variant, varOut() As Variant
With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
varData = .Range("A2:Y" & LRow)
ReDim varOut(UBound(varData) - 1)
For i = LBound(varData) To UBound(varData)
If varData(i, 14) & varData(i, 22) & varData(i, 23) = "AAABBBCCC" Then
varOut(i - 1) = "A"
ElseIf varData(i, 14) & varData(i, 23) = "DDDFFF" _
And varData(i, 22) < "EEE" Then
varOut(i - 1) = "B"
Else
varOut(i - 1) = "C"
End If
Next
.Range("Z2").Resize(UBound(varOut) + 1) =
Application.Transpose(varOut)
End With
End Sub
Regards
Claus B.
--
Windows10
Office 2016
Reply With Quote
Claus Busch
View Public Profile
Find all posts by Claus Busch