Senhores, bom dia!
Acompanho este fórum há tempos, mas somente agora vi necessidade de me cadastrar para fazê-los um questionamento, pois sempre achei o que precisava.

Bom, vamos ao problema:

- Trata-se de um cadastro de Clientes / Obras para minha empresa.
- O código está todo formatado, porém estou com problemas na hora de pegar um valor de uma única célula (da linha previamente selecionada por um critério próprio) da planilha e dividi-la entre 6 textboxes.
- Trata-se de uma formatação de endereço, que segue:
Logradouro. Endereco, Numero - Complemento - Bairro / Estado
- Quando a pessoa insere as informações antes, no mesmo formulário, o código faz com que todas fiquem formatadas, atribuindo a pontuação dentro da Coluna G da planilha ativa (Índice da coluna = 7).

Porém, o problema se dá na hora de buscar estas informações na planilha:
Quero exatamente o processo inverso: Dividir as informações célula da coluna G selecionada pela "caixa_localizar" para posteriormente poder editá-las (mas o código de edição já está pronto, não se preocupem com isso).

Segue o código, que estou usando aqui para baseá-los:

Private Sub caixa_localizar_Click()
' pegando quantidade de linhas preenchidas
treditar = ActiveSheet.UsedRange.Rows.Count

'declarando variáveis i e nind
Dim i As Double
Dim nind As Double

'para i de 0 até a quantidade de linhas preenchidas
For i = 0 To treditar

'Condicional para procurar de acordo com a opção escolhida na caixa de seleção
If caixa_localizar.ListIndex = i Then

'Soma três aqui ao listindex, que começa em 0 para a linha 1 da planilha porque tenho duas linhas no topo, fixas e preenchidas. A primeira com a logo da empresa e a segunda com os títulos das colunas.
nind = i + 3

'-----------> Celula a ser procurada e dividida ----> Cells(nind, 7)

'Preencher Caixas ou TextBoxes
cxlogradouro = (Comp primeiro item da esquerda para a direita, na célula, aqui, algum código que faça reconhecer para pegar o tipo logradouro que SEMPRE termina com "." Ex.: AV. / R. / PÇ.
txtendereco = Semelhante ao de cima, porém segundo item limitado por "." a esquerda (mesmo "." que limita o logradouro a direita) e "," a direita.
txtnumero = Semelhante ao de cima, terceiro item limitado por "," a esquerda e "-" a direita.
txtcomplemento = Mesma coisa, quarto item limitado por "-" a esquerda e "-" a direita (sim, está entre traços).  
txtbairro = Quinto item limitado por "-" a esquerda e "/" a direita
cxestado = Sexto item limitado por "/" a esquerda

Exit Sub
End If
Next
End Sub

Ou seja, resumindo: Cells(linha atual escolhida pela listindex da caixa localizar,7) = cxlogradouro". " txtendereco", " txtnumero" - "txtcomplemento" - "txtbairro" / "cxestado