Criar um Array de n linhas x 3 colunas

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Criar um Array de n linhas x 3 colunas

Mensagempor EngCaetano » Qui Out 10, 2019 4:41 pm

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.
Sergio Caetano
EngCaetano
Membro
Membro
 
Mensagens: 12
Registrado em: Seg Set 02, 2019 9:39 am
Localização: Santos SP
Has thanked: 9 times
Have thanks: 0 time

{ SO_SELECT }

Re: Criar um Array de n linhas x 3 colunas

Mensagempor MPrudencio » Qui Out 10, 2019 5:08 pm

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.


For this post the author MPrudencio thanked:
EngCaetano (Sex Out 18, 2019 12:42 pm)
MPrudencio
Membro
Membro
 
Mensagens: 2836
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 79 times
Have thanks: 624 times

Re: Criar um Array de n linhas x 3 colunas

Mensagempor EngCaetano » Qui Out 24, 2019 3:12 pm

Boa tarde.
segue link para download com arquivo exemplo
https://www.sendspace.com/file/48w3dd
Sergio Caetano
EngCaetano
Membro
Membro
 
Mensagens: 12
Registrado em: Seg Set 02, 2019 9:39 am
Localização: Santos SP
Has thanked: 9 times
Have thanks: 0 time

Re: Criar um Array de n linhas x 3 colunas

Mensagempor rlm » Sex Out 25, 2019 3:57 pm

Uma possibilidade:
Código: Selecionar todos
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
Garça - SP / SCS - SP

For this post the author rlm thanked:
EngCaetano (Sex Out 25, 2019 4:03 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 410
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 30 times
Have thanks: 185 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], LaerteB, MSN [Bot] e 7 visitantes