Notifications
Clear all

Userform não funciona quando navego por pastas de trabalho

7 Posts
2 Usuários
0 Reactions
904 Visualizações
(@lopesdm)
Posts: 0
New Member
Topic starter
 

Boa noite,

Estou com um problema quando clico em um botão de comando de um UserForm... Já com o formulário aberto, eu acabo tendo que navegar por outras pastas de trabalho para consultar alguns dados a serem lançados com o userform em questão, só que sempre que eu consulto os dados em outra pasta de trabalho, quando volto para a pasta em que o userform precisa registrar os dados, ele não funciona corretamente, colocando os dados que seriam para serem inseridos em uma determinada sheet em outra completamente diferente.

Alguém saberia como resolver?

 
Postado : 08/04/2018 5:08 pm
(@xlarruda)
Posts: 0
New Member
 

Boa noite. Isso provavelmente está acontecendo por um erro ao referenciar a planilha.

mas para resolver isso precisaria ver seu arquivo, ou pelo menos o código. É possível postar aqui?

 
Postado : 08/04/2018 5:12 pm
(@lopesdm)
Posts: 0
New Member
Topic starter
 

Boa noite. Isso provavelmente está acontecendo por um erro ao referenciar a planilha.

mas para resolver isso precisaria ver seu arquivo, ou pelo menos o código. É possível postar aqui?

O código do botão de comando é esse abaixo... o problema é que quando navego entre pastas de trabalho, ao invés de salvar os dados na sheet "Vvda", salva em outra sheet, que no caso é a que exibe o UserForm.

Private Sub cmd_Cadastrar_Vven_Click()

Application.ScreenUpdating = False

If txt_DataRegistro_Vven = "" Then
MsgBox ("Informe a data de registro")
Exit Sub
End If
If txt_ValorTotal_Vven = "" Then
MsgBox ("Informe o valor total")
Exit Sub
End If
If txt_Cliente_Vven = "" Then
MsgBox ("Informe o nome do cliente")
Exit Sub
End If

Dim DataRegistroVven As Date
DataRegistroVven = txt_DataRegistro_Vven

Sheets("Vvda").Select
Cells(8, 3) = DataRegistroVven
Cells(8, 5) = CDbl(Me.txt_ValorTotal_Vven)
Cells(10, 3) = txt_Cliente_Vven

 
Postado : 08/04/2018 5:19 pm
(@xlarruda)
Posts: 0
New Member
 

Tenta mudar esse final para:

Sheets("Vvda").Select
Sheets("Vvda").Cells(8, 3) = DataRegistroVven
Sheets("Vvda").Cells(8, 5) = CDbl(Me.txt_ValorTotal_Vven)
Sheets("Vvda").Cells(10, 3) = txt_Cliente_Vven
 
Postado : 08/04/2018 5:27 pm
(@lopesdm)
Posts: 0
New Member
Topic starter
 

Tenta mudar esse final para:

Sheets("Vvda").Select
Sheets("Vvda").Cells(8, 3) = DataRegistroVven
Sheets("Vvda").Cells(8, 5) = CDbl(Me.txt_ValorTotal_Vven)
Sheets("Vvda").Cells(10, 3) = txt_Cliente_Vven

Dá erro de execução quando chega em "Sheets("Vvda").Select"

So acontece isso quando alterno entre pastas de trabalho com alt + tab

 
Postado : 08/04/2018 5:36 pm
(@lopesdm)
Posts: 0
New Member
Topic starter
 

Acho que consegui resolver, farei alguns testes

Acrescentei
Workbooks("NOME_DA_PASTA_DE_TRABALHO").Activate

 
Postado : 08/04/2018 5:44 pm
(@xlarruda)
Posts: 0
New Member
 

O bom seria ter acesso à sua planilha para realizar alguns testes tbm...
Qualquer coisa estamos aí.

 
Postado : 08/04/2018 5:49 pm