Jump to content

Flipp

Members
  • Posts

    18
  • Joined

  • Last visited

About Flipp

  • Birthday 04/04/1980

Flipp's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Buenas gente, Me salta ese error a la hora de hacer un .select para luego hacer un Selection.Copy y pegarlo. La cuestión es la siguiente, yo tengo un botón con ese código en esa hoja de ese libro, y funciona bien. El problema viene cuando llamo a esa función desde otro libro, que es cuando me salta el error en el .select. Os pongo el código: Workbooks("040300.xls").Worksheets("Entrada Datos").Range("f9:f23") = "" Workbooks("040300.xls").Worksheets("R").Range("E2") = "i" Workbooks("040300.xls").Worksheets("Entrada Datos").Range("e9:e23").Select Selection.Copy[/CODE] El error salta en la tercera linea. Muchas gracias y un saludo.
  2. Buenas Macro Antonio, Parece que ese era el problema, ahora ha podido ejecutar el tema en ese ordenador. Te cuento como ha quedado: La carga del archivo: archivo = ThisWorkbook.Path & "\sondas" Application.ScreenUpdating = False Workbooks.Open (archivo) Set xlsheet = ActiveWorkbook.Sheets(1) ThisWorkbook.Activate [/CODE] El cierre del archivo: [CODE] Application.CutCopyMode = False Application.Workbooks("sondas.xls").Close savechanges:=False Set xlsheet = Nothing [/CODE] Ya para rematar la jugada ( y dejarte tranquilo por el momento), el archivo de sondas que se abre, hay algún modo de ocultar que se abre? Me explico, al llamarlo, se abre, aparece en la barra de abajo de windows abierto, y luego se cierra. Se podría hacer eso en segundo plano para que el que lo usa nisiquiera sepa que se abre? Muchas gracias
  3. Hola Macro antoni, en tu ejemplo de eliminar el xl y el xlwbook que usaba yo, que usarias para cerrar ese archivo que abro? Yo estaba usando esto: Application.CutCopyMode = False 'xl.Quit xl.ActiveWorkbook.Close False Set xlsheet = Nothing Set xlwbook = Nothing Set xl = Nothing [/CODE] Que usarías tu? porque no se como nombrarlo. Muchas gracias
  4. Hola Macro antoni, dejame probarlo el fin de semana y te cuento el lunes. muchas gracias!!
  5. Hola Macro Antonio, Uso las siguientes lineas para abrir un archivo en segundo plano para coger datos de él. archivo = ThisWorkbook.Path & "\sondas" Set xl = CreateObject("Excel.Application") Set xlwbook = xl.Workbooks.Open(archivo) Set xlsheet = xlwbook.Sheets.Item(1)[/CODE] Pero ya te digo que este error sólo me da en uno de los ordenadores, por lo que no creo que sea ese el problema, aunque estoy algo perdido. Muchas gracias!
  6. Buenas tardes gente, Me ha surgido un problemita con un archivo excel. En mi ordenador, ejecuto su código mediante un botón y no tengo ningún problema. Pero ese mismo archivo ejecutado desde otro ordenador, hace saltar el siguiente mensaje: Error de automatización, -2147221163 ( 840155). Sabeis interpretar este error? La versión del excel que hay en mi ordenador ( 2002) y en el otro ( 2003) es diferente, pero he probado en otro ordenador que también tienen la 2003 y funciona. Si le doy a depurar, el error se sitúa justo en esta zona: archivo = ThisWorkbook.Path & "\sondas" Set xl = CreateObject("Excel.Application") Si me podeis echar una mano, os lo agradecería. Un saludo y muchas gracias!
  7. Hola: Luis, el problema que tenia con el tema de "Clickar un botón en otro archivo" era por el nombre del archivo con guiones al final. Aplicando lo que ha comentado Macro de renombrar el archivo y volver a renombrarlo funciona bien. Gracias por todo a los dos
  8. Buenos días gente, Estoy intentando llamar de un archivo a otro para ejecutar una macro del segundo, pero tengo un problema con el nombre del archivo. El segundo archivo se llama "04-03-0-0", y al usar esto: Workbooks.Open ThisWorkbook.Path & "\04-03-0-0.xls" Application.Run ("04-03-0-0.xls!rellenar")[/CODE] me da error de que no encuentra la macro. Si el archivo se llama de cualquier otra forma que no incluyan los guiones medios no me da ningún error. Alguien me puede decir como llamar a ese macro conservando los guiones del nombre del archivo. Muchas gracias!
  9. re: [sOLUCIONADO] "Clickar" un botón de otro archivo Gracias chicos, ahora no puedo probarlo, en cuanto pueda lo intento y os comento. Gracias
  10. re: [sOLUCIONADO] "Clickar" un botón de otro archivo Hola de nuevo Macro, Siento ser pesado pero creo que algo estoy colocando mal porque me abre el segundo archivo pero no me ejecuta el código, te pego tal cual lo tengo: En el click del botón del libro1: Private Sub CommandButton1_Click() On Error Resume Next Application.ScreenUpdating = False Workbooks.Open ThisWorkbook.Path & "\libro2.xls" Application.Run ("libro2.xls!rellenar") Workbooks("Libro2.xls").Close '<============= End Sub[/CODE] [b]En el módulo del libro2:[/b] [CODE]Option Explicit Sub rellenar() MsgBox ThisWorkbook.Sheets(1).Cells(5, 2) If ThisWorkbook.Sheets(1).Cells(5, 2) = "Medida mV" Then ThisWorkbook.Sheets(1).Range("f9:f23") = "" ThisWorkbook.Sheets(2).Range("E2") = "i" ThisWorkbook.Sheets(1).Range("e9:e23").Select Selection.Copy ThisWorkbook.Sheets(1).Range("f9:f23").Select Selection.PasteSpecial Paste:=xlPasteValues ThisWorkbook.Sheets(2).Range("E2") = "d" ThisWorkbook.Sheets(1).Range("e9:e23").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteFormulas Else ThisWorkbook.Sheets(1).Range("f9:f23") = "" ThisWorkbook.Sheets(2).Range("E2") = "" End If End Sub[/CODE] [b]Y en el click del boton del libro2:[/b] [CODE]Private Sub CommandButton1_Click() rellenar End Sub[/CODE] Pulsando yo mismo el boton del libro2 funciona bien, pero pulsando el boton del libro1, abre el archivo pero ni siquiera ejecuta el primer msgbox. Muchas gracias.
  11. re: [sOLUCIONADO] "Clickar" un botón de otro archivo Gracias Macro Antonio, funciona muy bien. Mi plantilla segunda tiene un botón que es lo que tendría que activar desde la otra, a ver si lo puedo amoldar a esto. Muchas gracias de verdad!
  12. re: [sOLUCIONADO] "Clickar" un botón de otro archivo Hola Macro Antonio, gracias por responder, pero no era eso lo que buscaba. En tu ejemplo, el boton del libro1 abre el libro2, y el boton del libro2 ejecuta el msgbox. Yo quería que el boton del libro1 directamente abriera libro2 y que también ejecutara el click del boton del libro2 ( digo ejecutar el click pero también me valdría ejecutar una función almacenada en el libro2). No se si me explico, lo intento
  13. Buenos días gente, Tengo la siguiente duda: Imaginaos que tengo dos archivos, libro1 y libro2. En la primera hoja del libro1 tengo un botón1, que al pulsarlo, debería abrir en segundo plano el libro2, pulsar el botón2 que hay alli, y que ejecute lo que haga ese botón ( un simple msgbox por ejemplo). Lo intento pero no hay manera, he intentado crear una función en libro2 en vez de tener que pulsar ese botón, pero no se como llamarla. Me podeis echar una manita? Muchas gracias de antemano:D
  14. Buenas gente, He estado mirando por el foro y no he encontrado nada que me funcione, por eso es pregunto esto: Hoja2.Cells("E2").formula = "=IF(D2<>'Medida mV';'';'i')" Me da un error de "No coinciden los tipos", como puedo corregirlo? La "i" que aparece no es ninguna variable, sólo escribo el caracter. Muchas gracias de antemano!
  15. Re: Búsqueda de un valor con dos condiciones Muchas gracias de nuevo logroastur! Funciona perfectamente!! En el futuro la plantilla variará el tamaño de los grupos y asi, por lo que tendré que ir cambiando los rangos de la formula cada vez que eso pase, pero no creo que tenga mayor problema. Me estaba volviendo un poco loco con el problema, tendré que estudiarme bien la formula que me diste. Muchas gracias de nuevo!!
×
×
  • Create New...

Important Information

Privacy Policy