Este fórum está sendo desativado

[Paceakit]

Olá
Gostaria da ajuda de vcs com uma dúvida que tenho.
Tenho uma lista de alunos e gostaria de saber se há alguma formatação para isso.
Irei colocar o nome do aluno em uma célula e gostaria que somente a primeira letra do nome desse aluno, ficasse em outra cor....ex. nome do aluno PAULO, e queria que somente a letra P ficasse em "vermelho".

Faço isso com uma macro, só que meu notebook é muito lento e demora demais, precisava de algo mais rápido.
Se alguém souber, agradeço.

[alexandrevba]

Boa tarde!!

Relativamente falando, a Macro seria a forma mais rápida, mostre sua rotina!

Att

[Paceakit]

Alexandrevba

Sou novo aqui no fórum e não entendi o que vc escreveu "mostre sua rotina"
Desculpe por isso, pois não frequento fóruns.

Mas, vc quer ver a minha planilha ou o meu macro, certo??

[alexandrevba]

Boa tarde!!

Isso, mostre seu código.

Seria melhor o arquivo modelo para avaliar além da rotina como estão os dados no arquivo.

Obs: caso for anexar, os arquivos devem está compactados (no formato...zip, winRar etc).

Att

[Paceakit]

Sheets("LISTA NOMES").Select
Range("C2").Select
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Underline = xlUnderlineStyleNone
.Color = -16776961
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("C2").Select
Selection.Copy
Sheets("CRACHÁ").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Font
.Name = "Calibri"
.Size = 50
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With

Essa é a minha macro para cada nome. No final dela( depois de uma lista de 35 nomes), há um outro código para voltar os outros textos na cor preta...não entendo de excel, mas o que sei, consegui fazer esse.
Acho que não está mal, mas quem entende melhor, deve achar uma solução melhor

[alexandrevba]

Boa tarde!!

Tente assim..

Código: Selecionar todos

Sub AleVBA_475()

    Dim rng As Range, c As Range

    On Error Resume Next
    Set rng = Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues)
    On Error GoTo 0

    If Not rng Is Nothing Then
        rng.Font.ColorIndex = 1
        For Each c In rng
            c.Characters(1, 1).Font.ColorIndex = 3
        Next
    End If

End Sub

Obs: Tente deixar sua macro um pouco mais rápidas...
http://chandoo.org/wp/2012/03/27/75-exc ... g-up-tips/
http://www.databison.com/how-to-speed-u ... l-and-vba/
http://www.excelitems.com/2010/12/optim ... acros.html
Att