Duvida numa função

[koll4u]

Bom dia pessoal,

Eu tenho uma duvida , eu quero fazer em VBA uma funçao, Cells(i, 2) = "=Left(A2, Find(" - ";A2,2)-2)", esta mesma.

Eu tentei desta maneira :

For m = 2 To j Step 1

            If Cells(m, 1) = "" Then

                Cells(m, 2) = ""

            Else

                cadeia = Fecho_11.Cells(m, 1).Value

                posicao = InStr(m, cadeia, "-")

                cadeia2 = Left(cadeia, posicao - 2)

                Fecho_11.Cells(m, 2).Value = cadeia2

            End If

            On Error Resume Next

        Next m

Visto que nao esta a funcionar o que estara errado ?

[Xatissimo]

Boas koll4u

Que erro está a dar?

Abraço

[koll4u]

Nao esta a dar erro , mas nao estao a aparecer os valores ...

[Xatissimo]

consegues por um breakpoint nisso e correr linha a linha com F8?

Abraço

[koll4u]

Xatissimo

Esta a dar erro :  cadeia = Fecho_11.Cells(m, 1).Value, nesta linha.

Abraço

[Xatissimo]

Que valor tens nessa célula?

Fecho_11 é o nome da folha, certo?!

[koll4u]

Sim fecho_11 e o nome da folha .

O valor que tenho la é este :

00 - CONTAS DE PASSAGEM 

O que quero fazer é retirar o valor antes do "-", neste caso é o 00.

[Xatissimo]

Bem, antes de ver se a fórmula está correcta e só por descargo de consciência, substitui 'Fecho_11.Cells(m, 1).Value' por 'ActiveWorkbook.Sheets("Folha_11").Cells(m,1).Value'.

[koll4u]

Ok , essa parte ja esta resolvida, agora esta a dar outro erro .

Fecho_11.Cells(m, 2).Value = cadeia2

nesta linha de codigo esta a aparecer o erro '424'  Object required .

Abraço

[Xatissimo]

Faz a mesma substituição nessa linha.

[koll4u]

Ok ja substitui , estava a dar bem ,

ate 00.1 - Contas Passagem - Clientes, quando aparece assim , ele transforma o 00.1 para 0,1 , e eu necessito de 00.1 ...

Isto sucessivamente em todos os 00.2, 11.1, 11.2 e assim sucessivamente...

So quando é tipo 00.1.9 é que aparece bem

[Xatissimo]

na linha onde fizeste a ultima substituição Fecho_11.Cells(m, 2).Value = cadeia2 substitui 'Value' por 'Text' e tenta de novo.

[koll4u]

Ok ja substitui , e agora esta a dar o erro '1004' Nao é possivel definir a propriedade Text da class Range

[Xatissimo]

Esquece esta última substituição que não vai funcionar.

imediatamente antes desta linha de texto, insere a seguinte linha:

activeworkbook.sheets("Fecho_11").cells(m,2).numberformat = "@"

Abraço

[koll4u]

MUITO MUITO MUITO obrigado

Problema resolvido .

Abraço

[Xatissimo]

😄

Abraço