Meerder voorwaardes

[bar88]

Wie kan mij even helen, waarschijnlijk voor jullie erg makkelijk maar ik loop vast.

In cel B3 kan bijvoorbeeld M, D, RV staan.
Bij deze moet hij dan wat gaan doen, dat lukt wel maar hoe kan ik meerdere voorwaardes achter elkaar zetten?

If Range("B3") = ("M") Then
    Sheets("Blad3").Range("A3").Copy
    Sheets("Blad2").Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If

 

[JEC.]

Bvb op deze manier

Sub j()
 Select Case Range("B3")
   Case "M"
    Sheets("Blad3").Range("A3").Copy
    Sheets("Blad2").Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
   Case "D"
    'actie als D
   Case "RV"
    'actie als RV
 End Select
End Sub

 

[bar88]

Helemaal top, dit is wat ik zocht, bedankt.