Trasladar hoja

[JRGO]

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

[Armando Montes]

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

[JRGO]

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

[JRGO]

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

[Armando Montes]

Puedes hacerlo al insertar la UDF, algo asi:

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

El ejemplo para trasladar no me quedo claro.

[JRGO]

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