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

rubito1


hola gente del foro,como estan;de nuevo acudo a uds x ayuda;he tratado de hacer un formulario con una macro para limpiar planilla pero me encuentro con problemas;ademas solicito otras cosas que las anote en el archivo de ejemplo;creo que esta claro;desde ya muchas gracias
Archivos
NP y ot PRUEBA.xls
No tienes los permisos para descargar los archivos.
(97 KB)

DEDOS


Hola Rubito1:
Con este comando se activa y desactiva la hoja, entonces en la primer linea de la macro se debe de anotar:  
ActiveSheet.Unprotect "aquí va la contraseña", se debe de anotar entre comillas,
y al final de la macro anotar
ActiveSheet.Protect "aquí va la contraseña".
Y para mi manera de ver, es necesario que nos muestre el formulario para conocer cuales son las celdas que se afectan con la misma.
Saludos y suerte

3RESUELTO sii el 15/12/14, 09:14 pm

rubito1


genial dedos!!!,esto me soluciono el problema principal!con respecto a lo otro que consulto,se te ocurre algo?(el punto 2 de mi consulta en el archivo)

DEDOS


Hola Rubito1:
Buen día, en el foro si mal no recuerdo, hay varias respuestas acerca de como guardar con nombre de celda y en una ruta determinada, hechas por los buenos amigos Nacho, Tyno, etc. ( a quienes mando saludos cordiales).
Para poder apoyarlo más, ocupo saber por ejemplo, ¿dónde se van a registrar los datos, que se van a generar de la hoja NP?, ¿hasta donde lleva avanzado su macro y sobre eso acoplar lo que ocupa?.
Saludos y suerte

servando


Buen día rubito1.

Adjunto archivo con macro para hacer lo que pides si entendí bien.

Un saludo desde Vitoria, Servando.
Archivos
NP y ot PRUEBA.xls
No tienes los permisos para descargar los archivos.
(88 KB)



Última edición por servando el 16/12/14, 02:07 pm, editado 1 vez

6RESUELTO parece que si el 18/12/14, 07:04 am

rubito1


