L
Len
Hi,
The following codes work but does not copy paste special value ( ie
copy value without formula )
Several attempts to modify it but it fails
Extract of codes : -
With Worksheets("BS Grp")
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, "A").Value = "10A" Then
iNextRow = iNextRow + 1
.Rows(i).Copy Worksheets("Sheet3").Cells(iNextRow,
"A").PasteSpecial xlPasteValues
End If
Next i
End With
Sheets("Sheet3").Columns.AutoFit
Any help would be appreciated and thanks
I'm excel vba beginner
Regards
Len
The following codes work but does not copy paste special value ( ie
copy value without formula )
Several attempts to modify it but it fails
Extract of codes : -
With Worksheets("BS Grp")
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, "A").Value = "10A" Then
iNextRow = iNextRow + 1
.Rows(i).Copy Worksheets("Sheet3").Cells(iNextRow,
"A").PasteSpecial xlPasteValues
End If
Next i
End With
Sheets("Sheet3").Columns.AutoFit
Any help would be appreciated and thanks
I'm excel vba beginner
Regards
Len