Transferir registros para outra guia antes de excluir no EXCEL COM VBA
Автор: Programador Excel VBA
Загружено: 2017-10-15
Просмотров: 4349
Transferir registros para outra guia antes de excluir no EXCEL COM VBA
Aula de Hoje – Aula Bônus - Objeto Planilha
Tema: transferência de registros entre guias conforme critério estabelecido
Excluir registros da plan1 e salvar na plan2 conforme critério estabelecido,
Excluir registros da plan1 e salvar na plan2 conforme critério estabelecido – COM MAIS DE UM CRITÉRIO,
código utilizado no video
Sub Retângulodecantosarredondados10_Clique()
Dim LinhaAtual As Long
Dim UltimaLinha As Long
Dim W As Worksheet
Dim Linha As Integer
Set W = Sheets("Registros")
UltimaLinha = W.UsedRange.Rows.Count
Linha = 2
With W
For LinhaAtual = 1 To UltimaLinha
If Cells(LinhaAtual, "C") = "CONCLUIDA" Or _
Cells(LinhaAtual, "C") = "EM ANDAMENTO" Then
Sheets("Historico").Cells(Linha, 1) = .Cells(LinhaAtual, 1)
Sheets("Historico").Cells(Linha, 2) = Format(.Cells(LinhaAtual, 2), "DD/MM/YYYY")
Sheets("Historico").Cells(Linha, 3) = .Cells(LinhaAtual, 3)
Sheets("Historico").Cells(Linha, 4) = .Cells(LinhaAtual, 4)
Sheets("Historico").Cells(Linha, 5) = Format(.Cells(LinhaAtual, 5), "currency")
Linha = Linha + 1
.Rows(LinhaAtual).Delete
Else
End If
Next LinhaAtual
End With
End Sub
Arquivo para download
Aguarde....
Att, Gledson
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
