View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Grek[_21_] Grek[_21_] is offline
external usenet poster
 
Posts: 1
Default How to "translate" that in VBA ?

Hi,

At the moment I have something like this :


/////////////////////////////////////////////////////////////////


If ActiveCell.Value = "3" Then
ActiveCell.Value = "Ok"
If ActiveCell.Value = "dsfdskf" Then
ActiveCell.Value = "Ok"
If ActiveCell.Value = "aaaa" Then
ActiveCell.Value = "Ok"
If ActiveCell.Value = "dbbbb" Then
ActiveCell.Value = "Ok"
End If
End If
End If
End If

//////////////////////////////////////////////////////////////////


As it is not very efficient, I would like to put all my criteria
(dsfdskf, aaaa,...) in an an other excell sheet (sheet2) and d
something in VBA like

If ActiveCel.value = any of the value from Range A1 to A30 of sheet
Then
ActiveCell.Value - "ok"
End if

Could someone help me to do that ?

Many thanks in advance,

Gre

--
Message posted from http://www.ExcelForum.com