Ir para o conteúdo
manuel antonio

[Resolvido] Como contar partes de uma string?

Mensagens Recomendadas

manuel antonio

Boa tarde.

Amigos:

Na coluna "F" da Folha de Excell, cada célula contem uma string com comprimentos diferenciados, do tipo:

.T01-W25-A62-R41

As células, podem no entanto variar o seu conteúdo e possuir apenas .T01

Isto quer dizer que as células contêm códigos alfanuméricos de 3 carateres, iniciados por um ponto(.) e separados pelo hífen.

O conteúdo das células da coluna "F" serão contabilizados, se a coluna "G" contiver a string "CA". Se contiver outras letras, a célula do mesmo número na coluna "F" será ignorada.

Julgo ter sido suficientemente claro na exposição do meu problema.

Será que podem facultar-me uma rotina que me conte o nº de códigos contidos em cada célula e que adicione o total de códigos das várias células

numa Label?

Abaixo coloco o código que tenho, mas que me devolve valores errados.

Ficaria grato se recebesse ajuda, pois tenho bastante urgência na resolução deste problema.

Dim MotCAcomp, MotCAcompara As String
Dim LLCAberta, jCA, iCAb As Long
Dim TotMotCAb, TotCAb As Integer
LLCAberta = Sheets("DADOS").Cells(Cells.Rows.Count, 7).End(xlUp).Row
MotCAcomp = CheckBox1.Caption

For iCAb = 2 To LLCAberta
	If Range("G" & iCAb).Value = MotCAcomp Then
	MotCAcompara = Len(Range("F" & iCAb).Value)

		For jCA = 2 To MotCAcompara Step 4
			Select Case MotCAcompara
			Case 2 To 4: TotCAb = TotCAb + 1
			Case 6 To 8: TotCAb = TotCAb + 2
			Case 10 To 12: TotCAb = TotCAb + 3
			Case 14 To 16: TotCAb = TotCAb + 4
			Case 18 To 20: TotCAb = TotCAb + 5
			Case 22 To 24: TotCAb = TotCAb + 6
			Case 26 To 28: TotCAb = TotCAb + 7
			Case 30 To 32: TotCAb = TotCAb + 8
			End Select

					  Next
	 End If
Next
	 TotMotCAb = TotMotCAb + TotCAb
	 Label89.Caption = TotMotCAb

Grato pela ajuda que puderem prestar.

Abraços M.A.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.