IF AND ELSE NOT WORKING

T

thomsonpa

Can anybody help explain why the following code does not work?

The value in range D2 is =TEXT($C$2,"DDDDDD"), c2 is todays date

Dim rng As Range

Set rng = ActiveSheet.Range("D2")

With rng
If .Value = "MONDAY" Then
'Do something,
'
Sheets("MON").Select
ActiveSheet.Rows("7:126").Select
Selection.Copy
Sheets("24HR").Select
ActiveSheet.Rows("7:126").Select
ActiveSheet.Paste
Else
If .Value = "TUESDAY" Then
'Do something,
'
Sheets("TUE").Select
ActiveSheet.Rows("7:126").Select
Selection.Copy
Sheets("24HR").Select
ActiveSheet.Rows("7:126").Select
ActiveSheet.Paste
Else
If .Value = "WEDNESDAY" Then
'Do something,
'
Sheets("WED").Select
ActiveSheet.Rows("7:126").Select
Selection.Copy
Sheets("24HR").Select
ActiveSheet.Rows("7:126").Select
ActiveSheet.Paste
Else

End If
End If
End If

End With
 
B

Bob Phillips

Dim rng As Range

Set rng = ActiveSheet.Range("D2")

With rng
Select Case UCase(.Value)

Case "MONDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("MON").Range("A7")
Case "TUESDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("TUE").Range("A7")
Case "WEDNESDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("WED").Range("A7")
End Select
End With


or even

Dim rng As Range

Set rng = ActiveSheet.Range("D2")

With rng
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets(UCase(.Value)).Range("A7")
End With


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
T

thomsonpa

Great, many thanks works perfectly..



Bob Phillips said:
Dim rng As Range

Set rng = ActiveSheet.Range("D2")

With rng
Select Case UCase(.Value)

Case "MONDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("MON").Range("A7")
Case "TUESDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("TUE").Range("A7")
Case "WEDNESDAY"
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets("WED").Range("A7")
End Select
End With


or even

Dim rng As Range

Set rng = ActiveSheet.Range("D2")

With rng
'Do something,
'
Sheets("24HR").Rows("7:126").Copy Sheets(UCase(.Value)).Range("A7")
End With


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top