Não Visualizar Base de dados

2024 - VBA & Macros

Post Recente por olakunde 10 anos atrás

5 Posts

3 Usuários

0 Reactions

969 Visualizações

RSS

olakunde

(@olakunde)

Posts: 22

Eminent Member

Topic starter

Bom dia!

Alguém poderia me ajudar nesta dúvida?

Criei um formulário de cadastro(Com duas planilhas sendo uma contendo o botão de cadastro e a outra para armazenar os dados), as informações digitados são salvas na primeira célula vazia da planilha Dados. Minha duvida é, saber se tem alguma forma de não mostrar a pasta que os dados estão sendo armazenados, no momento em que eu clico no botão cadastrar ele mostra a planilha dados e depois retorna para planilha inicial de Cadastro. Tem como permanecer sempre na planilha de cadastro, de onde eu chamo o formulário e não mostra a dos dados, mesmo que seja rápido?

Postado : 04/05/2015 8:13 am

Madi Land

(@madi-land)

Posts: 33

Eminent Member

Olá, você poderia anexar o arquivo para que pudesse dar uma olhada?!

Postado : 04/05/2015 8:24 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

O ideal seria ter postado a rotina que está utilizando, mas para congelamento de tela use a instrução abaixo :

No inicio da rotina adicione a linha :
Application.ScreenUpdating = False

e no final, temos de reverter adicionando a linha :
Application.ScreenUpdating = True

[]s

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

Postado : 04/05/2015 8:26 am

olakunde

(@olakunde)

Posts: 22

Eminent Member

Topic starter

Mauro, Obrigado pelo retorno, estou utilizando o código abaixo:

Private Sub cmdCadSist_Click()

ThisWorkbook.Worksheets("BaseSist").Activate
'Selecionar a célula B2
Range("B2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtNomeSist.Value
ActiveCell.Offset(0, 1).Value = txtDescriSist.Value
ActiveCell.Offset(0, 2).Value = txtOwner.Value
ActiveCell.Offset(0, 3).Value = cboTipoSist.Value
ActiveCell.Offset(0, 4).Value = cboAcessoSist.Value
ActiveCell.Offset(0, 5).Value = txtanalista.Value
ActiveCell.Offset(0, 6).Value = cboBDSist.Value
ActiveCell.Offset(0, 7).Value = txtInstancia.Value
ActiveCell.Offset(0, 8).Value = cboServ1.Value
ActiveCell.Offset(0, 9).Value = cboServ2.Value
ActiveCell.Offset(0, 10).Value = cboServ3.Value
ActiveCell.Offset(0, 11).Value = txtImpacto.Value
ActiveCell.Offset(0, 12).Value = txtImpactado.Value
ActiveCell.Offset(0, 13).Value = cboCritSist.Value
ActiveCell.Offset(0, 14).Value = cboGrupoSist.Value
ActiveCell.Offset(0, 15).Value = cboNotificar.Value

txtNomeSist.Value = Empty
txtDescriSist.Value = Empty
txtOwner.Value = Empty
cboTipoSist.Value = Empty
cboAcessoSist.Value = Empty
txtanalista.Value = Empty
cboBDSist.Value = Empty
txtInstancia.Value = Empty
cboServ1.Value = Empty
cboServ2.Value = Empty
cboServ3.Value = Empty
txtImpacto.Value = Empty
txtImpactado.Value = Empty
cboCritSist.Value = Empty
cboGrupoSist.Value = Empty
cboNotificar.Value = Empty

txtNomeSist.SetFocus

End Sub

Postado : 04/05/2015 8:34 am