ONE CELL AS RANGE IN VBA INSIDE AN IF STATEMENT
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.
Code:
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
