Hola chicos, tengo un problema con una macro que tengo hecha y creo que está bien, pero no acaba de funcionar, os cuento lo que quiero: esa macro hace un filtro avanzado de una tabla, con unos criterios y pone el resultado en otra parte de la hoja. Entre los criterios, hay dos campos de fecha, para limitar los registros entre una fecha minima y otra maxima. Pues bien, a pesar de que en la tabla original, los datos del campo fecha los tengo bien puestos, por ejemplo, 03/05/2020, cuando en el criterio pongo >=03/05/2020 para incluir esa fecha de la tabla, en el resultado se me pone la fecha 05/03/2020, y me sale el resultado conforme a esa fecha, y ese no es el res…

Hola amigos encontré la siguiente instrucción para cargar un ComboBox, funciona bien con una base de datos pequeñas, pero al tener una base de datos grande (mas de 3000 datos) tarda mas de 50 segundos en cargar. Pregunto abra otra forma de realizarlo en menor tiempo, alguien podrá darme un ejemplo. Sub cargarcombo1() For n = 2 To Hoja12.Range("E" & Rows.Count).End(xlUp).Row ComboBox1 = Hoja12.Range("E" & n) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 Next ComboBox1 = "" End Sub

Buenas, me estoy devanando los sesos para conseguir lo que quiero hacer, pero mis entendederas no dan para tanto, así es que solicito humíldemente vuestra ayuda. La cuestión es que quiero quitar las flechas de los enlaces directos de windows, pero no tengo acceso al regedit, así es que la única solución que se me antoja es hacerlo desde VBA con EXCEL, ya que un fichero EXCEL con VBA que tengo con otro código sí ha conseguido modificar el registro, pero en otra rama. Bueno al grano, se que las flechas se eleminan cambiando la entrada IsShortcut por xsShortcut , en las ramas HKEY_CLASSES_ROOT\lnkfile y HKEY_CLASSES_ROOT\piffile, pero no se hacerlo con VBA. Mediante un fich…

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

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…

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…

Hola estimados: tengo una solicitud ... por favor alguien me ayudaria con esto al insertar en textbox1 el valor neto , que el textbox2 cargue el monto del Iva 19 % automaticamente y textbox3 sume le valor del neto mas el iva (TXT2 + TXT1) desde ya agradecido form iva.xlsm

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

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 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

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

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 gente acudo a ustedes ya que realmente no se que hacer; tengo un userform que al ingresar "x" valor en el textbox1 buscara en la base de datos especificada y devolvera el resultado en textbox2. Si bien el formulario funciona, lo hace solo si busco numeros, es decir si busco el numero "1" me devuelve corretamente el valor que necesito, pero si busco por ejemplo "una palabra" ya no la encuentra. el código es el siguiente Private Sub CommandButton1_Click() On Error GoTo error: nombre = Application.WorksheetFunction.VLookup(VBA.CInt(Me.TextBox1), Sheets("datos").Range("A:B"), 2, 0) Me.TextBox2 = nombre: Exit Sub error: Me.TextBox1 = "": Me.TextBox2 = "" Me.T…

Hola compañeros, necesito solucionar el siguiente problema: "Tengo dos tablas de ejemplo, una se llama TABLA y la otra RESULTADOS. Cada una de ellas contiene su propia clave primaria. Tabla TABLA Tabla RESULTADOS El problema que quiero solucionar es que cada vez que un usuario haga click en una de las celda del campo FK TABLA, se le muestre toda la información detallada de ese registro en concreto, tal y como se muestra en la siguiente imagen. Video DEMO Espero que con el vídeo anterior se vea claramente lo que quiero conseguir. Este es el código que utilizo. Private Sub…

Hola, estoy intentando mostrar un video en un Formulario, cargando una Página HTML pero sin éxito lo que si he logrado es cargar imagen GIF. Anexo Archivo Excel, página HTML y Video mp4 para ver si alguien me puede ayudar. Gracias. video.rar

Hola buenas tardes: Tengo un archivo que he adaptado para buscar archivos dentro de una carpeta y subcarpeta poniendo en una celda parte del nombre del archivo y la ruta donde buscar. El archivo encontrado lo muestro en la celda 5 de la columna D. Pero me gustaría agregar a lo siguiente: Que me muestre todas las coincidencias que encuentre con parte de ese nombre. no importando la extensión ni carpeta o subcarpeta en la que se encuentre. Para así poder seleccionar el que me interese. Muchas gracias Mariano Pba. busca arch partenombre en CarpetaySub.xlsm

Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.V…

Hola a todos, tengo el siguiente problema que me gustaria me pudiesen ayudar tengo una hoja en la cual realizo consulta a BD SQL, hasta el momento logre conectarme a la base de datos y rescatar la informacion que necesito el problema es que cuando filtro por fechas mediante DTPicker y consulto por Ej. por el dia 04-12-2012 el resultado que obtengo son los datos del 12-04-2012. El problema es que considera los 2 primeros digitos como el mes y los segundos como el dia y no he logrado solucionar esto. le pido por favor si me pudieran ayudar. Saludos Libro3.rar

Hola a todos de nuevo. Yo y mis problemas. Ahora lo que necesito es insertar una fila en blanco cuando cambie el valor de una columna determinada. He creado la siguiente macro, pero no me funciona Sub Inserta_fila() 'Insertar fila en blanco cuando cambie el valor de la columna D Dim lngRow As Long, intRow As Long Range("D1").CurrentRegion.Sort _ lngRow = Cells(Rows.Count, 1).End(xlUp).Row For intRow = lngRow To 2 Step -1 If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _ Rows(intRow).Resize(1).Insert Next intRow End Sub En la columna D existen valores duplicados: 101 101 101 102 102 102 111 111 111 lo que quiero es que cada vez…

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é

Buenas tardes a todos Esta macro que os pongo a continuación envía un mensaje de texto y foto a una lista de teléfonos que le pongas en el Excel. Funciona perfectamente, el único inconveniente es que todos los teléfonos tienen que estar en la agenda, si algún teléfono no esta en la agenda se cuelga y deja de enviar. ¿Hay alguna manera de hacer que si un numero no está en la agenda no haga nada y pase al siguiente numero? Gracias por prestarme atención La macro: Sub EnvíoMensajesW2() Dim Teléfono As String Dim Imagen As String Dim Texto As String For Each Celda In Envío.Range("Clientes[TELÉFONO]") With Envío Te…

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.

Buenos días, soy nuevo en estoy de programar en excel, tengo un macro de evento de una lista desplegable, la cual si se le inserta un valor que no esta en la lista lo agrega automáticamente, aquí esta el código Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$5" Then Exit Sub On Error Resume Next fil = Application.WorksheetFunction.Match(Target, Sheets("Hoja2").Columns("B:B"), 0) If fil <> "" Then Exit Sub uf = Sheets("Hoja2").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1 Sheets("Hoja2").Range("B" & uf) = Target Sheets("Hoja2").Range("B5:B" & uf).Sort Key1:=Sheets("Hoja2").Range("B5"…

Buenos días, tengo el siguiente código que intenta copiar el mismo rango desde el archivo "DATOS DEL SISTEMA" hacia el archivo "Escenario" en la hoja Datos, siempre y cuando el nombre de la hoja del primero sea igual al encabezado de columna de la hoja Datos del segundo archivo, la intención es que si falta alguna variable el proceso no se detenga y salte al siguiente con datos, y luego en el archivo Escenario, elimine las columnas que queden sin datos, ya que no todos los días hay datos para todas las variables, esto cambia día a día. Necesito que en la hoja datos solo aparezcan las columnas en forma consecutiva co n las que tengan información. El problema es que la macr…

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!