ask VBA to do something or something else depending of a value (text) in a cell

[cazdealer]

Hi,

In a Sheet named "orders", I have a string in cell E1.
it's the word "buy" or the word "sell"

I would like to do this with VBA...

if the word is "buy"
I would like to do this:

    Sheets("orders").Select
    Range("A1:D1").Select
    Selection.Copy
    Sheets("data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

but if the word is "sell"
I would like to do this:

Sheets("orders").Select
Range("A1:D1").Select
    Selection.Copy
    Sheets("data").Select
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

All this is included in a more complicated VBA procedure but I just don't know how to ask VBA to do something or something else depending on a cell.

thanks for the help

 

[mikerickson]

Try

Select Case CStr(ThisWorkbook.Sheets("orders").Range("E1").Value)
    Case "buy"
        Rem do this
    Case "sell"
        Rem do other this
End Select

 

[cazdealer]

thanks!!
this is perfect