Arvind1977
Board Regular
- Joined
- Jul 21, 2006
- Messages
- 108
--------------------------------------------------------------------------------
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
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