please help Not Selecting the row.

[Arvind1977]

--------------------------------------------------------------------------------

Dim LR As Long 'Last Row
Dim i As Long

LR = Range("a" & Rows.Count).End(xlUp).Row

For i = 86 To LR
Range("a85:J85").Value = Range("a" & i & ":J" & i).Value

Select Case UCase(Sheet1.Range("$B$2"))
Case "T"
Range("A7:by8").Select
Case "C"
Range("A21:Ax21").Select
Case "V"
Range("A23:CH23").Select

' If UCase(Range("b2")) = "T" Then
'If UCase(Range("C69")).Value = "Y" Then

' Range("A7:by8").Select
'Else

'Range("A23:cH23").Select
'End If
End Select


Call Vikky
Sleep 200
Next i

End Sub

 

[xld]

This is a good game. We all just guess at what you mean, what works, what doesn't.

 

[Arvind1977]

Dear Sir,


It Is Not Selecting The Row From Case

 

[Jonmo1]

Works for me...

I see a couple possible problems..

1.
Select Case UCase(Sheet1.Range("$B$2"))
That is using the CodeName for a sheet, not necessarily the same thing as the Name as you see on the Sheet's Tab.

in the VBA module, sheets are listed as
Sheet1 (Sheet1)
The part in parens (Sheet1), that is the name in the TAB, The other part is the CodeName. They are not necessarily the same.
To refer to the name as you see it on the tab, use Sheets("Sheet1").Range(...)
To refer to the CodeName, use Sheet1.Range(....)

2.
Range("A7:by8").Select

Since you specified a Sheet Name in the Select Case Ucase(Sheet1.Range(B2)) part, but you did NOT in the Range(..).Select part, maybe it IS selecting the range, just not on the Sheet that you EXPECT it to??

Try qualifying the Sheet Name EVERYWHERE you have a Range refernce.

3.
Are you SURE Sheet1.Range("B2") has just a SINGLE Letter in it? Check for Leading/Trailing Spaces...

Hope this helps..

 

[Jonmo1]

4.
Try to avoid using Select in the first place. It is almost never required to select a range to manipulate it..