Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar linha de ac...
 
Notifications
Clear all

Ocultar linha de acordo com o código na textbox

 
2024 - VBA & Macros
Post Recente por wagnermedani 11 anos atrás
4 Posts
2 Usuários
0 Reactions
1,144 Visualizações
RSS
 wagnermedani
(@wagnermedani)
Posts: 39
Trusted Member
Topic starter
 

Bom dia, galera!

Apesar de encontrar no fórum a respeito sobre o assunto, mas da forma como espero.

Tenho alguns formulários de cadastro, e no formulário principal, utilizo para cadastrar em várias planilhas, atualmente quando quero eliminar algum cadastro, utilizo excluir a linha do código, mas o que eu quero, é que quando eu selecionar no formulário principal ao invés de excluir como faço, ela oculte, e que tenha uma opção de reexibir novamente. Utilizo sempre por código para tratar os cadastros. o nome da textbox é txtCodigo.

Att

 
Postado : 26/06/2013 6:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como não postou a rotina e as instruções que está utilizando, suponho que para excluir a linha com o codigo do cadastro tenha uma intrução com Row.Delete ou EntireRow.Delete.

Se tiver ou então procure ver qual faz esta operação para deletar a linha e troque o Delete por :
.Hidden = False
.Hidden = True
ou
EntireRow.Hidden = False

[]s

 
Postado : 26/06/2013 8:59 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente adaptar...

Option Explicit

Private Sub txtSuaCaixaTexto_Change()
Sheets("Plan1").Visible = True
Sheets("Plan1").Select
If (txtSuaCaixaTexto.Value) = 0 Then
Range(Intervalo).EntireRow.Hidden = True
Else
Range(Intervalo).EntireRow.Hidden = False
End If
End Sub
 
Postado : 26/06/2013 9:38 am
 wagnermedani
(@wagnermedani)
Posts: 39
Trusted Member
Topic starter
 

Mauro Coutinho,

A linha do cadastro fica oculta como o desejado, mas no listbox ela aparece, e como busco os dados para o formulário através da listbox, o cadastro fica como ativo, preenchendo os dados.
Tem como ela não aparecer na listbox? No RowSource fica assim Plan1!A2:I100.

 
Postado : 26/06/2013 12:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico