Jump to content

José María Aguilar

Members
  • Content Count

    52
  • Joined

  • Last visited

About José María Aguilar

  • Rank
    Advanced Member
  • Birthday 05/15/1969

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola, me está pasando lo siguiente, pero solo en un libro de excel, y debe ser porque he tocado algo que no se lo que es. Al insertar una nueva hoja en el libro me pone todas las celdas en formato -€, y lo que quiero es que todo el formato esté en general como hace siempre excel por defecto. Gracias.
  2. Hola, quería saber si es posible desde programación EXEL crear, modificar y borrar vistas sin necesidad de hacerlo desde mysql directamente. Y de ser así como es posible hacerlo. Un saludo y gracias de antemano.
  3. Hola! He conseguido resolver esta cuestión de la siguiente forma. Definiendo una variable de tipo workbook, luego recorro todos los libros y cierro este. Lo pongo así porque no se como cerrar directamente el libro en cuestión. Pero el caso es que así no da problemas. Dim LIBRO As Workbook For Each LIBRO In Workbooks If LIBRO.name = "Nombre_Archivo.xls" Then Workbooks(LIBRO.name).Close savechanges:=False End If Next Gracias y Tema solucionado.
  4. Hola a todos, me estoy encontrado con un problema, y no le encuentro solución por ninguna parte. Cuando desde un libro de excel llamo a otro y le pido que me ponga un formulario de otro excel, y repito esta acción varias veces, este ya no aparece, y no logro entender porque esto sucece. Adjunto dos archivos con el asunto en cuestión. Como siempre, muchas gracias por vuestra ayuda. PRIMERO.xls SEGUNDO.xls
  5. Hola, estoy atascado en lo siguiente. Si a una forma le genero un hipervículo, despúes si le pongo que acceda a una macro determinada no funcionan las dos cosas a la vez; esto parece lógico ya que al pinchar sobre una forma no puede generar dos eventos; como alternativa lo que estoy buscando es que voy creando las formas en ejecución y también quiero que me cree el hipervínculo en ejecución y poder decirle a que celda quiero que se dirija para cuando detecte que ha llegado a esa celda me genere la macro. La cuestión es que no se meterle la dirección en el hipervínculo que genero en ejecución y me da un error. A la espera de vuestra contestación, como siempre muchas gracias. HIPER.xls
  6. Hola, creo que he encontrado una solución que además sirve para todas las tablas dinámicas que pongamos en el libro con conexiones a datos, llevo un par de horas probando y no me ha vuelto a dar errores, dejo el código por si a alguien le puede ser de utilidad. Sub actualiza_datos_TD(NOMBRE_CONEXION, SQL, NOMBRE_BASE_DE_DATOS, NOMBRE_TABLA_DINAMICA As String) Dim NOMBRE_CONEXION_CAMBIADO As String With ActiveWorkbook.Connections(NOMBRE_CONEXION).ODBCConnection .BackgroundQuery = False .Connection = "ODBC;DSN=" & NOMBRE_BASE_DE_DATOS & ";" .CommandText = SQL .CommandType = xlCmdSql .ServerCredentialsMethod = xlCredentialsMethodIntegrated .Refresh End With NOMBRE_CONEXION_CAMBIADO = ActiveSheet.PivotTables(NOMBRE_TABLA_DINAMICA).PivotCache.WorkbookConnection If (StrComp(NOMBRE_CONEXION_CAMBIADO, NOMBRE_CONEXION) <> 0) Then ActiveWorkbook.Connections(NOMBRE_CONEXION).Delete ActiveWorkbook.Connections(NOMBRE_CONEXION_CAMBIADO).name = NOMBRE_CONEXION End If End Sub Un saludo a todos y gracias. Tema solucionado
  7. Hola, estoy conectando con una base de datos Mysql a través de vba, y generando una tabla dinámica. Tengo una variable que denomino SQL de tipo String la cual voy cambiando para cambiar las consultas que voy haciendo, en este caso con SELECT. Pues bien, al llevar el programa al punto donde tengo .CommandText = SQL, me cambia el nombre de la conexión que tenía definido y me lo renombra como (Conexión1), lo que me deja sin la conexión que tenía a la BBDD. Cuando repito este mismo proceso con tablas que NO son dinámicas, no sucede esto y funciona todo perfectamente, cambiando las SELECT y generando tablas sin ningún problema. No puedo poner un archivo de ejemplo ya que están vinculados a las bases de datos. Incorporo el código que estoy usando: Sub actualiza_datos(NOMBRE_CONEXION, SQL, NOMBRE_BASE_DE_DATOS As String) With ActiveWorkbook.Connections(NOMBRE_CONEXION).ODBCConnection .BackgroundQuery = False .CommandText = SQL .CommandType = xlCmdSql .Connection = "ODBC;DSN=" & NOMBRE_BASE_DE_DATOS & ";" .CommandText = SQL .RefreshOnFileOpen = False .SavePassword = False .SourceConnectionFile = "" .ServerCredentialsMethod = xlCredentialsMethodIntegrated .AlwaysUseConnectionFile = False End With ActiveWorkbook.Connections(NOMBRE_CONEXION).Refresh End Sub A ver si hay suerte y muchas gracias como siempre.
  8. Hola Macro Antonio! Está perfecto para lo que necesito y además vuelves a enseñarme cosas muy productivas, le haré los cambios par adaptarlo a mi código. Una vez más muchas gracias. Tema solucionado.
  9. Hola, estoy intentando realizar la siguiente operación. Quiero seleccionar un rango de celdas con el ratón y posteriormente llevarlas a otra posición, pues bien, lo que necesito es saber la posición que tenían en origen y también en destino, dejo un archivo pero creo que va a liar más que ayudar. PRUEBA HOJA CAMBIAR RANGOS DE SITIO.xls
  10. Hola estóy intentando con un botón que una gráfica cambie la fuente de datos, si lo hago de forma manual me lo realiza sin problema, pero cuando grabo una macro y la voy a utilizar me lanza un error. Gracias CAMBIO LEYENDAS GRAFICOS.xls
  11. Hola, lo que busco que que ENE en lugar de salir a la derecha del check salga debajo Algo así ▄ ▄ ▄ ENE FEB MAR
  12. Hola, quería saber si existe alguna forma (Sin usar una etiqueta) de poner el texto de un checkbox debajo de este en lugar de a derecha o a izquierda. Gracias y un saludo. EJEMPLO CHECKBOX.xls
  13. Ok, es perfecto me viene muy bien, muchas gracias. Ahora veré que es eso de displayalerts. Tema solucionado.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png