Quiero importar los datos de mis turnos de la intranet de mi trabajoa una hoja de excel pero cuando pongo el enlace para importarlo se trata de un link en el que hay que introducir primero unas claves de acceso y depues elegir de una pantalla la opción que me lleva al calendario que deseo exportar. Cuando lo he intentado de forma normal me exporta una serie de datos erroneos y sin sentido. Por si sirve de algo el primer enlace es http://intranet.globaliacc.com/ - TRas introducir las claves se accede al enlace http://intranet.globaliacc.com/globaliacc/jsp/intranet/index.jsp -Despues he de elegir la opcion aplicaciones y despues calendario de grupo - Es entonces cuand…

Buenas tardes a todos. Se trataría de definir una variable tipo String, que almacenaría nombres de distintas macros. La variable toma el nombre de la macro según se cumplan unas condiciones. Hasta ahí fácil. Haciendo un debug, sale perfectamente cada nombre cuando toca. El problema viene al hacer un call de esa variable para que ejecute la macro cuyo nombre contiene en ese momento. He probado esto: call nombre_variable y alguna cosa más. Pero no debe ser por ahí el tema, porque o me dice "la macro x no está disponible" o cualquier error más. Os agradezco mucho vuestra ayuda. Un saludo

hola a todos: bueno les cuento, tengo un formulario en el cual tengo un botón para buscar un archivo que luego lo ingreso como hipervinculo en una celda del excel, ademas tengo un botón para imprimir, acá esta mi duda, como puedo imprimir la hoja del libro de excel mas los archivos que yo ingrese los cuales están como hipervinculos ... (los archivos que quiero imprimir son "pdf" y "word") acá adjunto el archivo ojala me puedan ayudar ... Saludos. Salexis89 hiperlink.xls

como agrego un scrollbar al listbox? saludos

Buenos días, Lo primero que esteis bien junto con vuestras familias. La siguiente macro funcionaba en excel 2016 y ha dejado de funcionar en excel 365. Lo curioso es que si lo ejecuto paso a paso (PF8) funciona pero si se jecuta la macro de corrido no exporta las imagenes y necesito exportar mas 500. Heprobado a poner un delay hasta de 10 sg ¿Podríais ayudadme por favor? Muchísimas gracias y un cordial saludo. ---------------------------------------- Sub CopiaCeldasGrabaImagen(ruta) Dim RangoC As Range Dim Archivo As String Dim Imagen As Chart Dim Result As Boolean Archivo = ruta & ".gif" Set Rango…

Qué tal, Os preguntaréis qué hace este preguntado algo así... pues es que me ha surgido una duda la diseñar un formulario. Tengo varios controles agrupados (listbox, textbox y commandbutton). Veo que en propiedades, si selecciono el grupo, puede activarlo/desactivarlo, pero... No hay nombre de grupo para seleccionarlo en tiempo de ejecución. Si lo desactivo en propiedades, al lanzar el formulario aparecen todos los controles incluidos desactivado (normal, lo he hecho en propiedades ), pero no encuentro manera de hacerlo en tiempo de ejecución, porque no tiene nombre asignado. Ya sé que con un marco lo puedo hacer, pero me ha surgido esta curiosidad. ¿Alguna…

Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias

Hola, tengo esta macro y poquisimo conocimientos del tema. La macro deberia eliminar la hoja cuyo nombre se escriba en el InputBox nombre hoja, pero se detiene cuando deberia tomar el nombre de la hoja. Sub EliminaCuenta() Application.ScreenUpdating = True Dim NombreHoja As String Dim Entrada As String Dim cuenta As Worksheet Entrada = InputBox("Ingrese contraseña para continuar", "Proceso Protegido") If Entrada = "nacho" Then If MsgBox("Estas seguro de borrar una cuenta? No podrá recuperarse", vbQuestion + vbYesNo) = vbYes Then NombreHoja = InputBox("Escriba un nombre de la cuenta:") NombreHoja = cuenta<--Esta parte es donde se detiene la m…

Buenos dias colaboradores, me gustaria que me orientaran para poder ejecutar esta macro, sin la necesidad de crear un nuevo libro y que ejecute un modulo despues de abrir el libro: Sub Crea()Dim nombre, libro, nombre_final, libro_final As String Set XL = CreateObject("Excel.Application") XL.Visible = True para = 0 a = 0 'Creamos el libro resultante nombre_final = Cells(3, 3) & "." & Cells(2, 3) libro_final = Cells(1, 3) & "\" & nombre_final While (para = 0) nombre = Cells(5 + a, 1) libro = Cells(1, 3) & "\" & nombre If nombre <> "" Then XL.Workbooks.Open libro If a = 0 Then XL.ActiveWorkbook.SaveAs libro_final,…

Buenos dias estoy haciendo un programa para los partidos de balonmano . Necesito un boton que sume 1 al valor numerico de la celda que haya selecionado . i otro boton que que reste -1 valor numerico de la celda que haya selecionado .

Buenos días, He creado una ficha en la que resumo los datos anuales de la actividad que tiene un cliente. Éstos datos los importo de la primera hoja del libro. Pero ésta primera hoja siempre tiene un numero diferente de filas, (los datos de ésta hoja 1 los pego desde otro libro en excel que recibo de otra fuente distinta). Necesito una macro o una formula que me permita crear una fila en mi ficha (hoja 2) después de la última fila activa de la hoja 1 y luego en ésta ultima fila creada pondré tres formulas distintas. Una para que me cuente el número de filas que tiene el archivo y otras dos para que me calculen el promedio de los datos que hay en dos determinadas columna…

Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …

Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos! Option Explicit Sub Open_All_Files() Dim oWbk As Workbook Dim sFil As String Dim sPath As String sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\" ChDir sPath sFil = Dir("*.xlsx") Do While sFil <> "" oWbk = Workbooks.Open(sPath & "ID1 ISLA BILBAO.xlsx") ThisWorkbook.Activate Sheets("Isla").Select With …

Hola a todos. Llevo un tiempo dándole vueltas a este ejercicio y no acabo de sacarlo. Quería saber si podéis ayudarme a resolverlo. Tengo una tabla con 2 columnas (Alumno, Idioma) en la Hoja3. Necesito añadir los valores únicos de la columna "Alumno" a un ComboBox para que sólo aparezca una vez cada nombre. Después al seleccionar un nombre en el ComboBox pasaría automáticamente a la Hoja2 y cargaría en el Combobox de esa hoja los idiomas de la columna "Idiomas", pero sólamente los que tenga el alumno que hemos seleccionado en el Combobox de la Hoja1. Por ejemplo: - Se abre el archivo por la Hoja1 - En la lista "Alumn…

Buenas tardes a todos; -Tengo un procedimiento para crear una marca de agua en el encabezado. -¿Sería posible que dicho encabezado esté centrado en la hoja? Gracias de antemano y saludos a todos. MAgua.zip

Hola chicos! hace poco publique un post sobre mi problema para leer los datos de una bascula TORREY, bueno, eso ya solucionado, en parte. Resulta que cuando leo los datos tengo que declarar mi variable "Peso" como String, si la declaro como double o byte me marca error, y necesito tomar solo el numero (ej. 0.406 kg solo necesito leer 0.406) para poder sacar el porcentaje en base a otros kilos ingresado anteriormente en una pagina llamada Estimaciones. Espero me puedan orientar o ayudar con esto Adjunto el archio =) Muchas Gracias! =) DatosBasculaxlsx.rar

En el archivo que adjunto hay un modulo llamado modulo 1 en el que quisiera ejecutar todas las macros de los otros módulos que estan en el mismo libro pero no sé solucionar el error que me dá. Alguien puede ayudarme? Muchas gracias al foro y a los colaboradores Borja aleman 2013-14.zip

extraer siglas o iniciales de un nombre completo exeptuando "del" o "de" hola buenas noches aqui molestando con otra duda pues quiero hacer que en un textbox aparezcan las iniciales que contenga otro textbox: es decir; ejemplo: que si el -txtnombrecompleto- contiene "juan perez velazquez" quiero que en el -txtsiglasnombrecompleto- aparescan "jpv", pero si el -txtnombrecompleto- contiene "maria de los angeles montenegro barraza" que en el -txtsiglasnombrecompleto- "mamb" y elimine ese "de" o si fuera el caso de "maria del pilar" quite ese "del". Estuve investigando en la red del como hacerlo pero ninguno tiene esas excepciones que necesito y pues hasta ahorita no se c…

Buenos días, De antemano muchas gracias por vuestra ayuda. Necesito *******mente crear una macro que copie y pegue datos de un rango entre dos archivos de excel diferentes. Tengo los archivos ECUA11 y ECUA; los dos tienen una única hoja (datos) y están en la carpeta C:\Macro. Necesito lo siguiente: una macro para copiar de ECUA11 el rango de celdas B3:H20 y pegarlo -como valores- en ECUA en el rango B3:H20. Hasta el momento, desde ECUA11 he logrado llamar y abrir el archivo ECUA y también seleccionar en ECUA11 el rango a copiar; a partir de ahí no he sido capaz de pegar los datos ya que siempre me falla (especialmente porque no tengo muy claro que tengo que poner en …

Por favor alguien me pude ayuda con una macro para la siguiente rutina adjunto una imagen y les voy agradecer

Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel. pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio. Set r = Sheets("RESUMEN") uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1 'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents Dim Fcc As Date 'Declaracion de variable de tipo fecha Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS…

Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…

Buenas noches... En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen... Cada columna tiene su comentario, pero la restricción es solo para las que dicen: No se permiten números 0123456789 No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;) ¿Es posible con macro? plant.xlsm

Buen día, tengo el siguiente problema: Necesito insertar un comentario en una celda de un registro de datos que se va completando a través de un Userform. Uso el siguiente código (En rojo, las líneas que insertan el comentario en la celda): Set TransRowRng = ThisWorkbook.Worksheets("RESUMEN GENERAL").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("RESUMEN GENERAL") .Cells(NewRow, 1) = CDate(txtFechaUno) .Cells(NewRow, 2) = UCase(TextBox1.Value) .Cells(NewRow, 3) = Format(TextBox3, "00"".""000"".""000""-""0") …

Hola!! Quisiera que me ayuden al seleccionar una opcion de la lista desplegable de validacion de datos me de toda la informacion relacionada a esa opcion, ejemplo es decir yo tengo los meses en la lista desplegable de una data y que al seleccionar ENERO ME ARROJE las ventas de ese mes , los clientes, etc. Me pueden decir si puedo hacerlo con macros manualmente ya que no manejo visual y diganme coo hacerlo porfa. Les adjunto un archivo de ejemplo Ejemplo vd.xls