............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Nombre aleatorio con MACRO

Ver el tema anterior Ver el tema siguiente Ir abajo

Nombre aleatorio con MACRO

Mensaje por sickonineteen el Lun Ene 17, 2011 2:58 pm

Hola amigos, nuevamente con otro tema, pero con el mismo archivo:

Código:
http://www.mediafire.com/?351gujlb1x2r094

Ahora el asunto akí es cada semana cambia el nombre de mi archivo:

Código:
Sub hacetodoHORMIGA()
'
' hacetodoHORMIGA Macro
'

'
    Windows("INCIDENCIAS HORMIGA 03-09 ENE.xls").Activate

Lo que quisiera saber es si con este macro excel puede detectar el archivo automáticamente sin que yo tenga que cambiar el nombre manualmente en la macro cada semana.

Saludos y gracias de antemano!!!


sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por moises melgar el Lun Ene 17, 2011 8:11 pm

hola te suguiero analizar este tema
[Tienes que estar registrado y conectado para ver este vínculo]
para poder adaptar la idea a tu situacion, mañana ingresare al foro con mas calma, de mientras solo estoy de paso.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por sickonineteen el Lun Ene 17, 2011 11:21 pm

ok, lo reviso, muchas gracias ya voy a descansar por hoy

sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por GalileoGali el Mar Ene 18, 2011 7:43 am

"Si VB puede detectar el archivo automáticamente...."

¿y por qué razón crees que VB va a detectar ese archivo y no aquel????
-El archivo en cuestión es el mismo que tiene la macro???
-De no ser así, se trata de archivo guardado en determinada Carpeta y habría que elegir el más "joven" o el más "viejo", analizando las fechas de Modificación
-¿El archivo surge de una elección libre del usuario?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por sickonineteen el Mar Ene 18, 2011 1:59 pm

Mira el documento cambia de nombre cada semana porque son para capturar incidencias de mis empleados y como son semanales por eso lo del nombre aleatorio jeje, pero creo ke ya lo estoy solucionando

gracias!!!

sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por moises melgar el Mar Ene 18, 2011 3:02 pm

disculpa ese "03-09" del nombre del archivo que representa????
es dd-aa o mm-aa ???? o representa la semana del año 2009??
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por sickonineteen el Mar Ene 18, 2011 3:05 pm

disculpa son los días de la semana del 03 al 09 de enero jeje

sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por moises melgar el Mar Ene 18, 2011 3:20 pm

ok comprendo vere que pueedo lograr
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por sickonineteen el Mar Ene 18, 2011 3:20 pm

muchas gracias!!!!

sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por moises melgar el Miér Ene 19, 2011 2:08 pm

para que el nombre del archivo se modifique para que muestre el intervalo de la semana en el que se encuentra (use formula del libro de las no se cuantas formulas de excel de gali:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Name = Evaluate("=""INCIDENCIAS HORMIGA ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))),""00"")&"" al ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))+6),""00"")") & " " & Evaluate("=HLOOKUP(MONTH(TODAY()+1),{1,2,3,4,5,6,7,8,9,10,11,12;""ENE"",""FEB"",""MAR"",""ABR"",""MAY"",""JUN"",""JUL"",""AGO"",""SEP"",""OCT"",""NOV"",""DIC""},2,)") & ".xlsm" Then
ThisWorkbook.Save
ThisWorkbook.Close
Else:
ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Evaluate("=""INCIDENCIAS HORMIGA ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))),""00"")&"" al ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))+6),""00"")") & " " & Evaluate("=HLOOKUP(MONTH(TODAY()+1),{1,2,3,4,5,6,7,8,9,10,11,12;""ENE"",""FEB"",""MAR"",""ABR"",""MAY"",""JUN"",""JUL"",""AGO"",""SEP"",""OCT"",""NOV"",""DIC""},2,)"), xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub

ahora para que tus macros puedan buscar este libro en vez de colcoar:
"INCIDENCIAS HORMIGA 03-09 ENE.xls"
coloca
Código:
Evaluate("=""INCIDENCIAS HORMIGA ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))),""00"")&"" al ""&TEXT(DAY(MAX((WEEKDAY(TODAY()+1-{1,2,3,4,5,6,7})=2)*(TODAY()+1-{1,2,3,4,5,6,7}))+6),""00"")") & " " & Evaluate("=HLOOKUP(MONTH(TODAY()+1),{1,2,3,4,5,6,7,8,9,10,11,12;""ENE"",""FEB"",""MAR"",""ABR"",""MAY"",""JUN"",""JUL"",""AGO"",""SEP"",""OCT"",""NOV"",""DIC""},2,)") & ".xlsm"

PD:Para el mes al principio utilice =Mayusc(texto(hoy(),"mmm")), pero al evaluarla VBa sale en Ingles, por lo que sustitui por buscarH
adjunto ejemplo


Última edición por moises melgar el Lun Ene 24, 2011 10:01 pm, editado 3 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por sickonineteen el Miér Ene 19, 2011 2:21 pm

WOWOWOWOWOW!!!!!!

muchas gracias moises, está muy bien esa macro, lo ke yo estaba pensando también hacer un comando ke llame a un "buscar documento" para solo seleccionar el documento y listo, la información es la misma. lo ke tu hiciste me dio muchas ideas para otros documentos muchas gracias de verdad!

saludos!

sickonineteen

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : méxico
Version de Excel : 2007
Fecha de inscripción : 15/01/2011

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por moises melgar el Vie Ene 21, 2011 7:49 pm

Abrir libro ?? no comprendo muy bien lo que tienes que realizar pero te envio un ejemplo muy sencillo de lo que deseas hacer

Código:
Private Sub CommandButton1_Click()
On Error GoTo Fin
Dim Archivo
Dim TiposArchivos As String
TiposArchivos = "Libro de Excel (*.xlsx),*.xlsx,Libro de Excel código (*.xlsm),*.xlsm,Libro de Excel 97-Excel 2003 (*.xls),*.xls"
Archivo = Application.GetOpenFilename(FileFilter:=TiposArchivos, Title:="Abrir libro")

If Archivo = False Then
Exit Sub
Else:
Hoja1.Range("B8").Value = Archivo
Workbooks.Open (Archivo)
ThisWorkbook.Activate
End If
Fin:
End Sub

el nombre "Archivo" representara la ruta que normalmente vez en los codigos entre comillas ejemplo
Workbooks.Open ("C:\Documents and Settings\Usuario\Mis documentos\archivo.xlsx")

avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Nombre aleatorio con MACRO

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.