Ajuda - Separar string delmitada

[danilomilani]

Ola galera, to usando o Execell e queria que alguém do forum me ajudasse com uma duvida

Eu tenho a seguinte planilha:

F-001 SEP138-13,8kV

F-003 SEP138-13,8kV

F-004 SEP138-13,8kV

F-005 SEP138-13,8kV

F-006 SEP138-13,8kV

F-007 SEP138-13,8kV

F-008 SEP138-13,8kV

Gostaria de saber se alguém sabe desenvolver algum macro no Visual Basic para separar a primeira parte "F-001" para uma coluna diferente

Exemplo:

Coluna A= F001

Coluna B= Sep138-13,8kV

A planilha é bem extensa, vai até aproximadamente F-220

Eu só consegui chegar até isso:

Function StringElement(str As String, chr As String, ind As Integer)
Dim arr_str As Variant
arr_str = Split(str, chr)
StringElement = arr_str(ind - 1)
End Function

é bem simples, apenas separa em colunas unicas e não a planilha inteira

conto com a suas ajudas

Obrigado des de já

[lobismano]

Boa noite Amigo.

Para isso não é necessário VBA, mais vamos lá.

Se o comprimento dos valores sempre são os mesmo você usar

celula 1 = left(planilha.cells(linha, coluna), 5)

celula 2 = mid(planilha.cells(linha, coluna),7, 13)

ou celula2 = right(planilha.cells(linha, coluna), 13)

espero te ajudado.

At.

[Matheus-vb6]

voce pode tentar usar o SPLIT

valor=split(nome do campo," ")

para obter os valores

F001

e

Sep138-13,8kV

use valor(0) e valor(1)

Abraços

[Danleonhart]

Seguindo a lógica do Matheus...

Private Sub CommandButton1_Click()
Separar
End Sub

Sub Separar()
Dim VT() As String
Dim I As Integer
Texto = txt1.Text

VT() = Split(Texto, " ")

For I = LBound(VT) To UBound(VT)
  MsgBox VT(I)
Next I

End Sub

Criei este exemplo no Excel... só adaptar :rolleyes: