UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

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      ________ vacía
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      ________ vacía
U5       (57)()1234567
U6       (57)()2345678

Muchas gracias, estaré atenta a sus respuestas.

tyno


Hola asrainocturna.
Inserta esta macro en un boton y ejecutala.
Se supone que los datos se encuentra en la columna U desde la fila 2


Sub macro()
On Error Resume Next
For a = 2 To [u1000000].End(xlUp).Row
If Cells(a, 21) <> "" Then
If Left(Cells(a, 21), 1) = "(" And Left(Cells(a, 21), 4) <> "(57)" Then
Cells(a, 21) = "(57)" & Cells(a, 21)
Else
If Left(Cells(a, 21), 4) <> "(57)" Then
Cells(a, 21) = "(57)()" & Cells(a, 21)
End If
End If
End If
Next a
[u1].EntireColumn.AutoFit
End Sub

Saludos

asrainocturna


Muchas gracias!! 

Funciono de maravilla!

Admin


Admin
Buenos días asrainocturna.

Debes tildar el tema como resuelto, por ésta ocasión se hace desde la administración.


UniversoExcelForo

http://www.universoexcelforo.com

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.