Este fórum está sendo desativado

[BritoMarques]

Olá a todos!
Pessoa, através na função Match (corresp) localizo a posição da linha que quero copiar as informações.
Como a matriz tem 7 colunas e 1500 linha, após a localização da linha através do Match gostaria de copiar as informação das colunas 3,4 e 5, descarregando de uma única vez na planilha. É possivel?
Ex. hipotético:
Sub Copiar()
DIM mMatriz()
DIM vPosição as Integer
'localizo posição
vPosicao = Match (Valorprocurado, ColunaComValores, 0)
'COMO FIZ
Ranger ("A1") = mMatriz(vPosição, 3)
Ranger ("B1") = mMatriz(vPosição, 4)
Ranger ("C1") = mMatriz(vPosição, 5)
'COMO IMAGINO FAZER
Ranger ("A1:C1") = ? como extrair as informações apenas da linha desejada das colunas 3 a 5
End Sub

[osvaldomp]

Código: Selecionar todos

Sub Copiar()
 Dim mMatriz, vPosição As Integer
 'localizo posição
 vPosicao = Match(Valorprocurado, ColunaComValores, 0)
 'COMO FIZ
 mMatriz = Cells(vPosição, 1).Resize(, 3).Value
 [A1].Resize(, 3).Value = mMatriz
End Sub

Código: Selecionar todos

Sub ReplicaSemMatriz()
 Dim vPosição As Integer
  vPosicao = Match(Valorprocurado, ColunaComValores, 0)
  [A1].Resize(, 3).Value = Cells(vPosição, 1).Resize(, 3).Value
End Sub

[BritoMarques]

Obg Osvaldo...
vou estudar seus procedimentos, vlw.