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.

|