Code: Select all
dim I as Long
i=2
Do
If Cells(I,1) = "ABC) or Cells(i,1) = "DEF" or Cells(I, 1) = "GHI" then
The workbook is named Chart.csv and the Sheet is named Sheet2.
Code: Select all
dim I as Long
i=2
Do
If Cells(I,1) = "ABC) or Cells(i,1) = "DEF" or Cells(I, 1) = "GHI" then
Code: Select all
Select Case Cells(I, 1).Value
Case "ABC", "DEF", "GHI", ..., "XYZ"
' Do something
End Select
Code: Select all
If Not Range("Z1:Z20").Find(What:=Cells(I, 1).Value, LookAt:=xlWhole) Is Nothing Then
Code: Select all
Range("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Z1:Z27")