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


Buenas Tardes

Tengo una archivo con una macro que sin importar si se usa mayúscula o minúscula me cambia toda la información a mayúscula excepto en celdas donde ese escribe el e-mail hasta ahí todo va bien, pero necesito que para el caso del esa celda donde va el correo siempre sea minúscula, adicional a esto también que la celdas donde va el número de identificación, el numero de teléfono y el número de cuenta me elimine los espacios intermedios si los escriben con espacio, que en la celda donde va el número de la cuenta también me elimine los guiones si lo escriben esos caracteres y además que si se va trabajar sobre un archivo con datos al momento de sobrescribir el primer campo que es nombre borre la información que haya escrita.

Comencé a modificar el macro que ya tenía pero me arroja un error de depuración

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("F15", "B33")) Is Nothing Then
Target = UCase(Target)
Else
Target = LCase(Target)
End If
Application.EnableEvents = True


If Union(Range("E9:L9"), Target).Address = Range("E9:L9").Address Then
Range("A11:L11,A13:L13,A15:L15,E17:H17,C19:L19,C21:L21,D23,A26:L26,A28:L28,A30:L30,A32:L32,B33:L33,E34:H34,C36:L36,C38:L38").ClearContents

End If
End Sub

Muchas gracias por la ayuda que me puedan dar

Att, Maria
Archivos
Deudores NOAA.xlsm
No tienes los permisos para descargar los archivos.
(36 KB)

Igtelo


Hola asrainocturna.

Te doy ejemplos de las sentencias que necesitas, acomoda según tu hoja (está en chino andar buscando).

Range("F15,B33") = LCase(Range("F15,B33"))   'Minúsculas celdas F15 Y B33
Range("C4").Replace " ", ""                                 'Elimina espacios en C4
Range("C4").Replace "-", ""                                 'Elimina guiones
Range("A1,B5,C32,F15").Clearcontents               'Borra celdas indicadas


Saludos
Ignacio Téllez

Igtelo


Resuelto y se cierra por abandono.

Ignacio Téllez

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.