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

Esses procedimento e macros do Aplicativo Microsoft Excel VBA, com auxlio do Evento SelectionChange, colore as linha(s) e Coluna(s) da célula ativa,
também inserí com finaldidade didática um loop contador que insere as cores e numeros correpondentes na planilha auxiliar.
Espero que o exemplo lhes sejam útil. Fiquem com Deus. Expedito Marcondes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static vCelulaAtiva As Range

If Not vCelulaAtiva Is Nothing Then
vCelulaAtiva.EntireRow.Interior.ColorIndex = xlColorIndexNone
vCelulaAtiva.EntireColumn.Interior.ColorIndex = xlColorIndexNone
Target.Value = ""
End If
Target.EntireRow.Interior.ColorIndex = 36
Target.EntireRow.Font.ColorIndex = 10
Target.EntireColumn.Interior.ColorIndex = 4
Target.Value = "Saberexcel_VBA_Treinamentos®"

Set vCelulaAtiva = Target
End Sub

Sub cores_numeros_vb()
[A2].Select
For i = 1 To 56
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next i
[d1].Select
End Sub

Sub limpar_celulas_teste()
Saber2.[A2:B100].Clear
Saber1.Cells.ClearContents
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

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

Saberexcel o site de quem precisa aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere linhas em branco alternadas às linhas existentes em uma determinada planilha, e atendendo ao pedido da Silvia, Campinas-SP, que pede uma forma bem simples de copiar dados de determinada folha planilha para outra folha de planilha. Silvia, observe que no macro Copiar_para_teste(), abaixo eu nomeei as células a serem copiadas da folha de planilha auxiliar como 'dados', e também a célula(A1) da folha de planilha que receberá os dados como 'sba', observe

Sub Inserir_cinco_linhas_branco()

Dim vLinhasBranco As Long, rgLocaliza As Range, rgLinha As Range
Dim arrInserirLinhas() As String, vLinhaArray As Long
vLinhasBranco = 5

With Saber1 'determinando a planilha
Set rgLocaliza = .Range("A1:A14") 'select range to test
ReDim arrInserirLinhas(1 To 1)
For Each rgLinha In rgLocaliza.Rows
If rgLinha.Row > 1 Then 'skip row 1
If rgLinha.Cells(1, 1) <> rgLinha.Offset(-1, 0) Then
arrInserirLinhas(UBound(arrInserirLinhas)) = _
rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco) & _
":" & (rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco)) + vLinhasBranco - 1
vLinhaArray = UBound(arrInserirLinhas) + 1
ReDim Preserve arrInserirLinhas(1 To vLinhaArray)
End If
End If
Next rgLinha 'inserir Linhas

For vLinhaArray = LBound(arrInserirLinhas) To UBound(arrInserirLinhas)
If arrInserirLinhas(vLinhaArray) <> "" Then
.Rows(arrInserirLinhas(vLinhaArray)).Insert Shift:=xlDown
End If
Next vLinhaArray

End With
End Sub

'Silvia aqui esta a macro auxiliar para ajudar na realização do teste, como expliquei acima, tentei simplificar ao máximo a macro copiar e colar,
'atendendo seu pedido. Espero que o exemplo os ajude, Fique com Deus, Boa Sorte. Expedito Marcondes.
Sub copiar_teste()
[dados].Copy [sba]
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

Saberexcel - site dos que precisam aprender Microsoft Excel VBA(Visual Basic Application)

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), tem por finalidade inserir o total de lançamentos em determinada área de folha de planilha, observe que o exemplo poderá ajudá-lo muito na conclusão de um relatório.
Usando a WorksheetFunction ContA (que corresponde a Funçao do Excel Cont.Valores()), o macros com variáveis que verificam o número de linhas e colunas usadas, vão inserir o total dos lançamentos efetuados na folha folha de planilha.
Não deixe de ver as 340 Planilhas Exemplos de worksheetFunctions, desenvolví uma para cada Função do Excel, e onde foi possível inserir a worksheetFunction para ilustrar o exemplo foi feito.
Sobre as 340 Planilhas worksheetfunction funções de planilhas retornam valores vba


Sub Contando_lancamentos()
Dim vLinhas
vLinhas = Range("A65000").End(xlUp).Row + 2 'observe que será lançado após tres linhas abaixo
Range("A" & vLinhas) = "Total Lançamentos efetuados...:'"
Range("G" & vLinhas) = Application.WorksheetFunction.CountA(Range("A1:A" & vLinhas)) - 1
Range("H" & vLinhas) = "Lançamentos'"
End Sub

Caso você queira inserir a fórmula conta.valores na célula J28,
veja que usei o gravador de macro para capturar o código da fórmula e inserí aqui,
Sobre Gravador de macros é o objeto de estudo de nosso Caderno_1, do Curso Completo Microsoft Excel VBA
Domime bem esse assunto do Gravador de Macros. ajuda muito aos iniciantes. Fiquem com Deus - Expedito Marcondes

Sub Inserindo_formula_contar()
[J28].FormulaR1C1 = "=COUNTA(R[-26]C[-9]:R[22]C[-9])"
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

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) , copia as medidas das colunas determinadas na folha de planilha(Plan2)
para a planilha planilha(Plan1).


Sub copiar_medida_colunas_para_outra_plan()
Dim X As Byte
Dim Y As Long
Dim Z As Integer

Application.ScreenUpdating = 0

For X = 1 To 12 'planilhas
For Y = 1 To 20 'para 20 linhas
For Z = 1 To 20 'para 20 colunas

Plan1.Range("A" & Y).RowHeight = Plan2.Range("A" & Y).RowHeight
Plan1.Columns(Z).ColumnWidth = Plan2.Columns(Z).ColumnWidth

Next Z
Next Y
Next X

End Sub



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