Macro no Excel em VB

[agencyOne 0]

Olá pessoal,Eu estou fazendo uma macro que me ajude a colocar um sequencial em uma célula do excel conforme exemplo abaixo:- Conteúdo da célula:C - TextoTextoTextoTextoTextoTextoTextoC - TextoTextoTextoTextoTextoTextoTextoC - TextoTextoTextoTextoTextoTextoTexto- Como deve ficar após execução da macro:C1 - TextoTextoTextoTextoTextoTextoTextoC2 - TextoTextoTextoTextoTextoTextoTextoC3 - TextoTextoTextoTextoTextoTextoTexto- O código que estou usando é o seguinte:seqPrep = 1repPrep = "C" & seqPrep & " -"DoCells(row, 6).Select'Selection.Replace What:=PREPARACAO, Replacement:=repPrep, LookAt:=xlPart, _'SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _'ReplaceFormat:=False ActiveCell.Find(What:=PREPARACAO After:=ActiveCell).Replace What:=PREPARACAO, Replacement:=repPrep, LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False seqPrep = seqPrep + 1contP = contP - 1 Loop While contP <> 0onde PREPARACAO e repPrep são variáveis contendo a string que quero alterar (C -) e sua alteração sequencial.Se eu utilizar o código que está comentado, o replace funciona mas substitui todas as strings pelo mesmo valor ao invés do sequencial.Alguém pode me ajudar?

[jolienai 0]

Olá pessoal,Eu estou fazendo uma macro que me ajude a colocar um sequencial em uma célula do excel conforme exemplo abaixo:- Conteúdo da célula:C - TextoTextoTextoTextoTextoTextoTextoC - TextoTextoTextoTextoTextoTextoTextoC - TextoTextoTextoTextoTextoTextoTexto- Como deve ficar após execução da macro:C1 - TextoTextoTextoTextoTextoTextoTextoC2 - TextoTextoTextoTextoTextoTextoTextoC3 - TextoTextoTextoTextoTextoTextoTexto- O código que estou usando é o seguinte:seqPrep = 1repPrep = "C" & seqPrep & " -"DoCells(row, 6).Select'Selection.Replace What:=PREPARACAO, Replacement:=repPrep, LookAt:=xlPart, _'SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _'ReplaceFormat:=False ActiveCell.Find(What:=PREPARACAO After:=ActiveCell).Replace What:=PREPARACAO, Replacement:=repPrep, LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False seqPrep = seqPrep + 1contP = contP - 1 Loop While contP <> 0onde PREPARACAO e repPrep são variáveis contendo a string que quero alterar (C -) e sua alteração sequencial.Se eu utilizar o código que está comentado, o replace funciona mas substitui todas as strings pelo mesmo valor ao invés do sequencial.Alguém pode me ajudar?

Não entendi nada...!!! sory.. mais se preferir mande o arquivo xls para jolienai@bol.com.brcom a explicação...