Скачать или смотреть Transferir registros (dados) entre planilhas Excel (versão C)

Excel: Transferir Dados Passo a Passo entre Planilhas. Aqui, você aprenderá a transferir dados automaticamente em qualquer cenário. Mais produtividade, menos erros. Vem com a gente no @explorarexcel transformar seu Excel!

#Excel #TransferirDados #DicasExcel #ProdutividadeExcel #ExcelParaIniciantes #Explorarexcel #Planilhas

📌 CÓDIGO DESTE VÍDEO:
Sub TransferirLinhas()
Dim A As Worksheet
Dim B As Worksheet
Dim LinA%, LinB%

Set A = Worksheets("A")
Set B = Worksheets("B")

For LinA = 3 To 1000
If A.Cells(LinA, 5) = "D" Then
A.Range(Cells(LinA, 2), Cells(LinA, 6)).Select
LinB = B.[B1000]. End(xlUp).Row + 1
Selection.Cut Destination:=B.Cells(LinB, 2)
Selection.Delete
LinA = LinA - 1
End If
Next
A.Range("A3").Select
End Sub