Fóruns
Microsoft Excel - 2...
Formulários
Formulário Perde Re...
 
Notifications
Clear all

Formulário Perde Referência da Planilha

 
Formulários
Post Recente por ccaciano 8 anos atrás
5 Posts
2 Usuários
0 Reactions
1,294 Visualizações
RSS
 ccaciano
(@ccaciano)
Posts: 0
New Member
Topic starter
 

Eu tenho uma Planilha no qual eu criei um Formulário, porém se eu abrir uma outra planilha que contenha as informações que devo preencher no formulário, o formulário fecha sozinho, pois ele perde a referencia da planilha original pois ele procura as Abas na planilha ativa ao invés de puxar os dados da planilha original.

Private Sub TextBox_ITEM_Change()
    
    'INSERIR CODIGO
  intLinha = fiscal.Worksheets("CADASTRO").Range("H3").Row
  fiscal.Worksheets("CADASTRO").Cells(intLinha, 8) = xAlterar.TextBox_ITEM.Value
  
  'PROCV DESCRIÇÃO
     xAlterar.TextBox_DESCRICAO.Value = Range("CADASTRO!I3").Value
    
  'PROCV UN
     xAlterar.TextBox_UN.Value = Range("CADASTRO!J3").Value

End Sub
 
Postado : 07/12/2016 1:20 pm
 DJunqueira
(@djunqueira)
Posts: 0
New Member
 

Vc tem de informar o Workbook = pasta de trabalho, só Worksheet não basta.

 
Postado : 07/12/2016 2:46 pm
 ccaciano
(@ccaciano)
Posts: 0
New Member
Topic starter
 

Mas a minha pasta de trabalho foi renomeada para FISCAL..

Ela está sendo informada no começo.. Pq não esta dando certo?

Como deveria ficar a fórmula?

 
Postado : 07/12/2016 2:54 pm
 DJunqueira
(@djunqueira)
Posts: 0
New Member
 

Procurei por Workbook e não reparei q vc provavelmente tinha atribuído a pasta p/ a variável 'fiscal' e não expôs isso no código q apresentou, falha minha.

 
Postado : 07/12/2016 3:34 pm
 ccaciano
(@ccaciano)
Posts: 0
New Member
Topic starter
 

Procurei por Workbook e não reparei q vc provavelmente tinha atribuído a pasta p/ a variável 'fiscal' e não expôs isso no código q apresentou, falha minha.

DJunqueira, identifiquei que referenciei a Workbook apenas no inicio do código, ja corrigi e deu tudo certo.
Obrigado pela informação, ajudou muito.

Private Sub TextBox_ITEM_Change()
    
    'INSERIR CODIGO
  intLinha = fiscal.Worksheets("CADASTRO").Range("H3").Row
  fiscal.Worksheets("CADASTRO").Cells(intLinha, 8) = xAlterar.TextBox_ITEM.Value
  
  'PROCV DESCRIÇÃO
     xAlterar.TextBox_DESCRICAO.Value =  fiscal.Worksheets.Range("CADASTRO!I3").Value
    
  'PROCV UN
     xAlterar.TextBox_UN.Value =  fiscal.Worksheets.Range("CADASTRO!J3").Value

End Sub
 
Postado : 08/12/2016 5:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico