ONE CELL AS RANGE IN VBA INSIDE AN IF STATEMENT

[jffryjsphbyn]

Hi,

Please help me out to figure out what is the problem. There is no error said but there is one problem that there is no data generated when it is runned. The unclassified tab do contain a data.



If O24 = "AMERICAS" Or O24 = "americas" Then

Sheets("UNCLASSIFIED").Select
Columns("D:D").Delete
Sheets("UNCLASSIFIED").Select
Columns("A:C").Select
Selection.Copy
Sheets("CLASSIFIED-americas").Select
Range("A:C").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Sheets("UNCLASSIFIED").Select
Columns("D:P").Select
Selection.Copy
Sheets("CLASSIFIED-americas").Select
Range("K:W").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Sheets("INSTRUCTIONS").Activate


Else
If O24 = "RRRS" Or O24 = "rrrs" Then
Sheets("UNCLASSIFIED").Select
Columns("D:D").Delete
Sheets("UNCLASSIFIED").Select
Columns("A:C").Select
Selection.Copy
Sheets("CLASSIFIED-RRRS").Select
Range("A:C").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Sheets("UNCLASSIFIED").Select
Columns("D:P").Select
Selection.Copy
Sheets("CLASSIFIED-RRRS").Select
Range("K:W").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Sheets("INSTRUCTIONS").Activate


Else
If O24 = "RRR" And O24 = "RRR" Then
Sheets("UNCLASSIFIED").Select
Columns("D:D").Delete
Sheets("UNCLASSIFIED").Select
Columns("A:C").Select
Selection.Copy
Sheets("CLASSIFIED-RRR").Select
Range("A:C").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Sheets("UNCLASSIFIED").Select
Columns("D:P").Select
Selection.Copy
Sheets("CLASSIFIED-RRR").Select
Range("K:W").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Sheets("INSTRUCTIONS").Activate
End If
End If
End If




End Sub


Thank you and Good luck!
Jeff

[Admin]

Hi

It should be


If ucase$(range("O24").value) = "AMERICAS" Then