Hi
Iam using the below code ( I found on the internet) and does work great but some of the fields are formulas and I only want to paste the values. I have tried copy.value but get an object required error
Thank you
Dim bottomB As Integer
bottomA = Range("B" & Rows.Count).End(xlUp).Row
Dim d As Range
For Each d In Range("b2:b" & bottomA)
If d = Sheets("F-MAIL04").Range("e1") Then
Cells(d.Row, "E").Resize(, 3).Copy Sheets("F-MAIL04").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
End If
Next d
Iam using the below code ( I found on the internet) and does work great but some of the fields are formulas and I only want to paste the values. I have tried copy.value but get an object required error
Thank you
Dim bottomB As Integer
bottomA = Range("B" & Rows.Count).End(xlUp).Row
Dim d As Range
For Each d In Range("b2:b" & bottomA)
If d = Sheets("F-MAIL04").Range("e1") Then
Cells(d.Row, "E").Resize(, 3).Copy Sheets("F-MAIL04").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
End If
Next d
