I would like to do a paste special values rather than a paste.
I have tried every change in the code i could locate but have had no luck so far.
other than making this change the code is working great so i would like to make minimal changes to the code.
Appreciate any help
Thanks
John
[/code]
Sub Macro1()
Dim myRange As Range, cell As Range, PasteRange As Range
Sheets("cola data").Select
Set myRange = Range("g3:g10")
For Each cell In myRange
If Range("h7") <> "" Then
Set PasteRange = Range("h65536").End(xlUp).Offset(1, 0)
Else
Set PasteRange = Range("h7")
End If
If "na" = (cell.Value) Then
Range(Cells(cell.Row, "d").Address, _
Cells(cell.Row, "f").Address).Copy Destination:=PasteRange
End If
Next cell
End Sub
I have tried every change in the code i could locate but have had no luck so far.
other than making this change the code is working great so i would like to make minimal changes to the code.
Appreciate any help
Thanks
John
[/code]
Sub Macro1()
Dim myRange As Range, cell As Range, PasteRange As Range
Sheets("cola data").Select
Set myRange = Range("g3:g10")
For Each cell In myRange
If Range("h7") <> "" Then
Set PasteRange = Range("h65536").End(xlUp).Offset(1, 0)
Else
Set PasteRange = Range("h7")
End If
If "na" = (cell.Value) Then
Range(Cells(cell.Row, "d").Address, _
Cells(cell.Row, "f").Address).Copy Destination:=PasteRange
End If
Next cell
End Sub