Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Cadastro de Jovens

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Cadastro de Jovens   Qua Fev 27, 2013 4:42 pm

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???
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro de Jovens   Qua Fev 27, 2013 6:11 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Cadastro de Jovens   Qua Fev 27, 2013 7:53 pm

Nao esta a funcionar. Dá me o erro

Run Time error (9)
Subscript out of range Crying or Very sad
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Cadastro de Jovens   Qua Fev 27, 2013 8:08 pm

Ja consegui. Bastou alterar de U2 e t2 para u1 e t1....Muito obrigado pela dica!!!!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro de Jovens   Qua Fev 27, 2013 9:37 pm

Boa tarde!!

Que bom que deu certo. Laughing

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: RESOLVIDO   Qua Fev 27, 2013 11:01 pm

Cool
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Cadastro de Jovens   Hoje à(s) 5:43 pm

Voltar ao Topo Ir em baixo
 
Cadastro de Jovens
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Sistema de cadastro pra jogo multiplayer online?
» Modificar local de cadastro e enviar email a todos membros
» [Resolvido] Como desativar a confirmação do cadastro?
» Cadastro no fórum
» Erro no cadastro de usuário

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: