Hi
I am having trouble with this line of code. compete code is listed below.
any help with getting past this line ?
If (cell.Value)="na" Then
thanks
John
Complete code below
Dim myRange As Range, cell As Range, PasteRange As Range
'Sheets("cola data").Select
Set myRange = Range("u5:u10")
For Each cell In myRange
If Range("Ah7") <> "" Then
Set PasteRange = Range("Ah65536").End(xlUp).Offset(1, 0)
Else
Set PasteRange = Range("Ah7")
End If
If (cell.Value)="na" Then
Range(Cells(cell.Row, "y").Address, _
Cells(cell.Row, "aa").Address).Copy Destination:=PasteRange
End If
Next cell
End Sub
[/code]
I am having trouble with this line of code. compete code is listed below.
any help with getting past this line ?
If (cell.Value)="na" Then
thanks
John
Complete code below
Dim myRange As Range, cell As Range, PasteRange As Range
'Sheets("cola data").Select
Set myRange = Range("u5:u10")
For Each cell In myRange
If Range("Ah7") <> "" Then
Set PasteRange = Range("Ah65536").End(xlUp).Offset(1, 0)
Else
Set PasteRange = Range("Ah7")
End If
If (cell.Value)="na" Then
Range(Cells(cell.Row, "y").Address, _
Cells(cell.Row, "aa").Address).Copy Destination:=PasteRange
End If
Next cell
End Sub
[/code]