Hola, Estoy intentando determinar en que se basa el excel para establecer las (L)íneas (D)iscontinuas (Q)ue (S)eparan (L)as (Z)onas (Q)ue (V)an (A) (S)er (I)mpresas, o para abreviar (LDQSKZQVAS), que segun mi experiencia, varian a la hora de modificar alturas, anchuras y formatos de celda, (Me refiero a esas lineas misteriosas que aparecen al regresar a la hoja tras haber realizado una vista preliminar de la hoja) En cada prueba que he realizado, antes de tomar las medidas, he aumentado la altura de la celda anterior a la LDQSKZQVAS para ajustar la línea al máximo, o dicho de otra forma, dejando la altura de la fila anterior a la LDQSKZQVAS de tal forma que aumentando …

Hola amigos, por acá con una dificultad para mi. Por favor si me pudieran ayudar se les voy a agradecer muchísimo. He intentado con este código, pero me traslada toda la tabla. Si alguien me puede echar una manito para mejorar la consulta, la cual solo quiero que me transfiera el "último" registro del campo llave de acces a la Hoja2 Celda B5 y no a la Hoja 1 como lo hace ahora Sub escribirexcel() Dim cs As String Dim sPath As String Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset sPath = ThisWorkbook.Path & "\datos.accdb" cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;" Set c…

hola que tal no se como poder poner un listbox con barra de dezplamiento horizontal ¿alguna sugerencia? este es mi codigo que no funciona Private Sub Lst_nombres_Click() Call DisplayHScroll End Sub Private Sub DisplayHScroll() Me.Lst_nombres.IntegralHeight = True Dim x As Integer For x = 0 To 10 Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " es un texto muy largo") Next x Me.Lst_nombres.HorizontalScrollbar = True Dim g As System.Drawing.Graphics g = Lst_nombres.CreateGraphics() Dim hzSize As Integer g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width Me.Lst_nombres.H…

Hola, quisiera saber si es posible colocar en alguna parte de un documento la IP externa del equipo en el cual se utiliza dicho documento. Gracias

Hola compañeros, tengo una consulta rápida que haceros: Quiero mostrar el nombre del mes según el número, y tengo la siguiente macro: MsgBox "Estamos en el mes: " & Month(Now) & vbCr & "Estamos en el mes: " & Format(Month(Now), "mmmm") Sin embargo, me muestra la siguiente información: Obviamente, el mes número 3 se corresponde con el mes de MARZO y no de ENERO. Agradezco cualquier tipo de ayuda. Muchas gracias por vuestro tiempo. Saludos.

buenas tardes amigos hace tiempo encontré una consulta en otro foro pero es exactamente lo que necesito espero me puedan ayudar en esta ocasión quisiera pedir apoyo para lograr un control de Inventario Bajo tres Variables de Control, es decir, en lugar de solo controlarlo por medio del Item, también se pueda ese control con Lotes y Caducidades. He intentado varias cosas pero no logro cristalizar mi idea.... Dado esto, es que no subo un archivo, solo comparto la idea por si alguien lo tiene o lo sabe hacer. Se Ingresarían al Inventario Productos que tienen un código de Referencia, un Lote de Fabricacion y una Fecha de Caducidad, el proveedor puede surtir un solo codico…

Buenos días genios de excel; Aquí estoy de nuevo con mis desvelos. Estoy intentando aplicar un macro a mi libro, pero no domino VBA y tampoco he sido capaz de aplicar las macros que ido encontrando por ahí. Mi intención es la siguiente: Quiero crear un botón (“GUARDAR PDF”) para cada una de las hojas: PRESUPUESTOS, CARTA Y ORDEN DE TRABAJO, fuera del área de impresión o, al menos, que no aparezca en las hojas impresas y que sea capaz de crear una carpeta (Si la carpeta ya está creada, sólo guardar el archivo en ella) y guardar cada una de las hojas independientemente de las otras, en formato pdf, en una ruta especificada (C:\COMPARTIR\CLIENTES\). El nombre de la carpe…

Hola a Todos, Pues esta vez quisiera hacerles la consulta de como puedo hacer que un TextBox solo Ingrese Numeros con separador de Miles y 2 decimales (Ej. 2,300.00), tal vez sea muy simple pero no se como hacerlo:( Gracias de Antemano. Saludos

Hola a todos, si alguien me pudiera ayudar a modificar una macro que encontré por ahí, la cual consolida varias columnas en una sola, para ello primero se tiene que seleccionar el rango a consolidar y luego ejecutamos la macro y la consolidación se realiza justo en la columna siguiente del rango seleccionado y lo que deseo es que la consolidación se realice pero no en la columna siguiente si no en la tercera columna siguiente del rango seleccionado. Muchas gracias Sub rango_columnas() 'macro une varias columnas en una sola columna 'para ello primero seleccionamos el rango a unir 'y luego ejecutamos la macro Dim rango As Variant Dim i As Long…

Muy buenas tardes. macro para generar archivos planos para Facturador Sunat (*.LEY, *.TRI, *.CAB, *.DET

Hola , Buenas Tardes , agradeceria cualquier ayuda para automatizar este problema Con la planilla lo que obtengo es el directorio de trabajo que se llama originales para efecto de este ejemplo Datos Tengo una cantidad no definida menor que 40 de archivos pdf en carpetas FA,FB, para este ejemplo,pudiendo ser más FC,FD etc. Necesito introducir numeros correlativos en cada pdf partiendo de 01FA hasta 40 FA (05FA en este ejemplo) , pero no tomando el 00FA , el resultado de esto seria mover 00FA a la Carpeta FAN y ahi poner todos los archivos de 01FA hasta 50FA o menor con el numero coorrelativo dentro de cada archivo y que…

Hola amigos agradezco de antemano su colaboración Pues antes de colocar un tema investigo y veo la forma de hacerlo pero no he encontrado mucha ayuda al respecto. Tengo varios Archivos TXT y CVS y XLS en carpetas y siempre tengo que abrir 1 a 1 cada archivo copiarlo y pegarlo en la hoja donde estoy trabajando. cada archivo tiene el mismo formato. pero varian la cantidad de filas. lo estaba haciendo muy manual y había creado una macro de repetición y la copiaba y la pegaba para que me repitiera la función. esto también es demorado. He visto otras macros que cuando las activas te salen un cuadro para que explores que carpeta elegirla y ella te trae los archivos que con…

Buen Dia tengan grandes expertos de la programacion, acudo a ustedes para ver si me pueden auxiliar respecto a un tema que aparentemente esta muy sencillo pero por mas que le doy vueltas no logro que me salga, espero su valiosa colaboracion para poder terminar esa parte que me hace falta, les explico brevemente pues se trata del registro de 3 campos en una hoja mediante formulario el cual en su parte de inicialize hace o realiza un numero consecutivo, mi problema radica aqui en hacer que ese consecutivo se haga deacuerdo a un formato el cual es el siguiente: 34-07-00-000020-A en el formato lo que quiero que vaya cambiando es lo que esta con negritas, (osea 34-0…

Saludos amigos del foro Me gustaría saber si se pueda hacer que una imagen vectorial se pueda pegar en un archivo paint, ya sea que este cerrado o abierto Subo un archivo ejemplo para continuar el código. al abrir el archivo por favor dar click en el boton naranja, la imagen que se vea en la hoja1 es la que quiero enviar al paint Gracias por la ayuda que puedan darme Enviar a paint.xlsm

Buenos días compañeros, Me enfrento a un problema complejo con VBA, el cual estoy intentando resolver pero no consigo hallar la solución. Tengo la siguiente página web: https://www.metals4u.co.uk/materials/aluminium En la pestaña "Materials", se encuentran varios materiales como "Aluminium, Brass, Copper, ..." Si seleccionamos cualquiera de esos materiales (por ejemplo Aluminium) la pagina nos lleva a todas las formas disponibles de este material (Ver figura adjunta). Para ver las caracteristicas de una forma pulsamos en "Show Details", y la pagina nos lleva a una ventana como las caracteristicas de esa forma (Ver figura adjunta) En dicha …

Buenas tardes foro, mi consulta es la siguiente:tengo un archivo con tres pestañas y la macro funciona bien con pocos registros, el detalle es que en una de las hojas con la que se alimenta el reporte, tiene mas de 5000 registros y no funciona únicamente jala la información de dos columnas del reporte, si elimino registros y dejo pocos, funciona perfectamente. Me gustaría saber si tengo algo mal en la macro o estoy limitando el rango, se que para mejor ayuda debo subir un archivo, pero voy a intentar subir el archivo nuevamente, porque ya le elimine registros y hojas solo deje unos registros como prueba pero aun así no me permite subirlo, dejo la macro e intentare…

Saludos Hay alguna forma en Excel de inmovilizar en una misma hoja diferentes filas, es decir inmovilizo la fila 3 y más abajo inmovilizo la fila 30

Hola a todos tengo una userform con un boton para buscar un archivo PDF y otro boton para cargarlo en un WebBrowser al intentar cargarlo se me va al acrobat me lo carga en el acrobat pero no en el WebBrowser. Esto con la version Excel me funciona correctamente en la version 2010 pero en la 2013 y creo que posteriores no funciona ( no lo se fijo) me da un error en el WebBrowser Carga de archivos PDF.xlsm

Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo. BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

Buenas, Tengo una macro donde creo dos listas con random. La unión de las dos listas son pares de números que indican una determinada celda, y necesito que no aparezca dos veces la misma celda. He encontrado ejemplos de como evitar repeticiones de números con random, pero lo que yo quiero es que no se repita el par. alguien puede echarme una mano? Muchas gracias por adelantado!

como conectar una base de datos access usando visual de excel, para logear una tabla login(usuario y password)

Hola, me gustaría saber si existe la manera mediante una macro de excel, de imprimir otro archivo en PDF previamente creado, es decir no archivo excel en sí, si no otro diferente. Gracias.

Hola de nuevo, tengo esta macro: Sub Inserta_foto() 'Renombramos archivo Name "C:\Seat\Fotos\foto.jpg" As "C:\Seat\Fotos\imagen.jpg" ActiveCell.Select ActiveSheet.Pictures.Insert("C:\Seat\Fotos\imagen.jpg").Select With Selection .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 60.75 'Alto de la imagen .ShapeRange.Width = 84 'Ancho de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior) 'Movemos archivo a la carpeta Historico Name "C:\Seat\Fotos\imagen.jpg"…

Hola a todos, tengo un archivo que le debo insertar imágenes a una lista en celdas combinadas, me pregunto si se puede modificar la macro que adjunto que es la que uso para insertar imágenes sin celdas combinadas. en este archivo que adjunto ya tenemos las celdas combinadas, no siempre van a haber celdas combinadas y la imagen debe caer en una celda. Al eliminar una imagen de la carpeta aparece en el archivo como imagen no encontrada, por lo que hay que "pegar la imagen como valor". Agradezco mucho la atención, les pido de favor me puedan a poyar con este dilema, gracias. ejemplo.xls

Estimados. Ha sido muy fructifero haber encontrado este foro, por lo que vuelvo a las consultas. Resulta que estoy programando una macro que consiste hacer un filtro de una cantidad grande de datos, seleccionar solo algunos, copiar y pegarlos en otra hoja. Ahora bien, he logrado el codigo para filtrar un arreglo de datos a partir de una tabla que tiene los nombres o id a buscar: nf = numerofilas 'obtener arreglo de nombres de cellid CELLID_Array = Range("C2:C" & (nf - 1)) 'selecciona planilla de CNA Windows("Libro_Muchosdatos.xlsx").Activate 'selecciona de CNA los cellid a modificar de planilla CNA ActiveSheet.ListObjects(…