Descricao: |
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
|