Planilha Excel VBA barra suprimir espaço duplo

Planilha Excel VBA Listbox navegar

Planilha Excel VBA barra suprimir espaço duplo

Planilha Excel VBA barra suprimir espaço duplo   Este Macro do aplicativo microsoft excel vba cria uma barra de menu personalizada com itens de menus que tira os espaços duplos em determinada frase em celula e também soma determinado intervalo de células na coluna(A).
retornando o resultado uma linha abaixo após o fim dos dados da coluna(A). usei a instrução for next para percorrer
os dados e acumular o valor em uma variavel (i) de incremento.


Sub sbx_barra_botoes()

Dim barra As CommandBar
Dim botao As CommandBarControl
On Error Resume Next
CommandBars(“sbx-barraUltilitarios”).Delete
Set barra = CommandBars.Add(Name:=”sbx-barraUltilitarios”)
barra.Visible = True

Set botao = CommandBars(“sbx-barraUltilitarios”).Controls.Add(Type:=msoControlButton)
botao.BeginGroup = True
botao.Style = msoButtonCaption
botao.OnAction = “sbx_teste_dados”
botao.Caption = “|Inserir Dados com Espaço Teste”

Set botao = CommandBars(“sbx-barraUltilitarios”).Controls.Add(Type:=msoControlButton)
botao.BeginGroup = True
botao.Style = msoButtonCaption
botao.OnAction = “sbx_deletar_espacos_duplos”
botao.Caption = “|Deletar espaços duplos”

Set botao = CommandBars(“sbx-barraUltilitarios”).Controls.Add(Type:=msoControlButton)
botao.BeginGroup = True
botao.Style = msoButtonCaption
botao.OnAction = “sbx_somar_valores”
botao.Caption = “| Somando valores coluna(B) |”

barra.Width = barra.Width / 4
End Sub

Sub sbx_deletar_espacos_duplos()
If Selection <> [E8] Then
MsgBox (“selecione a celula ‘E8’ para realizar o teste!”), vbInformation, “Escola saberexcel VBA Estudos®”
[E8].Select
Exit Sub
End If
For Each sbx In Selection
If Not sbx.HasFormula Then
sbx.Value = Application.Trim(sbx.Value)
End If
Next sbx
End Sub

Sub sbx_teste_dados()
[E8].Value = “Escola         Saberexcel        VBA        Estudos®                     –              Treinamentos                 com            Macros     ,        Fòrmulas   e       Funções”
End Sub

Sub sbx_somar_valores()
Dim i As Long
Dim tSoma As Double
For i = 4 To Saber1.Cells(Rows.Count, “a”).End(xlUp).Row
tSoma = tSoma + Saber1.Cells(i, “b”).Value
Next i
Saber1.Cells(i + 1, “b”).Value = Format(tSoma, “##,###,##0.00”)
MsgBox (“Soma realizada com sucesso resultado inserido na célula ” & Saber1.Cells(i + 1, “b”).Address), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

Sub sbx_deletar_valor_teste()
[b23].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 Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

PROMOÇÃO ESPECIAL – EXCEL VBA      Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

 Baixe o exemplo de planilha contendo os macros acima:

iconPlanilha Excel VBA barra suprimir espaco duplo

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *