ParaJulio

ParaJulio

Notapor 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
Avatar de Usuario
TodoExcel
Manager Exceluciones
Manager Exceluciones
 
Mensajes: 1666
Registrado: 05 Jun 2004 16:05

Volver a OTROS FOROS

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado