Buen día con todos Necesito macro para asignar Horas (hoja1) a los "Centros" (hoja2) sin excederme en la cantidad, según el siguiente criterio: En la hoja "Distribución", necesitamos distribuir las horas de la hoja1, sin excederme las horas por persona/dia, y centro/dia. Lo que pretendo es que si en la celda B3 de la hoja1 tiene un valor = 0 todo se quede igual que esta, pero si esta celda tiene u valor diferente de "0" que cuando ejecute la macro me copie la cantidad siempre y cuando esta no exceda al valor de la hoja2 (celda B3) y en caso la cantidad de la hoja1 sea mayor solo colocar la cantidad de la hoja2 (celda B3) y dicha diferencia se la pegue proporcionalmente…

Hola a todos; -Adjunto macro contiene un "frm" con un "chek" y un botón. Lo que hace la macro es crear una copia de seguridad. En función de lo que tenga activado en el check la hace de una manera u otra. Activo: Guarda la copia de seguridad en un ruta predeterminada. No Activo: Nos pide la ruta para guardar. Pregunta: ¿Se puede depurar mejor el código o está bien así? Saludos y buen día a todos C.Seguridad.xlsm

Hola. Mi pregunta es: Desde que se hace click en un archivo excel y empieza a cargar hasta que recibe la primera instruccion que hay por ejemplo en el ThisKorbook o en un auto_open, ese proceso que a veces resulta en un parpadeo ¿donde se puede manipular para que no se vea?....no se si me explico. Es que a veces se ve (tarda mas) y a veces practicamente no se ve (apenas tarda nada). Gracias.

hola amigos mil disculpas pero me olvide de anexar mi archivo con mi problema que se me a presentado bueno lo que pasa es que tengo una macro que inserta una fila en la misma hoja para luego copiar un cierto rango en la misma hoja la macro funciona de maravillas pero al llegar al registro 342 de la hoja de salidas me sale el siguiente error y la macro deja de funcionar : erro 1004 en tiempo de ejecución para evitar perdida de dato excel no puede desplazar fuera de la hoja de calculo celdas que no estén en blanco seleccione otra ubicación para insertar nuevas celdas o elimine datos al final de la hoja de calculo. si no hay datos en las celdas que se pueden desplazar fue…

como conectar una base de datos access usando visual de excel, para logear una tabla login(usuario y password)

Hola, tengo una macro que envía directamente un rango a "[email protected]" pero me gustaría que lo enviara al mail que hay en una celda en concreto (B7) Sub Send_Range() ' Select the range of cells on the active worksheet. ActiveSheet.Range("D2:J22").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With ActiveSheet.MailEnvelope .Introduction = "Buenas tardes, adjuntamos última proforma." .Item.To = "[email protected]" .Item.Subject = "Asunto prueba" .Item.Send E…

Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo. BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

Hola a todos! Nuevamente publicando Verán no es tanto un problema el que tengo, sino quisiera solicitarles sugerencias de mejora, he creado un lector de captcha cogiendo código de por aquí y por allá https://drive.google.com/file/d/1JJ7H3bzVI_L_Ef0diSynJrB-8oW7r_pq/view?usp=sharing Y me resulta útil para saltarme algunos captchas, pero no mucho cuando la imagen, por ejemplo, tiene fondo negro o pequeñas ofuscaciones Espero comentarios

Hola amigos, me pueden ayudar a solucionar este asunto, quiero copiar rangos no adyacentes de un libro a otro es decir el resumen de importes y servicios a un nuevo libro estuve buscando, pero encontré nada, anexo los archivas para la posible solución el archivo origen se llama comparativo y el archivo destino se llama resumen Saludos cordiales Comparativo.rar

Tengo una hoja para llenar informacion por usuarios y previo a ejecutar el macro de grabacion quiero que se compruebe que hay informacion en cada una de las celdas en caso exista alguna celda vacía no ejecute la macro y mande un mensaje de advertencia Agradecere la ayuda que me puedan brindar

Hola a todos, si alguien me pudiera ayudar a modificar una macro que encontré por ahí, la cual consolida varias columnas en una sola, para ello primero se tiene que seleccionar el rango a consolidar y luego ejecutamos la macro y la consolidación se realiza justo en la columna siguiente del rango seleccionado y lo que deseo es que la consolidación se realice pero no en la columna siguiente si no en la tercera columna siguiente del rango seleccionado. Muchas gracias Sub rango_columnas() 'macro une varias columnas en una sola columna 'para ello primero seleccionamos el rango a unir 'y luego ejecutamos la macro Dim rango As Variant Dim i As Long…

