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.