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…

buenos días, acudo a ustedes a ver si alguien podría ayudarme tengo un código que lo que hace es intentar imprimir una hoja de excel en Pdf en una ruta determinada y nombre pero al momento de compilar no muestra errores y al momento de ejecutar la macro me muestra un error que dice " Se ha producido el error "5" en tiempo de ejecución: Argumento o llamada a procedimiento No valido", he revisado el código y no se que sera, desconozco si para imprimir en PDF debo activar algo si pueden ayudar les dejo el código y les señalo donde me da el error al momento de depurar me señala estas lineas que es de donde me da el error """Selection.ExportAsFixedFormat Type:=xlTypePD…

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…

Hola a todos. Necesito ayuda sobre este asunto. Tengo una lista de nombres en una tabla. Por ejemplo así. ID_RH Orden Período Fecha Alta O.T. Clave Nombre Completo 76231 1 00 10/05/2018 0308 101224 ANDRES SANZ ORTIZ 76229 2 00 20/12/2006 0308 101222 ANTONIO LOPEZ RODRIGUEZ 76234 1 00 04/04/2017 0308 101227 BERNABE RIUZ TORNE 76235 2 00 13/11/2017 0318 101228 BRYAN RUIZ CHERS 76236 1 00 03/07/2017 0308 101229 CARLOS RUIZ LOPEZ 76237 2 00 05/06/2018 0318 101230 ERNESTO FERNANDEZ SANZ Quisiera con un Inputbox insertar un nombre y apellidos (por ejemplo DIEGO RUIZ CAMPOS) y este buscara en la lista como la del e…

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

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

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

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

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

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…

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

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

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

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…

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…

Espero me puedan ayudar con lo siguiente, al descargar una informacion de la pagina web( crtl+e, ctrl+c, ctrl+v) se descarga una tabla con la informacion almacenada de dos maneras, una en las celdas de manera regular y la otra en cuadros de texto, son serca de 1000 cuadros y para manipular esa informacion se hace muy tardado hacerlo una por una, de que manera podria extraerla toda sin la necesidad de hacerlo manual?, adjunto excel para ilustrar problematica, saludos! Libro21.xlsx