Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
AJUDA PARA CRIAR AÇ...
 
Notifications
Clear all

AJUDA PARA CRIAR AÇÕES E VÍNCULOS EM FORMULÁRIO

 
2024 - VBA & Macros
Post Recente por Alcir 10 anos atrás
4 Posts
2 Usuários
0 Reactions
969 Visualizações
RSS
Alcir
 Alcir
(@alcir)
Posts: 20
Eminent Member
Topic starter
 

Boa Tarde pessoal, volto aqui para pedir a ajuda de VCs em um projeto VBA que fiz alterações para atender as necessidades do serviço de saúde ao qual faço parte...

Tenho Três questões me desafiando...
1 _ Quero que este aplicativo abra na tela do computador somente o Formulário de modo que a pasta e/ou planilha Excel não apareça no fundo.;
2 _ Quero que os campos Registro e o campo CNS não aceitem a inserção de caracteres repetidos de forma que cada paciente tenha seu registro e CNS individualizado;
3 _ Quero que a pasta imagens fique vinculada ao aplicativo de forma que sempre busque essas informações na respectiva pasta.

Consegui fazer diversas alterações, mas por ser iniciante nesta arte estou tendo certa dificuldade em criar estes vinculos e ações que citei acima...

Agradeço muito se puderem completar essa tarefa para mim...

Envio em anexo o Form para quem puder contribuir

 
Postado : 22/02/2015 12:56 pm
Alcir
 Alcir
(@alcir)
Posts: 20
Eminent Member
Topic starter
 

Pessoal, a primeira questão eu já resolvi aqui, agora quando abro o projeto o formulário apenas é que aparece na tela e a planilha fica oculta, mas aproveitando podem me dar uma luz para fazer o formulário ocupar toda a tela em FullScreen ...

Desde já lhes agradeço !!!

 
Postado : 22/02/2015 3:23 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Assim, como a primeira dúvida, creio que as outras questões, poderá ser resolvidas, usando a nossa base de dados.

Quanto ao fullscreen
tente..
......Não testado!

Private Sub UserForm_Initialize() 
     
    Dim lngWinState As XlWindowState 
     
    With Application 
        .ScreenUpdating = False 
        lngWinState = .WindowState 
        .WindowState = xlMaximized 
        Me.Move 0, 0, .Width, .Height 
        .WindowState = lngWinState 
        .ScreenUpdating = True 
    End With 
     
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/02/2015 3:33 pm
Alcir
 Alcir
(@alcir)
Posts: 20
Eminent Member
Topic starter
 

Obrigado Alexandrevba pela dica,
Realmente o formulário abriu em tela cheia, mas os campos do formulário
não se ajustaram ao tamanho da tela, ficaram no tamanho original no canto
superior esquerdo do monitor...
O desafio agora é centralizar os campos do Formulário na tela ...

Adoro desafios e com VCs ajudando a vida VBA fica bem mais fácil...

Desde já vai meus agradecimentos !

 
Postado : 22/02/2015 4:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico