ParaJulio

Responder
Avatar de Usuario
TodoExcel
Manager Exceluciones
Manager Exceluciones
Mensajes: 1666
Registrado: 05 Jun 2004 16:05

ParaJulio

Mensaje por TodoExcel » 16 Oct 2013 19:48

Código: Seleccionar todo

Sub Recorre()
On Error Resume Next
Dim C As Range
  For Each C In Range("A1:A3")
    
    C.Select
    
    
    If IsNumeric(C.Value) Then
    
        If Int(C) / C = 1 Then
        C.Value = "=" & C
        Else
        Selection.NumberFormat = "@"
        ActiveCell.Value = Replace(ActiveCell.Value, ",", ".")
        Selection.NumberFormat = "0.0"
        C.Value = "=" & C
                 
        End If
    
    
    Else
      
      C.Value = "." & C.Value
    
    End If
  
  Next C

End Sub



Responder