Macro que agregue datos a la izquierda de una celda según la condición dada

[asrainocturna]

Hola

Estoy intentado crear un macro que me agregue "(57)" si la celda cumple una condición o "(57)()" si cumple otra.

Es decir tengo en la columna U los siguientes datos

U2      (4)1234567

U3      (1)2345878

U4      ________ vacia

U5      1234567

U6       2345678

Entonces necesitaría que al ejecutar el macro me lea todos los datos de la Columna U y me los cambie así:

U2      (57)(4)1234567

U3      (57)(1)2345878

U4      ________ vacia

U5       (57)()1234567

U6       (57)()2345678

 

Muchas gracias, estaré atenta a sus respuestas.

 

[Antoni]

Sub Poner57()
   Aplication.ScreenUpdating = False
   For x = 2 To Range("U" & Rows.Count).End(xlUp).Row
      If Not Left(Range("U" & x), 5) = "(57)(" Then
         If Left(Range("U" & x), 1) = "(" Then
            Range("U" & x) = "(57)" & Range("U" & x)
         Else
            Range("U" & x) = "(57)()" & Range("U" & x)
         End If
      End If
   Next
End Sub

 

[asrainocturna]

Hola

El macro funciona pero si la celda U2 esta vacía no debería escribirme nada y me pone (57)() .

 

Gracias

[Antoni]

Sub Poner57()
   Aplication.ScreenUpdating = False
   For x = 2 To Range("U" & Rows.Count).End(xlUp).Row
      If Not Left(Range("U" & x), 5) = "(57)("  And _
         Len(Trim(Range("U" & x))) > 0 Then
         If Left(Range("U" & x), 1) = "(" Then
            Range("U" & x) = "(57)" & Range("U" & x)
         Else
            Range("U" & x) = "(57)()" & Range("U" & x)
         End If
      End If
   Next
End Sub

 

[asrainocturna]

Muchas gracias 

 

Funciona de Maravilla!!