Saludos amigos espero estén bien Necesito generar un código numérico de cinco (05) dígitos no aleatorio en la Celda "Q4"que valla precedido de dos letras ejemplo : AA - 00000, cuya numeración valla del 0000 al 9999 y cuando llegue al 9999 se reinicie automáticamente en 0000 debiendo actualizar la numeración cuando se haga click en el botón Limpiar Mucho les sabre agradecer la ayuda que me puedan brindar PRUEBA.xlsm

Hola un cordial saludo a todos. Tengo una hoja con un formato de calendario y tengo 365 hojas cada una con nombre de un dia mes y año en especifico agradecería me ayuden a como puedo realizar la vinculacion de cada dia del calendario con cada hoja respectivamente sin hacerlo de forma manual , ya que es muy laborioso dado que lo tengo que hacer de una por una. adjunto coloco un ejemplo de lo que tengo gracias. Libro1.xlsm

Buenos dias, tengo varias columnas que quiero copiar en otra columna pero una debajo de la otra, me podrian orientar con este tema. Saludos

Buenas tardes, Estoy intentando ordenar números positivos a la izquierda y no lo consigo, Me podéis ayudar por favor. Muchas gracias Saludos Numeros.xlsx

Hola un cordial saludo a todos. Tengo una hoja con un formato especifico que quiero duplicar 365 veces y renombranlas desde el 1 al 365 por dias del año desde enero hasta diciembre Les agradecería me ayuden ya que hacerlo a mano es muy laborioso dado que lo tengo que hacer de una por una

Hola muy buenas, Estoy con un trabajo y me gustaria aclarar mis problemas. Estoy usando la version - Version 2401 compilación 16.0.17231.20194 En el excel que voy a adjuntar tengo tres hojas. - 1*hoja: contiene un analisis de diferentes parametros de diferentes objetos (14 en total). - 2*hoja: siguiendo la misma plantilla, quiero decir que se utlizan las mismas casillas para analizar los mismos objetos pero con otro metodo. (Los mismos 14 objetos, enumerados en las dos hojas.) - 3*hoja: En esta hoja quiero hacer la comparación que hay entre las dos mediciones. Es decir la diferencia q hay numérica como en porcentaje que hay en cada objeto en cada parametro. Adem…

Hola buenas tardes. Tengo una plantilla en la que doy formato de texto a mis celdas en base a condiciones dentro de la columna A con una macro. ejemplo si en A20 tengo "SI" la celda G20 se pone en azul y negrita y así diferentes condicionantes. Pero al ser mi plantilla este se reutiliza. en ocasiones estas celdas ya tienen un formato previo, necesito que antes de ejecutar un nuevo formato me limpie o borre el formato y dar el nuevo. y así con las celdas que aplican a las condiciones puestas.Cambio de formatos.xlsm Muchas gracias Mariano

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 tengo unas conexiones con una base de datos. Mediante consultas a través de ODBC que realicé con la opción microsoft Query, y donde se ve perfectamente la conexión. Después intento en ejecución que me haga una determinada consulta sobre esa conexión, pero siempre me vuelve a pedir que indique base de datos, y en una segunda pregunta que indique el usuario y la contraseña. Lo que me resulta extraño es si este proceso lo planteo de manera manual y en propiedades de la conexión le pongo la SELECT de Mysql directamente, entonces si funciona sin solicitar credenciales. Pongo el código que uso para conectar con la BBDD. Sub actualiza_datos_T(NOMBRE_CONEXION, SQL, NOMB…

Hola buenas tardes: Tengo la siguiente estructura de macro: Sub AjustarRangoD() Dim rngC As Range For Each rngC In [Anexos!d14:d20] AjustarTextoEnCeldasCombinadas rngC.MergeArea (macro para ajustar tamaño a los rangos indicados) Next rngC End Sub funciona bien, pero cada que abro mi libro, este me marca un error 424 se requiere un objeto. y marca en amarillo la 2da linea de mi macro. y detiene la ejecución de la macro. Esta macro la llamo dentro de una estructura Worksheet_Calculate() Public Sub Worksheet_Calculate() Static ValorPrevio Application.EnableEvents = False ' Prevenimos un posible bucle debido a cambios en la hoja ' …

Hola buenos días. Tengo un archivo con la que trabajo constantemente, una hoja donde ingreso muchos datos de otra hoja. Con una formula compuesta me funciona muy bien, el problema es que tengo que estar borrando los datos para actualizarlo con nuevos. y tengo que estar pegando esta formula cada vez que actualizo. Con la macro quiero lograr que esta formula se pegue unicamente en donde halla datos. Trate de hacer la macro para que me ponga dicha formula (en inglés) Espero me puedan ayudar. Gracias Mariano MAcro buscar indirecto.xlsm

Buenas tardes, tengo una macro copiada de un ejemplo que funciona perfectamente. Usa un formulario para capturar datos a una hoja. El problema está cuando convierto el rango normal en una tabla. Aquí ya no me numera la columna A y se desplaza al final de la tabla. Agradecería me echasen una mano. Adjunto envío archivo. prueba.xlsm

Buena tardes. Tengo una duda, se podrá separar los datos de una hoja en varias hojas siguiendo un criterio. Por ejemplo, tengo una base de datos de miles de trabajadores (filas), con muchísimos datos (columnas) y que son de diferentes empresas, lo que quiero saber es si se puede separar todos esos trabajadores dependiendo de la empresa a la que pertenecen de manera automatizada sin tener que estar filtrando y copiando los datos que necesito. Aquí subo un ejemplo de lo que necesito, gracias de antemano por su respuesta. Modelo 1.xlsx

¿Como puedo cargar un combobox ActiveX de forma manual sin usar una lista En uno norma sería Combobox1.additem "xxx" pero en el activeX no lo consigo Gracias

Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.…

buenas tardes, tengo esta macro que funciona pero me gustaria mejorarla integrando la siguiente condición siguiente: si es >= "17:00" sumar y dejar el resultado en la celda p4, me podrían ayudar porfavor de ante mano gracias Sub FuncSum() Application.ScreenUpdating = False On Error Resume Next DisplayAlerts = False minuendo = Range("C5").Value minuendo2 = Range("E5").Value minuendo3 = Range("G5").Value minuendo4 = Range("I5").Value minuendo5 = Range("K5").Value minuendo6 = Range("M5").Value minuendo7 = Range("O5").Value sustraendo = Range("Q4").Value Range("Q5").Value = Application.WorksheetFunction.Sum((minuendo - sustraendo), (…

Hola buenas tardes. Tengo un archivo en donde busco diferentes archivos que están ubicados en diferentes rutas y subcarpetas. el cual funciona bien. La función busca el nombre del archivo y me muestra la ubicación de ella (ruta completa) no importando si esta en subcarpetas. Me era util cuando tenia pocos archivos que ubicar, pero ahora cada vez son mas y mas, me gustaría hacer esto mismo, pero poniendo yo el nombre de manera parcial(columna b), ya que no siempre tengo el nombre completo. y poner en otra celda la extension (columna c). y que la función pueda buscar con estos 2 condiciones. espero me puedan ayudar. Muchas gracias M Busca ar…

Hola buenos días, Tengo un archivo que utilizo para buscar carpetas dentro de una ruta indica. Con una parte del nombre de la carpeta busca y me da las rutas coincidentes, y con otra macro vinculo esa ruta para abrirlo. Pero me encuentro con el problema de que hay rutas que no puedo abrir, si estos tienen acentos. Mi consulta es existe otra manera de poder abrir estas rutas aun teniendo acentos. ya que tengo muchas carpetas. Muchas gracias Abrir Link.xlsm

Buenas tardes, tengo un problema en m codigo: Private Sub Buscar() With Sheets("Primaria") Me.ListTabla.RowSource = "" If CbxMeses1 = "" And CbxDocentes1 = "" Then ListTabla.List = Sheets("Primaria").ListObjects("Primaria").DataBodyRange.Value Exit Sub End If For X = 2 To .Range("A" & Rows.Count).End(xlUp).Row ok = False If CbxMeses1.ListIndex = -1 Then If CbxMeses1 = "" Then ok = True End If Else Mes = Split(Range("E" & X).Text, "/")(0) If CStr(CbxMeses1.ListIndex + 3) = Mes Then ok = True End If End If …

Buenas a todos, Quisiera saber si alguno me puede ayudar a definir o a resolver mi cuestión. El asunto va así: Tengo un Export del Active Directory que debo comparar con un archivo que se crea cada quincena con una lista de Ingresos y cambios en el personal dentro de la empresa y evidenciar cuales registros se capturaron mal en el Active Directory. Yo había pensado hacerlo con Power Query, pero la verdad es que no me salió ya que no me crea ninguna tabla alterna con las diferencias cuando combino ambas tablas. Con powerBI sólo pude sacar las columnas que tienen en común ambos archivos, tampoco pude encontrar cómo resaltar las diferencias. El Active Directory ti…

Buenas foro. Por mas vueltas que le doy al tema, no consigo meter en una pagina web un valor en un textbox de una web. He probado con getelementbyId, byclass, bytagname y siempre error . Afradeceria una ayudita. Nuevo Hoja de cálculo de Microsoft Excel (2).xlsm

Como puedo ubicar la carpeta personal no encuentro mis mcaros?

Buenas tardes estaba intentando combinar los datos de dos hojas con la misma estructura de columnas y celdas dentro de una hoja diferente, pero existen tanto datos numéricos como de texto, además de celdas vacías por que es un excel que se va rellenando progresivamente. Son dos hojas Seguimiento1 y Seguimiento 2 las dos tienen datos iguales y diferentes dado que seguimiento 2 es una actualización del 1. Quisiera poder combinar los datos tanto de Seguimiento1 como de Seguimiento2 en otra hoja, he probado varias formas pero solo consigo que aparezcan los datos de Seguimiento1 en la nueva hoja y no una fusión entre los 2. En el ejemplo pongo datos en sitios diferentes en c…

Buenos días!!! Me estoy volviendo majara porque no veo el error. En el archivo que he subido, en la macro modificar, me sale error de compilacion en la siguiente línea: Fila = WorksheetFunction.Match(Sheets("Datos").Range("A2"), Sheets("Datos").Range("A1:A" & UF), 0) La cosa es que funciona todo perfecto!!!!! y si toco lo más mínimo deja de funcionar y ya tengo la cabeza a reventar.... Es para dar un pequeño cursillo a mis compañeros (los datos de la BD son ficticios no pasa nada...) y claro...que me salga un error no queda bien...pero es que no veo qué está mal!!! Si me podéis ayudar y me explicáis el error os lo agradecería!! …

Mi codigo esta funcionando al 90% ya que cuando estoy por finalizarlo, y deseo pegar datos que copie previamente de otra hoja, el codigo se interrumpe y no encuentro manera de dejarlo funcional. Estoy copiando datos de la hoja "Tabla1" y los estoy pegando en un libro llamado "REPORTE CC_MACRO" en la hoja "tabla base". El codigo se interrumpe en ' 3. Una vez seleccionada la celda D3, pegar los datos que se copiaron en pasos anteriores Selection.PasteSpecial Paste:=xlPasteValues Codigo completo: Sub BASEV1OK() Dim wsOrigen As Worksheet Dim wsOrigen2 As Worksheet Dim wsDestino As Worksheet Dim rngOrigen As Range Dim rn…