Edson, eu estava com um problema e consegui resolver, mas ficou a curiosidade.
O tal objeto Range seria uma coluna inteira, por exemplo, a coluna "A". Eu iria acessar os dados através do índice dos elementos dessa coluna. Por exemplo, um valor registrado em "A2", seria referenciado pelo índice 2 do tal objeto Range, considerando Option Base = 1.
Na verdade eu queria criar uma forma de preencher dados de forma sucessiva nas linhas de uma coluna (A1, A2, A3, A4....An), onde uma rotina verificaria a próxima linha em branco de uma dada coluna para incluir dados. Por exemplo, se eu tivesse valores financeiros já gravados em A1, A2 e A3, a próxima linha em branco seria A4. Minha rotina preencheria, então, o próximo valor em A4 e depois em A5 e assim sucessivamente. Fiquei na dúvida no início em como fazer isso, pois não sou um expert em VBA Excel, mas apenas um esforçado autodidata.
Desenvolvi a seguinte rotina e gostaria de saber se você tem alguma alternativa melhor:
Worksheets("Plan1").Select
Range("A1").Activate
Do Until Cells(n, 1) = ""
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
Cells(n, 1).Value = CCur(txtValor.text)
Luiz Roberto
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/06/2011 6:16 am