Notifications
Clear all

Criar um Array de n linhas x 3 colunas

4 Posts
3 Usuários
0 Reactions
1,496 Visualizações
(@engcaetano)
Posts: 0
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: 0
New 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.

 
Postado : 10/10/2019 2:08 pm
(@engcaetano)
Posts: 0
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
(@rlm)
Posts: 0
New 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
 
Postado : 25/10/2019 1:57 pm