Tenho esse código para caso essa condição seja verdadeira para uma determinada célula que copie a linha inteira e jogue para outra planilha. Porém, como na planilha que algumas células são compostas por fórmulas, os valores não são copiados, eles saem com um "#VALOR!". Como faço para copiar e colar valores neste caso?
Sub CopyRows()
Dim cell As Range
Dim lastRow As Long, i As Long
Dim FName As String
Dim FPath As String
Dim NewBook As Workbook
lastRow = Range("A" & Rows.Count).End(xlUp).row
i = 1
For Each cell In Sheets("SP").Range("T1:T" & lastRow)
If cell.Value = "Cob" Or cell.Value = "Res" Then
cell.EntireRow.Copy Sheets("SP - Cob e Res").Cells(i + 1, 1)
Pergunta
julianarr
Boa noite,
Tenho esse código para caso essa condição seja verdadeira para uma determinada célula que copie a linha inteira e jogue para outra planilha. Porém, como na planilha que algumas células são compostas por fórmulas, os valores não são copiados, eles saem com um "#VALOR!". Como faço para copiar e colar valores neste caso?
Sub CopyRows()
Dim cell As Range
Dim lastRow As Long, i As Long
Dim FName As String
Dim FPath As String
Dim NewBook As Workbook
lastRow = Range("A" & Rows.Count).End(xlUp).row
i = 1
For Each cell In Sheets("SP").Range("T1:T" & lastRow)
If cell.Value = "Cob" Or cell.Value = "Res" Then
cell.EntireRow.Copy Sheets("SP - Cob e Res").Cells(i + 1, 1)
i = i + 1
End If
Obrigada!! :)
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.