Adicionar Sinal de Iqual em Células

por alexandrevba Sex Out 25, 2013 12:27 pm

Boa tarde!!

Olá pessoal, veja como por o sinal de igual, em células que não são formulas e não vazias.

Código:: Sub Adicionar_Sinal_Iqual() Dim rConstants As Range Dim cell As Range 'Adiciona o sinal de igual, em células que contém dados 'que não são formulas e não vazias On Error Resume Next Set rConstants = Selection.SpecialCells(xlCellTypeConstants) On Error GoTo 0 If rConstants Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each cell In rConstants.Cells cell.Formula = "=" & cell.Value Next cell Application.ScreenUpdating = True End Sub