Copiar valores em negrito

2024 - VBA & Macros

Post Recente por brunsftw 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,153 Visualizações

RSS

brunsftw

(@brunsftw)

Posts: 93

Trusted Member

Topic starter

Bom dia!
Galaera, tô precisando de uma macro que copie alguns nomes que estão em negrito e cole na frente de outros nomes com formatação normal.
Tô colocando uma planilha como exemplo para que vocês possam viasualizar melhor.
Obrigado!

Exemplo.xlsx

Postado : 16/12/2015 7:45 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde,

Veja se este código atende:

Sub CopiarNegrito()
    Dim i As Integer
    Dim Texto As String
    
    For i = 1 To [A1].CurrentRegion.Rows.Count
        If Cells(i, 1).Font.Bold Then
            Texto = Cells(i, 1).Value
        Else
            Cells(i, 5).Font.Bold = True
            Cells(i, 5).Value = Texto
        End If
    Next
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 16/12/2015 10:58 am