servando,esta genial,solo que me lo guarda como pdf ;como le cambio para que lo guarde en excel(ActiveSheet.ExportAsFixedFormat Type:=xlsm ??)
gracias
ahh y no me toma el nombre del vendeddor(es decir,anota el ultimo numero usado pero no anota el del vendedor

servando


Buen día rubito1.

Te adjunto fichero con mdificaciones.

Para que funcione deberás :
1º-   Copiar la macro en el libro de macros PERSONAL.XLSB
2º-   Asignar esta macro al botón de lanzamiento que tienes en la hoja.
Esto es debido a que tenemos que cerrar el archivo y volver a abrirlo y la macro no puede estar en el libro que cerramos.
Cuando hagas todo esto espero que te funcione com a mi me funciona.

Un saludo desde Vitoria, Servando
Archivos
NP y ot PRUEBA.xls
No tienes los permisos para descargar los archivos.
(88 KB)

8RESUELTO no va el 19/12/14, 04:38 pm

rubito1


hola servando,hice tal cual lo dijistes;el archivo fncionaba perfecto antes y ahora tambien;solo que no hace las cosas que te mencione(reitero:lo guarda como pdf ;como le cambio para que lo guarde en excel(ActiveSheet.ExportAsFixedFormat Type:=xlsm ??)
gracias
ahh y no me toma el nombre del vendeddor(es decir,anota el ultimo numero usado pero no anota el del vendedor)lo que no se es si me explique bien en lo que "no hacia"

servando


Buen día rubito1.

He probado de nuevo el fichero y a mi me hace todo lo que pides:
Guarda en formato excel el fichero y pone el nombre del vendedor.

Por favor verifica que el botón usa la nueva macro y que esta está en el libro PERSONAL.XLSB

Un saludo, Servando

10RESUELTO no va el 20/12/14, 02:12 pm

rubito1


la guarde como dijistes y se la asigne al boton de la macro
Código:
Sub GuardarPedido()

'Desproteger la hoja.
ActiveSheet.Unprotect

'Elaborar el nombre del fichero "Pedido " más el contenido de la celda "I9".
NombreFichero = "Pedido " & Cells(3, 9)

'Guardar el pedido.
'Poner en FileName:= la ruta y carpeta donde deseamos guardar el fichero.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:="E:\Mis Documentos del C\Roli\NP TEMPORARIAS 2013\PARA IMPRIMIR 2013\notas de pedido 2015" & NombreFichero, _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False
                               
'Actualizar último número de pedido utilizado.
Cells(9, 11) = Cells(3, 9).Value

'Limpiar datos de hoja "NP".
Sheets("NP").Range("I3:I4, B8:G10, B11:E13, D14:E15,B17:H17, B18:G18").ClearContents
Sheets("NP").Range("B19:I19, I8:I9,H11,H13,H14,H15,I18").ClearContents
Sheets("NP").Range("A23:H38,A40:G42,E46, H48").ClearContents

'Limpiar datos de hoja "FT".
Sheets("FT").Range("H6:H7,F12:H25").ClearContents
                               
'Proteger la hoja.
ActiveSheet.Protect


End Sub

Código:
PERSONAL.XLSB!GuardarPedido

11RESUELTO parcial el 20/12/14, 06:25 pm

rubito1


ya soluicione de que anote al vendedor tambien(faltaba agregar eso) y de como lo guarda el nombre
Código:
'Elaborar el nombre del fichero "Pedido " más el contenido de la celda "I9".
NombreFichero = "I " & Cells(3, 9)
NombreFichero2 = " vendedor  " & Cells(13, 2)
'Guardar el pedido.
'Poner en FileName:= la ruta y carpeta donde deseamos guardar el fichero.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:="E:\Mis Documentos del C\Roli\NP TEMPORARIAS 2013\PARA IMPRIMIR 2013\NP " & NombreFichero & NombreFichero2, _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False
                               
'Actualizar último número de pedido utilizado.
Cells(9, 11) = Cells(3, 9).Value
Cells(9, 13) = Cells(13, 2).Value

ahora solo me falta solucionar para que lo guarde en formato xls!

12RESUELTO casi perfecto el 22/12/14, 03:23 pm

rubito1


como estas servando,ya solucione "casi todo"(ahora ya lo guardo en formato exce);solo me queda lo siguiente;al ejecutar la macro,cierra el libro"original"y me queda abierto el "nuevo libro guardado";el tema es que el "ultimo numero usado y el vendedor"me lo anota en ese libro en vez de anotarlo en el "archivo original" y cuando yo vuelva a abrir otro dia el "original"no tendre anotado esos datos,se entiende?se puede hacer que se quede abierto el "original"en vez de el "nuevo archivo generado";adjunto archivo con correcciones(ahh,le puse para que guarde todo el libro en vez de solo la active sheet
gracias y x si no nos contactamos antes,felices fiestas para ti,los tuyos y para toda la gran gente del foro!!!!
Archivos
np y prueba casi ok.xls
No tienes los permisos para descargar los archivos.
(76 KB)

13RESUELTO voy mejorando el 22/12/14, 03:46 pm

rubito1


ni bine publique la ultima consulta,estuve probando y logre hace que cierre el nuevo archivo y abra de nuevo el original(no se si deberia ser asi o se deberia"mantener abierto"el original,pero no encuentro la forma de que anote los ultimos datos en el "original"(numero pedido y vendedor)

servando


Buen día rubito1.

He revisado la macro y en mi PC funciona bien.
Te adjunto aqui debajo tal como yo la tengo.

Sub GuardarPedido()

'Desproteger la hoja.
ActiveSheet.Unprotect

'Guardar el archivo actual.
ActiveWorkbook.Save

'Elaborar el nombre del fichero "Pedido " más el contenido de la celda "I9".
NombreFichero = "Pedido " & Cells(3, 9)

'Guardar en archivo del pedido.
'Poner en FileName:= la ruta y carpeta donde deseamos guardar el fichero.
ActiveWorkbook.SaveAs Filename:="C:\" & NombreFichero, _
                      FileFormat:=xlExcel8, _
                      Password:="", _
                      WriteResPassword:="", _
                      ReadOnlyRecommended:=False, _
                      CreateBackup:=False

'Cerrar el archivo
ActiveWorkbook.Close Savechanges:=True

'Abrir el archivo original
Workbooks.Open Filename:="C:\NP y ot PRUEBA.xls"

'Limpiar el formulario de datos.
'===============================
'Actualizar último número de pedido utilizado.
Cells(9, 11) = Cells(3, 9).Value

'Actualizar último nombre del vendedor utilizado.
Cells(9, 13) = Cells(13, 2).Value

'Limpiar datos de hoja "NP".
Sheets("NP").Range("I3:I4, B8:G10, B11:E13, D14:E15,B17:H17, B18:G18").ClearContents
Sheets("NP").Range("B19:I19, I8:I9,H11,H13,H14,H15,I18").ClearContents
Sheets("NP").Range("A23:H38,A40:G42,E46, H48").ClearContents

'Limpiar datos de hoja "FT".
Sheets("FT").Range("H6:H7,F12:H25").ClearContents
                               
'Proteger la hoja.
ActiveSheet.Protect

End Sub


Cópiala y pégala para comprobar que funciona, recuerda que debes modificar la ruta y carpeta donde desees guardar el fichero.

'Guardar en archivo del pedido.
'Poner en FileName:= la ruta y carpeta donde deseamos guardar el fichero.
ActiveWorkbook.SaveAs Filename:="C:\" & NombreFichero, _
                      FileFormat:=xlExcel8, _
                      Password:="", _
                      WriteResPassword:="", _
                      ReadOnlyRecommended:=False, _
                      CreateBackup:=False

Que tengas unas felices fiestas, Servando

15RESUELTO excel-ente el 23/12/14, 04:33 pm

rubito1


ahora si servando!!funciona todo de 10 y gracias a tus aclaraciones en los codigos pude aprender otras cosas mas!!tambien te deseo unas felices fiestas para vos ;lo doy x cerrado el tema

16RESUELTO una cosita el 23/12/14, 04:35 pm

rubito1


perdoooonnnn,lo cerre pero me quedo una duda"tecnica";porque hay que guardar la macro en "libro personal"y no x ejemplo en el mismo libro?

servando


Buen día rubito1.

Lo tenemos que guardar en PERSONAL.XLSB porque cerramos el archivo en el que estamos trabajando para guardarlo como "xxxxx", en este momento si la macro estuviera en el propio libro dejaría de correr, mientras que si está en PERSONAL.SLSB está siempre disponible mientras tengamos abierto Excel.

Te deseo Feliz Navidad y próspero 2015

Servando

18RESUELTO OK el 24/12/14, 08:23 pm

rubito1


BUENISIMO,gracias y felicidades para vos tambien!!

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.