Adicionar Sinal de Iqual em Células

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Adicionar Sinal de Iqual em Células

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum