Mauro, achei uma solução para o meu caso, mas não será com o uso de Arrays. Nem sempre é possível se coletar todos os dados de um servidor e analisá-los no mesmo dia, ou seja, meu programa precisa salvar os dados já compilados para recomeçar o trabalho no dia seguinte, por exemplo. Assim, vou salvar os dados na planilha à medida que o usuário for gravando o dados já coletados. Criei para o botão "Incluir", a seguinte rotina:
Dim n As Integer
n = 1
Worksheets("Plan1").Select
Range("A1").Activate
Do Until Cells(n, 1) = ""
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
Cells(n, 1).Value = CInt(cobClasse.Value)
Range("B1").Activate
n = 1
Do Until Cells(n, 2) = ""
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
Cells(n, 2).Value = Format(txtInicio.Text, "dd/mm/yyyy")
Range("C1").Activate
n = 1
Do Until Cells(n, 3) = ""
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
Cells(n, 3).Value = Format(txtFim.Text, "dd/mm/yyyy")
Com esse código vou inserindo os números de Classe do servidor, a data de início na classe e a data de fim.
O código está funcionando beleza. Quando puder, se achar necessário, gostaria que você analisasse e fizesse suas críticas.
Inté!
Luiz Roberto
Beto, baixei os exemplos, vou dar uma estudada com mais calma, é muita informação e detalhes a serem analizados, depois posto se o que entendi está correto, só não posso prometer de imediato, pois final e inicio de mes para mim é muito corrido.
abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/06/2011 2:33 pm