Buenas amigos del foro necesito ayuda con un archivo, necesito trasladar a una hoja de excel nueva solo la informacion que quiero, tengo una macro pero no me corre bien traslada todas las hojas, si alguien puede ayudarme, y donde dice la cantidad en numero en letras la palabra "bolivares" fuera en mayuscula como el resto de las letras, saludos

Prueba.rar

Lo de bolivares puedes hacerlo anidando la function en la function MAYUSCULAS.

Hola Armando, Como estas? algo como esto que consegui ayer? como le pondria la palabra centimo al final?

Sub ConvierteMayusculas()

Dim celda As Range

For Each celda In Selection

celda.Value = UCase(celda.Value)

Next

End Sub

y con trasladar a otra hoja por separado tienes alguna idea?

Puedes hacerlo al insertar la UDF, algo asi:

=UPPER(Escrito(J48,"BOLIVAR","/100"))[/CODE]

El ejemplo para trasladar no me quedo claro.

esa macro que tiene el archivo es de una plantilla que tengo pero en ese caso trasladaba 4 hojas con presionar el boton, en este caso me gustaria que funcionara por hoja individual por ejemplo quiero trasladar a un archivo nuevo la hoja 3, porque esa seria mi base de dato por que son para facturas y y tengo que guardar el historial