|
 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.
|