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.]

1RESUELTO Problema con esta macro el 27/01/15, 09:42 pm

Invitado


Invitado
Buenas tardes muchachos.

Tengo esta macro para todo mayúsculas:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range(" A12:A41,C12:C41")) Is Nothing Then
        Target.Value = AMayusculas(Target.Value)
    End If
End Sub
 Y en un modulo:

Public Function AMayusculas(strTexto As String) As String
    AMayusculas = UCase(strTexto)
End Function

Todo perfecto.

Pero al eliminar filas o lineas, me da error en:
Target.Value = AMayusculas(Target.Value)
Un saludo
Archivos
Mayusculas.xls
(20 KB)

2RESUELTO Re: Problema con esta macro el 29/01/15, 04:13 am

Invitado


Invitado
Buenos días
Lo he podido resolver
Un saludo
Archivos
Mayusculas2.xls
(20 KB)

3RESUELTO Re: Problema con esta macro el 29/01/15, 10:11 pm

Igtelo


Hola Luis.

Nuevamente, gracias por compartir la solución.

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.