Página 1 de 1

Referenciando Tabela

Enviado: 19 Jun 2018 às 17:00
por MarcioB
Boa tarde

Tenho uma tabela e gostaria de colocar no VBA uma simples soma em uma das colunas.

Quando eu uso a seguinte linha....

tbProjetos.ListColumns("NumAcoes").DataBodyRange.Value = tbProjetos.ListColumns("ID").DataBodyRange.Value

Cada valor de linha na coluna "ID" é transferido para coluna "NumAcoes". Até aí ótimo.....
O problema acontece quando eu uso uma soma ou uma função por mais simples que ela seja, exemplo....

tbProjetos.ListColumns("NumAcoes").DataBodyRange.Value = tbProjetos.ListColumns("ID").DataBodyRange.Value + 100

O Excel responde que são "tipos incompatíveis".
Daí minha dúvida, se na primeira função ele retornou os números que eu queria, porque na segunda função ele não conseguiu somar esses números?

Re: Referenciando Tabela

Enviado: 20 Jun 2018 às 06:26
por gfranco
MarcioB escreveu: Daí minha dúvida, se na primeira função ele retornou os números que eu queria, porque na segunda função ele não conseguiu somar esses números?
Bom dia.
O comportamento da sua primeira rotina funciona muito semelhante à um copy/paste não permitindo iteração entre os elementos.
Segue um exemplo de como chegar ao resultado pretendido.