Hola amigos, de nuevo vengo con otra "nueva" inquietud....me explicaré: en mi libro tengo en la hoja Facturas (Botón Albarán), un ejemplo para crear un albarán, introduzco el cliente mediante la celda correspondiente y se rellenan los demás datos, así como cuando introduzco la referencia del producto se carga el nombre del producto, el iva y el listado de precios (solo he de introducir manualmente el lote y la cantidad). Hasta ahí bien, en la parte derecha se va creando una copia de la parte izquierda (una sería para el cliente y otra para mi, digamos), bueno lo que necesito es poder bloquear esa parte derecha del albarán, pues es sólo en la izquierda en donde se introdu…

Hola que tal amigos programadores por favor me podrían ayudar con una macro que me genere un archivo CSV delimitado por comas, la estructura del archivo CSV no deberá llevar encabezado, los datos del archivo CSV serán obtenidos de la hoja “Datos”. En la columna A: deberá tener la clave clues que se toma de la columna B de la hoja Datos En la Columna B: el Código (son 230 codigos que van del rango G1:IB1 de la hoja datos) En la Columna C: el valor almacenado a su correspondiente al código y clues En la Columna D: el número del mes que se obtendrá de la de la columna E de la hoja Datos En la Columna E: el año que se tomará de la columna F de la hoja…

Buenas tardes, Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias. Dim i As IntegerDim total As Long total = 0 For i = 0 To lstimporte.ListCount - 1 total = total + Val(lstimporte.List(i)) Next i TextBox4.Text = total TextBox5.Text = Val(TextBox4) * 18 / 100 TextBox6.Text = Val(TextBox4) + Val(TextBox5)[/CODE] en el textbox4 es donde recibo la suma de los valores. ade…

Buen día amigos del Foro, tengo una consulta acerca del uso de la función MInverse de las hojas de excel en una función en visual basic. Escribí la siguiente linea esperando que el programa me devuelva la matriz inversa del "rangom" el cual es una variable de ingreso de la función (declarada como Range) pero no me ejecuta el MInverse al parecer no se puede guardar en "rangod" que fue otra variable que declare como Range. rangod = Application.WorksheetFunction.MInverse(rangom) Alguien me podría indicar si es posible usar los comandos de excel en la creación de funciones en el visual? y si es posible, como hacer la codificación?

hola necesito que me ayuden con un problema que tengo resulta que en el excel tengo las siguientes columnas año | mes | nombre | ingreso | costo | entonces resulta que de dos tablas diferentes obtengo los ingresos y los costos, vale decir, por un lado tengo año | mes | nombre | ingreso | y por otro lado año | mes | nombre | costo | entonces hay coinsidencias de nombre pero como agrupo la gran cantidad de datos? de tal forma que se unifique por nombre asi calzo los años y los meses con sus respectivos costos e ingresos? saludos espero qe me puedan a yudar con una macro que lo haga independiente dela cantida de datos que ingrese aqui un excel con el ejemp…

Buen día, agradezco desde ya a las personas que me puedan asistir en esta macro ya que estoy incursionando recién (tarde, pero lo haremos :suspicion: ). La idea de la macro es para una planilla diaria que armo para darle a las cuadrillas bajo mi cargo las tareas del día (adjunto planilla .xls). Lo que tengo pensado armar, es lo siguiente: 1 - Todos los datos de la planilla son cargados manualmente, lo que deseo hacer "automático" por decirlo de alguna manera es que una vez ingresados los datos desde la columna B hasta la columna K, halla un botón que apriete y me pregunte la fecha que quiero colocar, llenando de esa manera la columna A. Simplemente eso, desde ya le ag…

