Cadastro de Jovens

Boa tarde,

Precisava da vossa ajuda.
Tenho poucos conhecimentos de VBA mas consegui construir uma base de dados /excell/vba) para cadastrar jovens numa instituição.
Nesse cadastro tem varios dados e um deles é a data de admisssaõ. O que eu nao consigo fazer é que sempre que iniciar o userform seja calculado os dias de instituiçao do jovem. isto é a diferença enter a data de abertura do form e da data de admissão. Tentei fazer assim:
Private Sub Userform_Initialize()
Sheets("INSCJOVENS").Activate
Dim LINHA
Dim PLANILHA As Worksheet
Dim data As Date
Set PLANILHA = Worksheets("INSCJOVENS")
With PLANILHA
LINHA = .UsedRange.Rows.Count
.Cells(LINHA, 20).Value = Now
.Cells(LINHA, 21).FormulaR1C1 = "=DAYS360(RC[-4],RC[-1])"
End With

Porém sempre que o userform inicia ele faz isto apenas para a ultima linha usada e quero que faça para todas as linhas usadas na coluna 20 (now) e 21 (dias de instituiçao)


Sera que alguem me pode ajudar???

Bom dia!!

Tente

Código:

Dim my_range As Range '<--Não se esqueça dessa variável

With Worksheets("PLANILHA")

Set my_range = .Range("T2:T" & .Range("A65536").End(xlUp).Row)
Set my_range2 = .Range("U2:U" & .Range("A65536").End(xlUp).Row)
my_range.Value = Now
my_range2.Formula = "=DAYS360(RC[-4],RC[-1])"

End With

Nao esta a funcionar. Dá me o erro

Run Time error (9)
Subscript out of range

Ja consegui. Bastou alterar de U2 e t2 para u1 e t1....Muito obrigado pela dica!!!!

Boa tarde!!

Que bom que deu certo.

Att