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 Anteponer Según Requerido el 08/10/16, 06:46 pm

edwinjo


Estimados,
Muchas gracias con el siguiente macro (me esta sirviendo mucho); cosultandoles que cambio debo de hacerle, para que en lugar de que me escriba en mayuscula, lo haga como se lo pido por ejemplo
ArrTThhII
o= arrtthhii
En otras palabra ni mayusculas, ni minusculas, ni la primera mayuscula si no como le agregue el codigo
Gracias
Sub Edwinjo()
Dim letra As String, celdas, w As Range
On Error GoTo fin

letra = UCase(InputBox("Dame Letra")) 
Set celdas = Application.InputBox("Escribe o selecciona celdas", Type:=Cool
For Each w In celdas  
w = letra & w.Value   
Next                        
Set celdas = Nothing 
fin:

End Sub

2RESUELTO Re: Anteponer Según Requerido el 09/10/16, 12:39 am

Edmomo


Buenas noches Edwinjo

La respuesta es sencilla, no es más que quitarle el Ucase a esta línea

letra = UCase(InputBox("Dame Letra")) 


Quedaría así: letra = InputBox("Dame Letra")


Listo eso es todo

3RESUELTO Gracias el 10/10/16, 11:31 am

edwinjo


Muchas Gracias

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.