Saberexcel VBA Estudos®
Esse procedimento do Aplicativo Microsoft Excel VBA agrupa e desagrupa colunas na folha de planilha principal de um livro.
no exemplo também muda o muda o nome(caption) do botão ligado procedimento.


Private Sub Botao1_Click()
If Botao1.Caption = "Desagrupar Colunas" Then
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=3
Botao1.Caption = "Agrupar as Colunas"
Else
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Botao1.Caption = "Desagrupar Colunas"
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere linhas vazias abaixo veriicando valores da célula ativa,
observe que o Loop entra em determinada célula, memoriza o valor, insere o valor em linhas vazias, por exemplo se o valor da célula
ativa for 5 o macro inserirá cinco linhas e assim por diante. Baixe o exemplo de planilha no final da página.


'R.: Silvia, é possível sim, voce que o macro insira um determinado número
'de linhas em branco baseada no valor da célula ativa.
'1, insere uma linha abaixo, 2 duas linhas, 3 tres linhas, 7 sete linhas....
'A macro que voce deverá usar é assim veja.

Sub Inserir_numero_linhas_valor_celula_anterior()
Dim I As Double, J As Integer
'[:] na frente do código significa - como se fosse linha debaixo (próxima linha).
If [a].Value = "" Then MsgBox "copie os números para teste botão copiar...", vbInformation, "Saberexcel": Exit Sub

For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
For J = 1 To Range("A" & I)
Rows(I + 1).Insert shift:=xlDown
Next J
Next I
[C4].Value = "Observe que foi inserido o número de Linhas vazias correspondente ao valor que está na célula"
End Sub

Sub copiar_teste()
limpar_teste
[b].Copy [a]
[C4].Value = ""
End Sub

Sub limpar_teste()
[g,C4].Clear
End Sub




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

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA, seleciona linhas e colunas pre-determinadas pelas variáveis em um macro. Também copiará os dados selecionados para Plan2, e G29, --- apenas para lhes para aprendermos como fazer uma forma simples - copiar e colar.

Sub selecionar_celulas()
'seleciona 6 seis linhas
'seleciona colunas até a 15ª Coluna + 4
'começa a selecionar a partir da coluna( 4+ 2) = (4 + i)
'variável (i) determinará a posição de linhas e colunas (+)
k = 1
i = 2

With Sheets("Selecionando_dados_variaveis")
.Range(.Cells(6, 4 + i), .Cells(k, 15 + i)).Select
End With

End Sub

Sub copiar_se_selecao_for_maior_uma_celula()
Dim Resposta As String

If Selection.Count = 1 Then 'caso contiver somente uma célula selecionada, poderia ser outra quantidade.
MsgBox ("nao há seleção para ser copiada"), vbInformation, "Saberexcel - execute o macro"
selecionar_celulas
Resposta = MsgBox("Deseja copiar a seleção para planilha [Plan2 e G17]", vbYesNo + vbInformation, "Saberexcel")

If Resposta = 6 Then ' 6 é igual a vbyes
Selection.Copy Saber2.[A1]
Selection.Copy [G29]
MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
Else
[C1].Select
End If

Else
'copia os dados se caso já o macro 'Selecionar_Celulas' for acionado primeiramente na folha de planilha.
Selection.Copy Saber2.[A1]
Selection.Copy [G29] 'será copiado também os dados para mesma folha de planilha para célula G29
MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
End If
End Sub

Sub limpar_teste()
Saber2.Cells.ClearContents
'esta linha abaixo vai limpar da célula G29 abaixo,
'Esses estudos de deslocar linhas e colunhas estão em nosso Modulo COMO FAZER - Programação MS Excel (Offset-Desloc)
Range("G29", [G29].End(xlDown).End(xlToRight)).ClearContents 'limpa dados G29 em diante, poderia ser select ou outra programação qualquer
MsgBox ("Os dados da folha de planilha 'Plan2' e G9 em diante foram deletada"), vbInformation, "Saberexcel - site das Macros"
End Sub

Sub ir_plan2()
Saber2.Select 'observe que sempre seleciono a folha de planiha pelo nome da folha de código,
'se o usuário mudar o nome da folha de planilha não ocorrerá erro.
End Sub

Sub voltar()
Saber1.Select
End Sub

