Página 1 de 1

Copiar parte de uma matriz nas células

Enviado: 01 Dez 2019 às 10:04
por 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

Re: Copiar parte de uma matriz nas células

Enviado: 01 Dez 2019 às 15:06
por 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

Copiar parte de uma matriz nas células

Enviado: 05 Dez 2019 às 21:20
por BritoMarques
Obg Osvaldo...
vou estudar seus procedimentos, vlw.