Colorir celulas que tenha numeros

Continuando a discussão do Função que verifica se contem numeros:

Bom dia

Esta macro, como começo ela no VBA para funcionar?. Ela pede um nome.

A intenção é dentro de intervalo da celula B2 até B1048576 ele identificar as que contém números, seja inteiro, seja decimal e pintar de vermelho. O intervalo de números pode ser até 1 milhao.
E como começa a macro? Ele pede um nome na hora de rodar.
Poderia me ajudar como ficaria?

Obrigado

Function isnum(celula As Range)
Dim i As Integer
For i = 0 To 1000000
If InStr(celula, i) = True Then
isnum = True
Exit For
End If
Next i
End Function

Boas veja se esta sub lhe serve:

Sub pintarCelulas()

With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .DisplayAlerts = False
End With

 Dim i As Long

For i = 2 To 1048576

If Cells(i, 2).Value = "" Then Exit Sub

Dim valor As String

valor = Cells(i, 2).Value

If IsNumeric(valor) Then

With Cells(i, 2).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

End If

Next i

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With

End Sub
1 Curtida

Opa.Obrigado pelo retorno amigo.

Então, ela não coloriu. Ainda estou aprendendo VBA, então tem coisas que não sei .

Em anexo segue um modelo parecido com a base que vou utilizar.

è igual você colcou mesmo, vai até ultima linha do excel.

A coluna vai ser sempre a 2 mesmo.

A idéia e na coluna descrição, onde tiver números, ele vai pintar de vermelho. Esses números podem vir em formato de medidas igual ta no excel e também sozinhos.

Se puder fazer ela e testar nesta base.Não consigo anexar arquivos ainda por se rnovo aqui.

Coluna A Coluna B
100000 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100001 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100002 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100003 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100004 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100005 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100006 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100007 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100008 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100009 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100010 PARAFUSO SEXTAVADO PRETO 6X10X15MM
100011 ROLAMENTO 5RS 10X15MM
100012 ROLAMENTO 5RS 10X15MM
100013 ROLAMENTO 5RS 10X15MM
100014 ROLAMENTO 5RS 10X15MM
100015 ROLAMENTO 5RS 10X15MM
100016 ROLAMENTO 5RS 10X15MM
100017 ROLAMENTO 5RS 10X15MM
100018 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100019 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100020 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100021 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100022 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100023 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT
100024 NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT

Obrigado

Boas, se eu percebi bem.

Coluna A Irá ficar por exemplo 10024 e na coluna B “NOTEBOOK 1800VAC 60HERTZ 220V BIVOLT”. Certo?

Caso exista um número na coluna B pintar ela?

Estou certo?

Veja se é isto que pretende: PintarCelulas.xlsm (16,6,KB)

Boa tarde amigo. Isso mesmo. Você é feraa. Esse código é complicadinho hen.kkkkk.

Esta dando certo aqui. Muito obrigado pela ajuda.

Qualquer coisa te peço um suporte aqui novamente.

Tudo de bom

De nada amigo. :slight_smile:

Qualquer coisa é só pedir que eu gosto de ajudar :wink:

1 Curtida

Bom dia amigo. Blz ne?

Surgiu uma demanda aqui, esta mais importaqnte que a de cima,kkk.

Abaixo na coluna B(Descrição Curta), a descrição não é exatamente igual. Mas se vc obervar tem caracteres nesta descrição os números( esse número inicial que se repete em alguns.

Idéia é: Fazer um código que ele encontre esses números repetidos da Célula B2 até célula B1048576 e pinte de alguma cor. Consegue me ajudar?

Material Descrição curta
1000 15751-0109 TRAVA TP
2000 2591976-0000 TRILHO GUIA TP
3000 351523-0118 ANEL BORRACHA TP
4000 6-4723137035 ANEL TP
5000 6-9613221605 BOMBA CENTRIF. TP
6000 90163-0138 VALV. PN TP
7000 90522-2086 CHAVE BOIA TP
8000 90610-3055 LAMPADA TP
9000 014020-0000 MOLA HELICOIDAL TP
10000 1020164-0202 TRIPE TP
11000 1021004-0000 EIXO TP
12000 1021057-0000 CUBO TP
13000 1021085-0000 TRILHO DE AI TP
14000 1021086-0000 TRILHO GUIA TP
15000 1021087-0000 TRILHO GUIA TP
16000 1021090-0000 CORRENTE TP
17000 1021091-0000 CORRENTE ACO TP
18000 1021092-0001 ARTICULACAO PN TP
19000 1021092-0002 ARTICULACAO PN TP
20000 1021106-0000 CUBO TP
21000 1021111-0000 BRACO EM AC TP
22000 1021112-0000 BRACO TP
23000 1021129-0000 EIXO DA CANECA TP
24000 1021130-0000 ARRUELA TP
25000 1021139-0000 CUBO TP
26000 1021156-0000 ANEL RET. TP
27000 1021161-0000 EIXO PN TP
28000 1021161-0000 SUPORTE TP
29000 1021164-0000 SEPARADOR TP
30000 1021165-0000 ARRUELA TP
31000 1021166-0000 MOLA ESPIRAL TP
32000 1021324-0000 ENGR. TRANSMISSAO TP
33000 1021329-0000 EIXO ESTATICO TP
34000 1021596 MOLA ESPIRAL PN TP
35000 1021665-0000 EIXO TP
36000 1021669-0000 EIXO AI TP
37000 1021671-0000 SUPORTE PN TP
38000 1021673-0000 EIXO PN TP
39000 1021678-0000 SUPORTE ACO TP
40000 1021673-0000 EIXO P TP
41000 1021329-0000 EI ESTATICO TP
42000 1021139-0000 CU TP
43000 1021165-0000 ARRU TP

Amigo, sumiu uai.Tudo certo?

Oi desculpa,
Estive uns dias afastado do computador, pois fiquei sem emprego e o único pc que tinha era o fornecido pela empresa, que infelizmente tive que entregar.
Mas felizmente estou de volta, vou tentar responder suas questão assim que consiga.
:slight_smile:

Você pretende pintar a célula ou os números?
O número a se repetir seria o número inteiro, ou até ou depois do “-”?
Exemplo:
Número:1021156-0000
Seria este : 1021156 ou este 0000, ou mesmo todo 1021156-0000?

Obrigado.

rapaz um cara que nem vc ficar sem emprego? Esse povo é doido?kkkk

Seria pintar a celula que contenha todos os números iguais na coluna B
Exemplo: Este número é um código 1021130-0000, onde se ele se repetir nas demais linhas abaixo da coluna B ele é pintado de uma cor. Pintar códigos repetidos seria a idéia. pintar ele todo ( antes e depois do traço) , pois ele todo incluindo traço faz parte do código.

Qualquer coisa pode chamar.obg

É meu contrato acabou e não foi possível renovar infelizmente por conta da COVID, pois eu estava em uma empresa de aeronáutica que foi bastante afetada pela pandemia.

Vou ver o que consigo fazer. Já lhe envio algo. :slight_smile:

Tenho uma pequena dúvida.
Qual seria o caso que pretende.

Pintar apenas um código (código de referência)

Exemplo:
Todas as células com o código de referência 15794-0595 seriam pintadas de azul, as restantes ficam brancas.

OU

Pintar cada código de uma cor diferente

Exemplo:
Todas as células com o código 15751-0109 ficam de vermelho, já as que contêm o código 90163-0138 de verde e por ai a fora.