Notifications
Clear all

Criar um Array de n linhas x 3 colunas

4 Posts
3 Usuários
0 Reactions
1,502 Visualizações
(@engcaetano)
Posts: 2
New Member
Topic starter
 

Boa tarde.
Gostaria saber se é possível, via codigo fonte em VBA, criar um array com diversas linhas (variando de acordo com a quantidade de dados - dinâmico) x 3 colunas (cod. instalação, nome funcionário e quantidade de instalações).
Se for possível criar este array, posso cria-lo como tipo variant e usar os dados da coluna "quantidade de instalações" para efetuar somas? É necessário eu criar um array de um único tipo, no caso sendo String todo ele.
Sendo ele com todos os dados String, é possível efetuar cálculos com a coluna "quantidade de instalações?

No aguardo, obrigado.

 
Postado : 10/10/2019 1:41 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Respondendo sua pergunta sim é possivel criar um array da forma que vc deseja.

Mas para uma solução mais de acordo com sua necessidade sugiro que vc publique uma planilha com alguns dados de exemplo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/10/2019 2:08 pm
(@engcaetano)
Posts: 2
New Member
Topic starter
 

Boa tarde.
segue link para download com arquivo exemplo
https://www.sendspace.com/file/48w3dd

 
Postado : 24/10/2019 1:12 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Uma possibilidade:

Sub monta_Array()
Dim q As Long
Dim questoes() As Variant
Dim x As Integer
With Sheets("Plan1")
    q = .Range("A65536").End(xlUp).Row - 1
ReDim questoes(0 To q, 0 To 3) 'redimensiona array
    For x = 2 To q
        questoes(x - 2, 0) = .Cells(x, 1).Value             'inclui no array
        questoes(x - 2, 1) = .Cells(x, 3).Value             'inclui no array
        questoes(x - 2, 2) = .Cells(x, 4).Value             'inclui no array
    Next
MsgBox questoes(0, 0) & "/ " & questoes(0, 1) & "/ " & questoes(0, 2)
End With
End Sub

Reinaldo

 
Postado : 25/10/2019 1:57 pm