Esse macro(código) é para auxiliar no teste, e também com finalidade didática, para mostrar o shapes(autoforma) contendo macro, ou se desejar
poderá mostrar diretamente a o Módulo VBE(Visual Basic Editor)
Sub visualizar_macros_vbe()
Dim Resposta As String

Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="selecionar_celulas"
Else
Saber1.Shapes("sb").Visible = True
End If

End Sub

esse macro é para ocultar o shapes(autoforma)
Sub oc()
Saber1.Shapes("sb").Visible = False
End Sub



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




Publicidade
Compre com segurança, garantia e ótimos preços

Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

Esse Planilha faz parte das planilhas treinamento:
LOCALIZAR, IDENTIFICAR, DESLOCAR DADOS - PLANILHAS CELULAS LINHAS E COLUNAS

o objetivo desse exemplo é localizar e identificar a primeira e ultima linha da coluna(G) identificar
em seguida, selecionar a mesma área de linha na coluna[c]; e colorí-la em amarelo. Observe que ao executar o Macro, o código "Clearformats' retira a formatação das células, para facilitar a identificação do resultado teste com o macro. a medida que for expandindo a digitação na coluna(G), também irá afetar a coluna(C). (----->) - se colore o intervalo de células em amarelo, isso quer dizer, que voce pode, copiar, negritar, sublinhar, recortar, deletar, etc ..... espero que o exemplo possa lhe ser útil. Fique com Deus.

(*) - não deixe de ver nosso trabalho:
120 - Planilhas de Loops (Excelente planilhas exemplos com todas instruções loops)
PLANILHAS - trabalhando com deslocamento de dados em Células, linhas e colunas.

' - - - - - - - - - - - - - - - - - - - - - - - - - -
Const s = vbInformation
Const b = "Escola Saberexcel VBA Estudos®"
' - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub selecionar_numero_linhas_correspondentes_colC()
Dim x As Range
[a].ClearFormats

UL = Range("G650000").End(xlUp).Row '.Value 'definir a UL(UltimaLinha)
PL = Range("G2").End(xlUp).Row '.Value 'definir a PL(Primeira Linha)

MsgBox "UL(Ultima Linha): [ " & UL & " ] - PL(Primeira Linha) [ " & PL & " ]", s, b

'Range("c" & UL & ":" & "c" & PL).Select 'seleciona também

Set x = Range("c" & UL & ":" & "c" & PL) '.Select
x.Select
x.Interior.ColorIndex = 36
[h1].Select

End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

If Cells(vLin, "e") = Cells(2, "f") Then '//====' fazer a comparação coluna(e) e celula(f2)
Cells(vLin, "e").Offset(0, 1).Resize(1, 12).Copy [h2] '//====' selecionar area para copiar
Cells(vLin, "e").Offset(0, -1).Value = "u" '// para inserir o sinal na coluna(d)
Cells(vLin, "e").Offset(0, -1).Font.Name = "Wingdings 3" '//===='inserir o sinal na coluna(D)
z = Cells(vLin, "e")
Exit For '//======='ao encontar e copiar para celula(h2) saí do loop
End If
Next vLin

MsgBox "Linha [ " & vLin & " ] Letra [ " & UCase(z) & " ] filtrados com sucesso!" & vbCrLf & _
"- - - - - - - - - - - - - - - - - - - - - - -" & vbCrLf & _
"Escola Saberexcel VBA Estudos® " & vbCrLf & _
"Treinamentos com Macros, Fórmulase Funções ", vbInformation, "Escola Saberexcel VBA Estudos®"
[f1].Select
End Sub

'//======= colorir sétimo caracter da colun(f) em vermelho
Sub sbx_colorir_setimo_caracter_vermelho()
Dim i As Long
For Col = 6 To 19
For i = 1 To Cells(Rows.Count, "f").End(xlUp).Row
Cells(i, Col).Characters(Start:=7, Length:=1).Font.ColorIndex = 3
Next i
Next Col
Saber1.Shapes("ver").Visible = False
Saber1.Shapes("pre").Visible = True
End Sub

'//======= colorir sétimo caracter da colun(f) em vermelho
Sub sbx_colorir_setimo_caracter_preto()
Dim i As Long
For Col = 6 To 19
For i = 1 To Cells(Rows.Count, "f").End(xlUp).Row
Cells(i, Col).Characters(Start:=7, Length:=1).Font.ColorIndex = 1
Next i
Next Col
Saber1.Shapes("ver").Visible = True
Saber1.Shapes("pre").Visible = False
End Sub

Sub sbx_selecionar_f2()
[f2].Select
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





 <<< Registre-se em nosso Site >>>