Buenas tardes. Agradeceré disculpar si no adjunto el archivo, ya que este puede ser cualquiera, ya que se trata de la impresión de hojas. Mi consulta es: 1) Puede ser posible bloquear la impresión de una o mas hojas del libro. Sé que se puede hacer con una macro que se puede poner en ThisWorkbook, pero mi consulta es en sí, si dado el caso, cuando se envíe a imprimir, pregunte cuál es la clave, y si coíncide que se imprima la hoja determinada. 2) En ThisWorkboork se le puede poner contraseña para que no vean cual es la clave. Si no se puede poner, cuál sería la solución para que esto no ocurra, y cualquier persona la pueda cambiar e imprimir las hojas que tienen la inf…

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 amigos de ayuda excel tengo el siguiente codigo que hace consulta en 3 tablas al mismo tiempo pero no he podido dar con el error. DATO = (Trim(Format(Solicitud.Range("c2").Value, "0000"))) Set Rs = New ADODB.Recordset Sql = "Select VENDEDORES.VENOMBRE AS A1, VENDEDORES.VETELEFONO1 AS A2,VENDEDORES.VETELEFONO2 AS A3, VENDEDORES.VECORREO AS A4," & _ " MERCADERISTA.MENOMBRE AS B1, MERCADERISTA.METELEFONO1 AS B2, MERCADERISTA.METELEFONO2 AS B3,MERCADERISTA.MEFRECUENCIA AS B4 " & _ " FROM PROVEEDORES LEFT JOIN VENDEDORES ON VENDEDORES.PROID=PROVEEDORES.PROID" & _ " AND FROM PROVEEDORES LEFT JOIN MERCADERISTA ON MERCADERISTA.PROID=PROVE…

Buen día!!! Presento el siguiente archivo el cual presenta 3 hojas; Compras, Ventas y Clientes. Por medio de una macro de evento en la hoja Ventas se despliega un Userform para seleccionar el nombre del cliente en la columna "D" y en la Columna "E" a través de un BuscarV se adiciona el número de RIF (Identificacion Fiscal del Cliente). Quisiera que si el registro no existe en la Base de Datos de la hoja Clientes lo pueda incluir para futuras consultas. Se aceptan mejoras en este proceso (de consultar e incluir datos). Gracias de antemano. Mi PC no me deja adjuntar archivos, no sé si será una falla en el navegador ó en el Sistema Operativo. No me despliega la ventana de ca…

Hola, tengo una tabla en la quiero que se impriman solo aquellas filas en las que el valor de la columna A no esté vacia y también aquellas en que la columna D esté llena. Gracias a una macro que encontré en el foro consigo que se impriman las filas que cumplen la primera condición, que la columna A no esté vacia, pero no consigo hacer que también se impriman aquellas filas con la columna D llena. Os adjunto la macro que encontré para imprimir con una condición de celda llena y un modelo de la tabla que manejo. Mucha gracias un saludo a este gran foro pruebas_macro_imprimir.xls LUISFECAB - luisfichelson_Imprimir Factura de servicios.zip

Tengo el siguiente problema: Cree un macro para que la hoja actual se desproteja (con una contraseña dada), luego se elimine la fila actual y se vuelva a proteger con la misma contraseña, hasta ahí todo funciona bien. El problema es que necesito que las celdas bloqueadas no se puedan seleccionar, cuando ejecuto el macro, se aplica la configuración que tengo (osea sin permitir seleccionar las celdas bloqueadas), pero cuando guardo y cierro el archivo y lo vuelvo a abrir, pasa que las celdas pueden seleccionarse, cuando desprotejo la hoja se ve que la opción seleccionar celdas bloqueadas esta marcada, osea que se permite. Cuando protejo manualmente la hoja no hay ningun …

Lo que necesite es que desde dos celdas fuera de una tabla dinamica darle los criterios de filtrado a la tabla dinamica. He buscado en los foros y solo he encontrado como ponerle un criterio desde una celda externa, la situacion es que como minimo necesito dos criterios. He sabido adaptar macros a mis necesidades, pero realmente no se como programarlas y lo hago por intuicion logica y esta por mas que intente no logra hacer que se active. En archivo adjunto esta la macro que contiene en la instruccion para td1 fue la que modifique para que tomara los dos criterios pero no funciona, la instruccion para las otras dos tablas si funcionan parte de la macro tiene la modif…

Buenos días, Muchas gracias de antemano por su ayuda. Tengo un problema (además de saber mas bien poco de macros) y es que me gustaría en un formulario USERFORM de excel extraer un valor de identidad único por cliente según se meta el numero de teléfono o el mail en 2 textbox que hay para ello. La lógica es la siguiente: 1.- Ingresamos un mail en textbox TEXT_MAIL_CLIENTE y nos debe aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE 2.- Ingresamos un telefono en textbox TEXT_TELEFONO_CLIENTE y nos deberia aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE si el resultado de este ultimo y el anterior coinciden. Si no tenemos MAIL …