Ainda estou aprendendo...
Com a matriz abaixo eu copio os dados de 3 colunas da planilha INTERDATA e colo na planilha ACUMULA. Porém, agora estou tentando copiar 5 colunas da planilha INTERDATA, porém quando adiciono uma coluna a mais esta dando erro. Alguém poderia me orientar como
deve ser feito?
SUB COPIAR()
Dim VetCopia()
Dim i As Long, j As Long, k As Long, Qtde As Long
Dim Achou As Boolean
Sheets("InterDta").Select
Qtde = Range("b2").CurrentRegion.Rows.Count
ReDim VetCopia(2, 1)
VetCopia(0, 1) = Cells(2, 1).Value
VetCopia(1, 1) = Cells(2, 2).Value
VetCopia(2, 1) = Cells(2, 3).Value
'VetCopia(3, 1) = Cells(2, 4).Value
For i = 2 To Qtde
Achou = False
For j = 1 To UBound(VetCopia, 2)
If Cells(i, 2).Value = VetCopia(1, j) Then
Achou = True
Exit For
End If
Next
If Achou = False Then
ReDim Preserve VetCopia(2, UBound(VetCopia, 2) + 1)
VetCopia(0, UBound(VetCopia, 2)) = Cells(i, 1).Value
VetCopia(1, UBound(VetCopia, 2)) = Cells(i, 2).Value
VetCopia(2, UBound(VetCopia, 2)) = Cells(i, 3).Value
End If
Next
Sheets("ACUMULA").Select
For k = 1 To UBound(VetCopia, 2)
Cells(k + 1, 1).Value = VetCopia(0, k)
Cells(k + 1, 2).Value = VetCopia(1, k)
Cells(k + 1, 3).Value = VetCopia(2, k)
Next
End Sub
