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

Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, extrai para determinada região (intervalo de células) os números das linhas e colunas, para onde os dados são extraidos, ou seja (5 linhas e 9 colunas)


Sub Celulas_Exemplo()
For i = 1 To 5
For j = 1 To 11
Cells(i, j) = "Linha " & i & " Coluna " & j
Next j
Next i
' Range("A1:k10").Select
' Selection.Columns.AutoFit
End Sub

Sub Limpar()
Range("A1:K5").ClearContents
Range("B1") = "Inserir números das colunas e linhas - <<SaberExcel - site das macros>>"
End Sub

Sub ver_código()
SendKeys ("%{F11}")
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Baixe o exemplo de planilha contendo as macros acima
vba linhas macro insere determinado range letra e num linha (29.46 KB 2010-09-19 21:16:50)

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula ativa selecionada, retornando uma mensagem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vColuna As String
Dim vIncrementa As Integer
a = ActiveCell.Column
If ActiveCell.Value <> "" Then

Do
vIncrementa = a Mod 26
If vIncrementa = 0 Then vIncrementa = 26
vColuna = Chr(64 + vIncrementa) & vColuna
a = a \ 26

Loop While a > 0

MsgBox ("Você selecionou!" & Chr(13) & "Coluna ......: [" & vColuna & " ]" & _
Chr(13) & "Linha..........: [ " & ActiveCell.Row & " ]" & Chr(13) & _
"Valor..........: [ " & ActiveCell.Value) & " ]" & _
Chr(13) & "Endereço....: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel - site das macros"
End If

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA





Publicidade
Compre com segurança, garantia e bons preços nas lojas SubMarino

Saberexcel - O site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletam linhas baseada em critérios, neste caso
deletará linhas baseadas nas células em branco que existirem nas colunas: (F), (G), (H)

'simplificando códigos de programação ms excel vba.
Sub Deletar_Linhas_Celulas_Branco()
MsgBox ("Linhas onde houver células em branco na coluna(F:G:H) serão DELETADAS!!!!")
vUltimaLinha = Cells.SpecialCells(xlLastCell).Row

'montando o loop para verificar nas células vazias nas colunas específicas
'veja que a simetria e orgranização do código facilita o entendimento, obdeçam esse critério.
'
For i = vUltimaLinha To 1 Step -1
'-----------'
'Observem que não exisite o End If (fechando a estrutura if) - porque há uma condição verdadeira na frente do Then
If Cells(i, "F").Value = "" Then Rows(i).Delete
If Cells(i, "G").Value = "" Then Rows(i).Delete
If Cells(i, "H").Value = "" Then Rows(i).Delete
'-----------'
Next i

End Sub

Simplifiquei a estrutura da macro copiar e colar.
Os códigos copiam de uma planilha e cola em outra planilha na célula (A1)
você poderá nomear um range dinâmico para isso, cada vez que for inserido dados,
o range dinâmico expande com tamanho dos dados digitados.
Esse tipo de programação estarei explanando nos - Modulos Como Fazer - Saberexcel


'veja que uso o nome de código da folha de planilha(Saber1,Saber2), porque?,
'- Se o usuário mudar o nome da folha de planilha, não gera erro... certo?

Sub copiar_colar_teste()
Saber2.[A1:Q25].Copy Saber1.[A1]
End Sub

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

Esta macro do Aplicativo Microsoft Excel VBA, Insere um marcador na linha do cursor realçando linha e coluna ativa um marcador para realçar a linha e a coluna ativa inserindo uma linha colorida na linha e coluna ativas, formata seleção no cursor linhas e colunas este evento insere um shape e navega junto com o cursor marcando selecionando as linhas e colunas ativadas pelo cursor retângulo. Observe que usamos o Evento Selection_Change da Folha de código da planilha.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Definição de variáveis ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Testa se os retangulos shapes são existentes.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete

'Ajuste dos shapes retangulos

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
End Sub


Aprenda Microsoft Excel VBA --(Saberexcel)--