Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilhas vba linhas oculta linhas baseado criterio inputbox

Excel planilhas vba linhas oculta linhas baseado criterio inputbox

E-mail Imprimir PDF

Saberexcel - site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application) com auxilio de uma inputbox, ocultam linhas em determinada folha de planilha,
a primeira macro voce poder digitar os números separados por vírgulas na inputbox, a segunda macro que também contém uma inputbox com argumento type=8, que permite selecionar as linhas na região que desejar ocultar determinadas linhas na folha de planilha.

Prezados senhores,
Será que seria possível uma macro que oculta linhas pre-definidas,
explico: preciso de uma macro que ocultam linhas pre-definidas, através de uma inputbox,ou mesmo a própria célula. É possível??, se puder me ajudar agradeço.
Rubens - fficop

R - Sim é possível veja, vou te enviar dois exemplos você poderá ver qual lhe
servirá melhor.


Este exemplo de macro voce digita na entrada de dados(Inputbox) o número das linhas
que precisa que ocultem, números separados por vírgulas,
Ex. 5,6,7,8,9,29,34,85, etc..
Espero que lhe seja útil, fique com Deus, Boa sorte.
Expedito Marcondes

Sub Ocultar_linhas_Inputbox()
Dim sB$, Ex, i%
Saber2.Select
linhas_ver
sB = InputBox("Entre com as linhas que deseja ocultar, separe-as por vírgula")
   If sB = "" Then Exit Sub
      Ex = Split(sB, ",")
     
      For i = 0 To UBound(Ex)
        On Error Resume Next 'tratando um possível erro!
        Rows(Ex(i)).Hidden = True
        On Error GoTo 0
      Next
     
End Sub

'com essa macro usando uma entrada de dados inputbox, voce poderá ocultar linhas
'selecionando diretamente nas células. Espero que lhes seja útil.
Sub Ocultar_linhas_inputbox_I()
 Dim c As Variant
 Saber2.Select
 linhas_ver
 On Error Resume Next
 Set c = Application.InputBox("Selecione o intervalo de células - para ocultar linhas !!!", "Saberexcel", , Type:=8)
   If Err.Number = 0 Then c.EntireRow.Hidden = True
   On Error GoTo 0
End Sub

Sub linhas_ver()
  Cells.RowHeight = 14.25
  Range("A1").Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) , sozinho, praticando com os produtos didáticos SaberExcel




  Baixe o exemplo de planilha contendo as macros acima.
vba linhas oculta linhas baseado criterio inputbox (26 KB 2011-02-09 19:08:04)

Última atualização em Sáb, 13 de Agosto de 2011 19:20  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje860
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30624
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44353
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467182
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA