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…

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…

Alguien me podria decir como adaptar esta macro para poner 3 numeros de serie y que funcione en los 3? Es una macro que reconoce el numero de serie del disco duro y si no es igual, cierra la aplicacion. Private Sub Workbook_Open() Dim Serie As String Dim FSO As Object Dim DiscoDuro As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set DiscoDuro = FSO.GetDrive("c:") Serie = DiscoDuro.SerialNumber If Serie <> "XXXXXXXX" Then MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA" 'Application.Quit End If Set DiscoDuro = Nothing Set FSO = Nothing End Sub [/CODE] Y esta es la macro para ver el numero de serie del disco d…

hola mi duda es la siguiente estoy en un libro de excel utilizando macros y necesito poner varias imagenes en este, cuando lo hago las imagenes se empiezan a mover de las casillas que les asigne cada vez que adiciono una, si alguien por favor me podria ayudar codigo.txt

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

Buenas a todos Les consulto lo siguiente: Tengo dos archivos en los cuales concilio los movimientos de uno en el otro: Ejemplo: ambos archivos tienen las mismas columnas: Fecha, numero e importe. Lo que hago es lo siguiente: igualo en variables cada uno de los campos del primer archivo (Fecha, numero, importe) y recorro con la propiedad offset en el segundo archivo buscando las mismas coincidencias (Fecha, numero, importe). Cuando termino de recorrer el segundo archivo voy al primero y continuo con la siguiente fila de datos y asi sucesivamente. En si, me funciona pero si los archivos son bastantes extensos, el proceso se demora. A alguien se le ocurre alguna otr…

Buenos dias para todos, quereia molestarlos con la siguiente consulta pues no he podido detectar el error que tengo entonces acudo a su conocimiento. En el archivo adjunto aparecen dos formularios, el primero es donde se ingresa un documento de la hoja detalles, y al buscar aparecen los datos de esta hoja, luego mas abajo aparecen varios optionbutton en donde al seleccionar alguno me trae los valores de cada una de las hojas siguientes, es mas de consulta pero al escoger uno de estos valores y de seleccionar el boton azul de copntacto se me va para el segundo formulario en don escojo por medio de varios optionbutton la novedad a grabar, esta me desplega el combobox de r…

Hola a todos, tenía intención de crear una intranet utilizando php + sql, pero el sistema es poco "dinamico", así que viendo algunas páginas de microsoft y tal me entró unas dudas antes de aventurarme a realizarlo, sería posible conectar un excel a una base de datos en acces a través de la red local? Que es lo que necesitaría? Sería muy complicado? tengo conocimientos de vba y demás, pero me gustaría información general para saber por donde me debo guiar. Gracias de antemano

Tengo un listbox con datos de equipos con información común pero almacenados en diferentes hojas, todo va bien hasta la selección de algún equipo de otra hoja, donde me genera error. adjunto parte del archivo, de antemano, gracias. Private Sub ListBox1_Click() Sheets("FichaSwitches").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Rango = Range("A1").CurrentRegion For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) Then Valor = Me.ListBox1.List(i) Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate End If Next i Sheets("Fichatransmisores").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Ran…

Hola, tengo una macro que me abre un archivo xlam para poder cargarlo en Excel. Ccomo puedo abrir ese complemento desde la misma macro para que puedan utilizarlo, y al finalizar la funcionalidad del complemento como puedo seguir con otros procesos. Sub PortalPago() 'Funciones de Macro No Visibles Application.ScreenUpdating = False Dim Finfo As String Dim FilterIndex As Long Dim Title As String Dim FileName As Variant 'Configura filtro de Archivos Finfo = "Complemento Excel (*.xlam),*.xlam" FilterIndex = 1 'Establecer el título del cuadro de diálogo Title = "Seleccione un archivo Complemente Excel" '…

Hola, estoy haciendo una macro donde tengo un formulario y lo mando a Google Sheets. Como puedo pregunta si hay internet para que me la marque de Enviada y si no que la suba cuando si halla internet.

Estimados, alguien me puede ayudar con la función contar si conjunto. EJ. En el Textbox1 necesito saber cuantos paquetes de yerba vendió el vendedor 1 prueba.zip

Ciao a tutti e il mio problema è questo: con un foglio excel e la sua vba vorrei inviare e-mail con allegati pdf o altri formati che si trovano nella mia sottocartella chiamata (Utility) ma per esigenze personali uso sia (Outlook) che (Thurderbird) Ma anche se provo un mare di soluzioni, mi fa sempre dare un errore e non carico nulla si dà un'occhiata e mi dicono perché? Grazie saluti da A.Maurizio Prova_Email_Con_Allegato_3.rar

hola he visto como ponen un reproductor de windows media que logra tocar una melodia en una hoja de excel la cual no suele ser versatil y solo pueede tocar una sola melodia a la vez pero si seria bastante bueno el que lograra poner una lista de reproduccion para poder seleccionar la que uno quiera y por lo menos darle "siguiente" mediante formulario sin tener que estarlo sacando del explorador de windows que resulta tedioso y fastidioso,,,pero bueno creo que alguien me contestaria que simplemente ponga el reproductor en una ventana diferente y listo, pero mi idea es poderlo realizar desde excel

Muy buenas a tod@s, tengo que hacer una cosa en excel y me estoy volviendo loca. Os comento: en una hoja de excel tengo una celda numerada de 1 a ... la celda se llama Nº de Orden. Esa numeración se relaciona con unas fotos que tengo en un directorio, los nombres de las fotos son 1 ... Cada vez que elimino un registro de la hoja de excel tengo que volver a asignar un nuevo número de orden pero lo peor es que tengo que volver a renombrar las fotos. ¿Alguien sabría decirme como a través de una macro, cuando elimine la fila correspondiente al número de orden 300, me elimine la foto 300 y que cuando vuelva a dar un nuevo numero de orden me renombre las fotos a ese numero…

Buenos días, quisiera que en mi plantilla de excel, se pudiera renombrar el archivo pdf que estoy visualizando en ese momento con el formulario que inserté, con el nombre que hay en un una celda determinada. El formulario permite visualizar todos los archivos pdf de una misma carpeta. Subo el fichero para más aclaración. Saludos y gracias Ejemplo.xls

Estimados amigos, Mucho agradeceré su apoyo. Tengo un libro llamado "PRINCIPAL" y varios libros adicionales, cada uno llamado "ADICIONAL 1", "ADICIONAL 2", "ADICIONAL 3", etc. Cada uno de estos libro contiene muchas pestañas cuyos nombre son códigos diferentes. Lo que requiero es que pueda hacer una búsqueda a través de un InputBox de consulta en el libro "PRINCIPAL" donde pueda digitar un código (nombre de la pestaña) y se sitúe automáticamente en el libro y la hoja seleccionada. Actualmente he podido desarrollarlo pero donde todo está en un sólo libro. Muchas gracias, José

Hola a todos.... Me hicieron una macro para crear un indice con todas las hojas que voy creando y así poder ir a la hoja que busco sin tener que ir una a una. Funcionaba perfectamente hasta ahora. No sé que ha pasado, pero no me funcionan los links que me llevan a cada hoja. Si me podéis echar una mano.... no tengo ni idea de macros. Os dejo el link al libro: https://drive.google.com/open?id=0B9laGIL8gRltNzFYbjJWc2tzVWM Un saludo.

No consigo sumar una columna de horas de un listbox, cuando estas superan las 24 horas, alguien que me oriente ? Horario.xlsm

Hola a tod@s, Tengo un grafico de estanterías y lo tengo funcionando con Macros en una de ellas (concretamente la E) como se puede ver en el fichero que adjunto. Se trata de un fichero que me refleja el stock de forma grafica según las ubicaciones y las cantidades que hay. Cuando en una estantería se superan las 36 unidades (que es el numero de celdas por ubicación, salvo en las superiores que es de 42) cada celda representa 10 unidades y se refleja de color marrón y cuando es una única unidad se refleja en color amarillo. La que esta funcionando es la estantería E y ahora quería hacer lo mismo con las otras restantes, la A, B, C, D y F. Así ya seria suficiente,…

Alguien sabe como leer y escribir en una var. de entorno, desde VBA excel?. Leer: Probando con la función Environ("variable"), me retorna una cadena vacía (a dicha "variable" la cree en DOS con el comando set variable=valor). Escribir: No he encontrado información sobre como puedo escribir en una var. de entorno desde VBA!! Gracias!

Buenas noches, Necesito una ayudita. Tengo un archivo excel con una macro que convierte los datos introducidos en columna A y B en fechas cada vez que introduzco una fecha sin barras. Por ejemplo, si introduzco 020219(ddmmyy) me lo convierte en 02/02/2019 (dd/mm/yyyy) automaticamente. Solo lo convierte si introduzco los datos uno a uno. Necesito cambiar la configuración para que haga lo mismo pero solo si pincho en un botón de comando. Si no pulso ese botón no haga cambios Este es el código que utilizo con el metodo " Worksheet_Change" y Tarjet Private Sub Worksheet_Change(ByVal Target As Range) Dim rngData As Range Set rngData = Range("A2:…

Hola a todos, la verdad es que no tengo una macro ni nada para esta consulta. Sucede que tengo un libro de macros que funciona en cualquier PC con Excel en idioma Español, pero al ejecutar el programa en Excel en Ingles no corre las macros. Entonces no sé que se podría hacer en ese caso, para que funcione en los 2 idiomas o en cualquiera. Muchas gracias.

Hola amigos, tengo un problema que no se resolver con macros. Necesito encontrar la fecha exacta en que un trabajador hace cada trienio en su historial de fechas de trabajo. Además son periodos discontinuos. Os subo un archivo en el que se ve los periodos trabajados y el total de años, meses y días trabajados. Pero a la hora de saber el día que hace el trienio tengo que contar con un calendario en la mano. Y me gustaría que cuando ingrese el último periodo de trabajo (si suma 3 años ) me dijera la fecha exacta. Saludos y gracias. Antigüedadmio.rar

Estimados expertos reciban un cordial saludo por intermedio de ayudaexcel, mi dificultad es que estoy creando un sistema de restaurante para cual tengo un formulario Hamburguesas la cual cuando selecciono una las mesas en momentos selecciona bien y en otro momento no selecciona, pero el problema es que si selecciono una mesa y si quiero seleccionar otra mesa si haber seleccionado un plato no debe seleccionar o por lo menos que diga no a seleccionado ningún plato en la mesa tal (mesa seleccionada anteriormente) por el momento eso es mi dificultad. Amigos programadores espero su pronta respuesta de antemano muchas gracias. Adjunto el enlace del archivo. https://onedriv…