Pesquisar na Comunidade
Mostrando resultados para as tags ''colarespecial''.
Encontrado 1 registro
-
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!! :)
