Este fórum está sendo desativado

[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?

[gfranco]

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.