Jump to content

Abre muchas veces cuadro de dialogo abrir archivo


Recommended Posts

Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre en una variable que uso en las formulas )abierto ya no me muestre ese cuadro para abrirlo.


Nombre_hoja = ActiveSheet.Name

NArchivo = ActiveWorkbook.Name

Archivo = Application.GetOpenFilename

Workbooks.Open Filename:=Archivo

NArchivoTotal = ActiveWorkbook.Name

Sheets("Reporte").Visible = True

Windows(NArchivo).Activate

'identifica el numero de fila en el que se encontro el dato buscado

Fila = [a65536].End(xlUp).Row 'identifica la ultima fila con datos de la hoja

ActiveCell.FormulaR1C1 = _

"=MATCH(RC[-9],'[NameArchivoTotal]Reporte'!R1C2:R100646C2,0)" 'escribe la formula en la celda P4

Selection.AutoFill Destination:=Range("J2:J" & Fila) 'arrastra la formula hasta la ultima fila

'De arcuerdo al indice encontrado anteriormente copia el dato del archivo referencia al archivo activo

Range("K2").Select

Fila = [a65536].End(xlUp).Row

ActiveCell.FormulaR1C1 = _

"=INDEX('[NameArchivoTotal]Reporte'!R1C11:R100646C11,RC[-1])"

Selection.AutoFill Destination:=Range("K2:K" & Fila)

[code]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Hola a ambos, @gonzalomadrid, en Word de M365 sí funciona. Basta con que escribas =rand() para que te aparezca el texto. Si eliges =rand(2,3) te aparecerá un texto con 2 párrafos y 5 operaciones. En Excel, hasta donde yo sé, es diferente. Tal como te comenta @Abraham Valencia, dispones de =ALEATORIO() y =ALEATORIO.ENTRE() para generar números aleatorios. El propio 'Help' de Excel explica muy bien argumento y sintaxis de ambas funciones. Saludos,  
    • Hola, descargar mejor la versión (2). Saludos. MImgUrl(2).xlsm
    • Hola Medio enredado lo que escribes, pero creo que en realidad lo que buscas es ALEATORIO.ENTRE o RANDBETWEEN si usas Excel en inglés.    
    • Muchas gracias a todos por sus aportes, me han resultado de mucha utilidad, al final lo pude resolver utilizando temporalmente la funcion de reemplazar para sacar la operacion requerida y despues de eso lo volvi a dejar como estaba. Un saludo para todos
    • aquel famoso - y antiguo-    = Rand (8,5)   ¿funciona en    en excel 2019? y de paso ¿funciona en word 2019 y demás office? A mi no me funciona ni a tiros, ni ese ni   = Rand () ni Lorem Ipsum() ni nada parecido para meter texto dummy o aleatorio. ¿alguien  sabe algo?  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy