Hola buenas noches. Queria saber si alguien conoce algun metodo a utilizar para crear un sistema rotativo de turnos de 100 trabajadores con 8 turnos diferentes de jornada continua y que cada turno tenga distinta necesidad de personal dependiendo de que dia de la semana sea, se es algo complejo y la verdad no se me ocurre como realizarlo, estaba trabajando en un modelo de programacion lineal con ciertas restricciones pero ahi quede. Cualquier ayuda se les agradeceria muchisimo es para realizar una memoria.

Copiar rangos discontinuos solo si cumple 2 condiciones [ATTACH]40820.vB[/ATTACH][ATTACH]40821.vB[/ATTACH][ATTACH]40822.vB[/ATTACH]Buenas tardes mis estimados: Edito mi mensaje porque creo que hice una historia, además de que solo me gustaría me orientaran, Me podrían orientar si se puede copiar rangos discontinuos de la hoja1 (acumulado) a hoja2(reportes) y que cumplan dos condiciones: 1.- con un InputBox copiar solo lo que sean Elektra y 2.- si se puede otro InputBox y con ello elegir el año y solo copiar los registros de ese año, la fecha que tomo para hacer el filtro es del titulo “REG_fechahora”. Mis títulos no son los mismos pero los relaciono en un archi…

Buenas tardes, les pido su colaboración... En el archivo adjunto coloqué solo una muestra, pero debo enfatizar que trabajo con datas más extensas que pueden ocupar el total de filas de la Hoja. La pestaña Comparación es el resultado a obtener. Usando como identificadores de interés el número de cédula y el campo quincena... la idea es comparar los datos y obtener como resultado cuando hubo algún cambio de nro. de cuenta, dicho de otra forma: si un trabajador pasó de tener nro. de cuenta a no tenerla, o en su defecto si ingresó a la nómina sin nro. de cuenta y posteriormente se le introdujo. Libro1.xlsx

Buenos días: Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba. El archivo contiene varias hojas que se muestran según la contraseña que se ingrese, y a su vez, cada hoja tiene diferentes funcionalidades según su propósito. Consulté un tema similar abierto anteriormente donde se menciona un ofuscador para todo el código contenido en un archivo ( ), sin embargo, al aplicarlo me genera un error 1004 en tiempo de ejecución y al abrir el editor me indica error en la siguiente línea: Set Proyecto = ActiveWorkbook.VBProject. Finalmente el resultado es que no puedo aplicar el ofuscador. Me pueden orientar por favor qué es lo que suc…

Buenas Tardes Por favor me ayuda alguien con el siguiente caso: Necesito hacer un filtro por cada valor único que exista en una columna especifica(cada valor puede estar repetido N veces). Copiar lo filtrado y posteriormente pegarlos en una pestaña nueva, dándole como nombre el valor filtrado. Por lo que al final pueden haber tantas pestañas como datos únicos que haya en la Columna. Adjunto archivo excel de muestra. Para el ejemplo se debería filtrar por la columna estrato, los valores únicos son "Tres", "Cuatro" y "Cinco". Al final ademas de la Hoja1 deben haber 3 hojas mas. Cualquier inquietud quedo pendiente, Gracias. Ejemplo.xlsx

Buenos días tengais Vereis, con esto de no poder tocar el documento mientras está activado el userform, me preguntaba si sabías de algún modo de poder recorrer un documento como la celda activa a través del userform. Aquí os dejo un ejemplo de como lo había pensado (Las ideas son bienvenidas) Había pensado poner un scrollbar dentro del userform y al clickar que la celda activa fuera bajando hasta el final del documento. Además de agregar dos botones para ir tanto al principio (Pone en el botón A1, asumiendo que el texco comienza en ese punto) y otro que apunte a la última fila ocupada. grácias por vuestra ayuda, saludos. Scroll.zip

Hola Amigos: Quisiera saber su existe algun macro que auto ejecute otro macro contenido en un formulario cada 2 segundos y que se empieze a ajecutar al abrir el formulario, lo que pasa es que en este formulario tengo un textbox que necesito que se actualice cada 2 segundos para tener datos actualizados. saludos

Saludos amigos, acudo a solicitar su ayuda en lo siguiente: necesito una macro que tome un rango de celdas de una hoja y lo copie a otra siempre y cuando los valores de una columna sean mayores que 0 consegui un ejemplo en este foro que se adapta a eso https://www.ayudaexcel.com/foro/macros-programacion-vba-10/copiar-datos-mayor-cero-otra-hoja-19620/ sinembargo cuando corro la macro se detiene en esta linea: .AutoFilter 5, ">0" segun el post original todo funciona, pero haciendo yo exactamente lo mismo no logro que funcione utilizo excel 2010 gracias de antemano

Buenas, tengo un Listbox, el cual cuando inicia el programa me lo trae con informacion que carga de la hoja 1, y a la par asociado un Combobox que se le va agregando mas info a este Listbox. El problema pasa cuando Inicia, y me carga la info previa que hay en la hoja 1 en el listbox, ya que luego, al agregarle mas info por el combox me deja un espacio en blanco. a continuacion el codigo que tengo Private Sub UserForm_Initialize() Application.ScreenUpdating = False Worksheets(1).Select Y = 0 vuelve: a = Cells(Y + 1, 12) If a = "" Then GoTo seguir: Y = Y + 1 GoTo vuelve: seguir: Range("L1").Select For ii = 1 To Y ActiveCell.Offset(1, 0).Select ListBox1.Add…

Hola colegas, buenas tardes reiteradas. Vuelvo por acá, ahora para que me brinden ayuda con una alerta. Me explico: Este es el proyecto del que les comenté que mi Jefe me pidió hacer. En el FrmCombustible debo crear dos (2) alertas, UNA - Que un (1) mes antes de vencerse las tarjetas me envíe un MsgBox : "La Tarjeta " & " se vence en un mes" El Listado de tarjetas está en la Hoja5 (Auxiliares). Se debe tener en cuenta que puede estar en blanco o vacío (Empty) este campo. Yo comencé a trabajarlo, pero me "perdí", porque creo se debe generar un ciclo que recorra las tarjetas y las fechas de vencimientos y las compare con la fecha…

[h=2]Buscar 2 valores numericos digitados por el usuario y que arroje los encontrados[/h] Cordial saludo y buenas a todos Mi inquietud es la siguientes: Necesito hacer en VBA un formulario con dos campos numericos para digitar dos números y que al digitarlos me arroje los resultados de esos numeros digitados y sus correspondientes filas. Ejemplo del problema: Esta es la tabla con los datos: Campos: Numero de Documento, Nombre, Marca, Modelo, Placa. 1 10.48756.0 Pepito Mazda 1978 AB1205 2 XXXXXXXX XXXXX XXXX XXXX …

muy buenas, se que es una tonteria pero no logro dar con el problema. es una macro sencilla para calcular el numero de meses transcurridos desde una fecha, y lo que pretendo es asignar la celda donde está la fecha incial a una variable, pero me da error de tipos muchas gracias Option Explicit Sub DifMeses() ' ' calcula diferencia de meses entre fechas ' Dim Fecha1 As Date Fecha1 = Range(InputBox("donde está la fecha inicial", "Cálculo meses")) ActiveCell.FormulaR1C1 = _ "=DATEDIF(RIGHT(Fecha1,2)&""/""&MID(Fecha1,5,2)&""/""&LEFT(Fecha1,4),TODAY(),""m"")" End Sub

Hola a todos. Estoy intentando hacer que cada vez que yo ponga una incidencia (Libranza, permiso...) a un trabajador en la hoja del mes correspondiente, me la copie en otra hoja en una columna, nostrando unicamente si se ha introducido una incidencia, omitiendo las celdas en blanco. No tengo mucha idea de macros, he intentado hacer una, grabando y los resultados no han sido buenos. Os adjunto un archivo, con el mes de Enero y la hoja de incidencias de Enero, colocando como debería quedar. Gracias por vuestra ayuda. Pcuadrante.xls

Tengo un libre en donde hay varias celdas con contenido alternado, es sobre equipos de futbol. Necesito un macro (o quizas se puede hacer mediante alguna función) en donde me convierta determinado texto en determinado hipervinculo. Ejemplo tengo celda a20 q dice "Futbol". Al activar el macro esa celda "Futbol" que sea un hipervinculo a una url

Buenas tardes, mi nombre es Rene, quisiera saber si hay alguna solucion para que al usar un formulario de VBA no se bloquee el funcionamiento de Excel

Buen día Por favor su ayuda.. En archivo adjunto encontraran unos datos que debo transformar según las siguientes condiciones: -En cada una de las celdas de la columna A hay una serie de datos de 4 dígitos separados por punto y coma(;). La idea es separar cada uno de esos datos y pegarle la misma información que hay en el resto de la fila, como se hizo de ejemplo en la pestaña "Ejemplo", donde se cogieron los 17 datos que hay agrupados en la celda A2 de pestaña "datos a trabajar", y se utilizo texto en columnas para separarlos y luego se transpusieron en la columna A y simplemente se relleno con los mismos datos de la fila 2. Y hacer esto mismo con todas…

Hola a todos, tengo una macro que inserta imágenes la cual me funciona excelente, lo que hace es que en la columna B tengo el nombre de un modelo y si existe pone la imagen en la columna A que la jala de una carpeta y cuando no exista la imagen se salta a la que sigue. La duda que tengo es cómo decirle a la macro que cuando no exista la imagen no se salte a la que sigue sino que me ponga una imagen titulada "no hay imagen" que está dentro de la misma carpeta. Esta macro funciona con un On Error Resume Next. Cuál sería el código fuente para que en vez que se salte a la que sigue me ponga esa imagen llamada "no hay imagen"? Agradezco mucho su apoyo.

Saludos tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo. algo asi Sub filtro_interactivo() año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL") ' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019 If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items < año2 Then ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true End If End Su…

Hola buenas tardes, necesito me ayuden a completar este desarrollo por favor. Tengo una Macro que me genera el codigo QR y la pone en la celda correcta sin problema. El detalle esta en que si no estoy conectado a internet y abro el archivo de excel la imagen no se visualiza solo dice "No se puede mostrar la imagen vinculada". Lo que necesito es que al bajar la imagen se salve en C:\ y despues jalarla a la hoja de Excel como imagen para que siempre que abra el archivo de Excel se pueda visualizar. Gracias y espero se pueda hacer. 'recorre la columna B hacia abajo hasta el final donde encuetra datos. Sub Test2e() 'Seleccionar celda B2, *primera línea de datos*…

Buenas noches, necesito vuestra ayuda con el tema de interrupciones. Tengo una macro que se activa cada 15 minutos las 24 horas del día, pero si esta es interrumpida de manera accidental se paran las repeticiones Lo que busco es algo que en caso en el que la macro se interrumpa, se active de nuevo de manera automática hasta que esta finalice el ciclo completo. Muchas gracias y un abrazo

Hola Vengo en busca de Diego9019 una vez que el mismo crió esta macro para que: Diego9019, quisiera pedirte para que a tu macro; 1º- Agregues también para que guarde en PDF (además de xlsx que ya lo hace). 2º- Que guarde la hoja protegida TOTALMENTE con el mismo passw de la hoja original 3º Que guarde la hoja sin botones, sin formulas, sin shaps ni imágenes (si las hubiera) Subo 2 libros y 1 PDF, un libro para que me hagas eso ya con un boton en la hoja que se guardará, y 2 como ejemplo de la hoja ya guardada como (xlsx y PDF) Agradecido si puedes echarle mano a mi solicitud. Cuanto a esta linea, estoy indeciso si usarla o no Application.Dialogs(xlDialogSave…

hola amigos, le squeria pedir el codigo para desahibitar la rueda del mouse en la hoja activa, gracias es que quiero que cuando la presionen o la hagan rodar no haga nada

Hola distinguidos expertos. Necesito su apoyo para completar con macros un programita para control de tarjetas de cobro. Se trata de “Copiar, buscar y pegar”. Estuve buscando en este foro algo parecido y me encontré con uno pero no he podido adaptarlo, me manda un error de compilación “La clave ME no es válido” y estoy tratando de aprender a armarlos aunque confieso ya he podido con otros códigos un poco sencillos. Es aquí que necesito su apoyo. A continuación trataré de resumir el código que requiero. 1- El contenido de las celdas “E3”, que es para consulta, es un folio de 4 dígitos y el de “D3” que corresponde al Status de ese folio, es una de 4 palabras (A…

Hola, estoy queriendo completar una columna (Comision) desde una determinada fila hasta otra, con un determinado valor. En el archivo que les dejo, seria: en el formulario, seleccionar desde que registro (Registro 3 por ejemplo) hasta que registro (Registro 9 por ejemplo), y en todas esas filas colocar la comisión mediante el textbox. Cada registro colocado en los combobox tienen que estar incluidos, es decir que si selecciono el Registro 9, esa fila también tiene que cambiar. A su vez, quiero que si desde el primer combo selecciono el Registro 3, en el segundo combobox no aparezcan los registros anteriores, es decir Registro 1 y Registro 2. …

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos