Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe palavras disposta em linha(horizontal) separada por vírgula, ponto vírgula ou outro caracter, decompõe em determinada Coluna(Vertical). Atente para o caracter separador e modifique no Macro.
Espero que o exemplo possam lhe ser útil. Fiquem com Deus. Bons Estudos.


Sub Decompoe_dados_celula()
[E5].Select
vTexto = Selection.Value
For i = 1 To Len(vTexto)
If Mid(vTexto, i, 1) = ";" Then Z = Z + 1
Next i
ReDim Y(Z + 1)

For i = 1 To Len(vTexto)
If Mid(vTexto, i, 1) <> ";" Then
X = X & Mid(vTexto, i, 1)
End If

If Mid(vTexto, i, 1) = ";" Then
Y(c) = X
c = c + 1
X = ""
End If
Next i

Y(Z) = X

For i = 0 To UBound(Y)
Selection.Offset(i + 1, 0).Value = Y(i)
Next i

End Sub

Sub limpar_teste()
[E6:E1000].ClearContents
End Sub





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

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

Estes macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompoe números em linha, separados por espaços,
usando o Evento de Planilha (Worksheets) SelectionChange(ao selecionar), decompõe os números nas células de colunas adjacentes.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
'- - - - - - - - - - - - - - - - - - - - - - -'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
On Error Resume Next
If Target.Offset(0, -2) = "A Contabilizar" Then decompor_numeros
End If
End Sub

'- - - - - - - - - - - - - - - - - - - - - - -'
Sub decompor_numeros()
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, OtherChar _
:="(", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
End Sub
'- - - - - - - - - - - - - - - - - - - - - - -'
Sub copiar()
[b2].Select
[a].Copy [b] 'aqui fiz uma copia a partir de um range nomeado.(duas planilhas)
End Sub
'- - - - - - - - - - - - - - - - - - - - - - -'
'Treinamentos Saberexcel(nao deixe de ler sobre nosso trabalho com as Instruções Loops)
Sub Loop_I()
Dim i As Integer
For i = 1 To 8
If Cells(i, 1).Value = "A Contabilizar" Then
Application.Run ("decompor_numeros")
End If
Next i
End Sub
'- - - - - - - - - - - - - - - - - - - - - - -'
'Treinamentos Saberexcel(nao deixe de ler sobre nosso trabalho com as Instruções Loops)
Sub Loop_II()
Dim i As Integer
For i = 1 To 8
If Cells(i, 1).Value = "A Contabilizar" Then
Cells(i, 1).Offset(0, 2).Select
Application.Run ("decompor_numeros")
End If
Next i
End Sub
'- - - - - - - - - - - - - - - - - - - - - - -'
'nao deixe de ler sobre nosso trabalho (Tudo sobre Celulas e Range's)
Sub Macro_I() 'treinamentos saberexcel
Range("C3:C" & [C65536].End(xlUp).Row).TextToColumns Range("C3"), xlDelimited, , , , , , True
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 - O Site de quem precisa aprender macros microsoft excel VBA

Essa macro do aplicativo Microsoft Excel VBA(Visual Basic Application) decompõe palavras separadas por vírgula, digitadas na Célula(A1),
a decomposição ocorrerá na própria coluna(A).

'- - - - - - - - - - - - -
'Escola SaberExcel VBA Estudos®
'Treinamento com Macros Fórmulas e Funções
'- - - - - - - - - - - - -

Sub sbx_decompor_palavras()
Dim vTabela As Variant
Dim i As Integer
Dim v As String

v = Range("A1").Value
vTabela = Split(v, ";")

For i = 0 To UBound(vTabela)
Range("A1").Offset(i + 1, 0).Select

With Selection
Selection.Value = vTabela(i)
End With

Next i

'Range("A1").EntireRow.Delete
Range("A1").Value = "TAREFA EXECUTADA"
[c12].Value = "Tarefa executada com sucesso, palavras separadas por ';' foram decomposta!!!"
ActiveSheet.Name = "Palavras Decompostas"
[B1].Select
End Sub
'- - - - - - - - - - - - - - -
Sub sbx_copiar_teste()
Plan1.[a1:a100].ClearContents
[a].Copy [Plan1].[a1]
ActiveSheet.Name = "Decompor Palavras"
[c12].Value = "Execute o macro para decompor as palavras separadas por ';'"
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.

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe determinadas frases em células na vertical, contando o nùmero de carateres e os númerando, usamos a Propriedade Offset(DESLOC) para isso. Espero que o exemplo possa lhe ser útil.
Fique com Deus, Expedito Marcondes

Sub sb_decompor_e_numerar_letras()
Dim sbChave() As Variant
[C4:C200].ClearContents

Cells(3, 3).Activate
vTexto = ActiveCell.Value
vNumeroCaracteres = Len(vTexto)

ReDim sbChave(vNumeroCaracteres - 1)

For i = 0 To vNumeroCaracteres - 1
sbChave(i) = Mid(vTexto, i + 1, 1)
ActiveCell.Offset(1, 0).Value = "[" & i + 1 & "ª.Letra ]..............: " & " " & sbChave(i) & " "
ActiveCell.Offset(1, 0).Select 'offset(funcao desloc) desloca dados nas células
Next i

Columns("C").AutoFit
[C3].Select
End Sub

Essas macros são auxiliares para auxiliar no teste.
Sub sb_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:="decompor_e_numerar_letras"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub sb_oc()
Saber1.Shapes("sb").Visible = False
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 e função do Aplicativo Microsoft Excel VBA, retorna uma palavras aleatórias de uma determinada frase, previamente escolhida. como mostra na macro "Frase_desordenada" abaixo, observe que o macro é auxliado por uma Função com argumentos

Sub Frase_desordenada()
[A2:A10].ClearContents
Range("A1").Select

Sb = "Aprenda Microsoft Excel VBA com qualidade Saberexcel"
Arr = Application.Transpose(FraseDesordenada(Sb))

For i = LBound(Arr) To UBound(Arr)

[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Arr(i)
x = ActiveCell.Offset(0, 1).Value
MsgBox "Palavra : [ " & Arr(i) & " ] posição original :[ " & x & " posição" & " ]"
Next
[A65000].End(xlUp).Offset(1, 0).Select
End Sub

Function FraseDesordenada(Sb)
Dim Arr, i&, b&, j&, k&, tmp
'decompondo a frase e retornando de forma aleatória.

Arr = Split(Sb, " ")

Randomize: j = UBound(Arr)


For i = LBound(Arr) To UBound(Arr)
k = Rnd() * j + 1
tmp = Arr(j)
Arr(j) = Arr(k)
Arr(k) = tmp
j = j - 1

Next
'retorna resultado coluna
FraseDesordenada = Application.Transpose(Arr)

End Function

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel