Buneos dias y muchas gracias de tod@s de antemano, tengo una base de datos de personal en la cual tienen asignado un puesto de trabajo asi como un material que se le asigna , me gustaria que cuando finalicen su periodo de trabajo el mateiral asignado , casco, chaleco, linterna, taquilla, se les quitaran y aparecieran como que estan disponibles para poder asignarlos a otra persona. pero si me gustaria que los datos de la persona permanecieran , sin tener asignado material. Muchas gracias por vuestra ayuda. tabla de material.xlsx

Deseo enviar los datos de la hoja "Datos" a tantas hojas "Muestra" como filas estén llenas. Se deben crear las hojas nombradas en función de la columna B de la hoja "Datos", P0403 en el ejemplo. Se copian los datos en los lugares oscurecidos de la hoja "Muestra", atención que al final también hay algunas, como también dejé en el ejemplo de la hoja "P0403". Tan solo dejar una macro, ya colocaré el botón. Puede ser complejo al final de la hoja, con los datos de años anteriores, columnas N,O,P, ... de la hoja "Datos", porque cada año se añade una columna. Cojo el año del análisis de la casilla A1. Gracias de antemano. Evaluacion mensual.xls

Hola con todos tengo un pequeño problema, en el libro que les adjunto pueden ver 2 grupos de datos, venta y gasto. Cada uno esta separado por mes donde hay una cantidad y un determinado precio. A la derecha hay 3 botones, Ocultar que oculta todo lo de venta y los precios de gasto, mostrar que muestra las celdas de precio pero solo para gasto y clave que de introducir la clave,darkside, se mostrara de nuevo la parte de venta. Mi problema es que la parte de venta debe de estar bloqueada es decir, solo la gente que tiene la clave puede modificarla. E tratado de mil maneras durante mucho tiempo y no se que hacer porfavor alguien ayudeme jaja prueba 1.rar

Que tal a todos Tengo tres cuadro combinados en la Hoja1 y en la Hoja2 tengo las infmacion que necesito manejar Lo que quiero hacer es lo siguiente: Primer cuadro combinado (combo1) tomando los datos de la columna A de hoja 2 Segundo cuandro combinado (combo2)tomando el valor del primer cuadro combinado filtrar la Hoja 2 y solo me muestro lo filtrado El ter cuadro combinado (combo3) que me muestre la informacion solo filtrando con los valores de cuadro combinado uno y dos Y por otro lado Mi cuadro combinado se llama combo1 Se que para ingresar de las columna de los cuadro combinados es con la siguiente instruccion: combo1.column(1) Como puedo hacer para asigna…

Buen dia comunidad. Necesito generar un conjunto de combinaciones formada por 03 números ALEATORIOS desde el (01 al 09) de forma ascendente. Que en su orden correlativo son 84 combinaciones desde el (1-2-3) hasta (7-8-9). Dentro del archivo se detalla más. Gracias.. 1.- CRT.xlsm

Buenas noches ya casi termino mi proyecto de stock espero subirlo cuando lo termine , pero tengo una duda quiero que genere informes dependiendo la base de ventas quisiera primero que todo que con una lista desplegable salieran las fechas de ventas (h) asi el usuario colocara la fecha y este automaticamente le genere el listado de ese solo dia con el total de ventas , estos datos seria copiados en una hoja de word el segundo informe que creo que despues de tener el codigo del primero lo podre hacer yo es que tome el stock columna (e) y saque todo los productos que estan en cero (o) que son los productos que ya se terminaron asi la persona podra tomar una alerta . …

Buenas tardes; Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Va…

Buenas a todos. Estoy intentando aplicar formato condicional a un rango de celdas que cumplan con una fórmula. El formato que quiero aplicar quiero copiarlo de otra celda, pero el objeto no me deja pegar de esa forma. Alguna idea? With Range(A2:A6).FormatConditions.Add(xlExpression, , "Formula1") Range("C3").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End With Modificar cada parámetro a mano si que me deja, pero querría que pillara el formato completo de la celda, para no tener que meter todas las opciones. (Pongo sólo 3 en el ejemplo) With Range("A1:A5").FormatC…

Buenas, Estoy realizando un excel para tratar cierta información que recibo por email. La idea es que, mediante Visual Basic (macros, etc) o alguna funcion, el excel coja ese email y lo procese. El cuerpo del mensaje es lo que me interesa. La información que contiene es en texto plano y, a pesar de que es muy parecida en todos los correos (el formato del correo quiero decir), hay pequeñas variaciones. La informacion es la que sigue: Referencia: 000001 Proceso: 05 SB: 2,3-2,6 Nombre y proveedor ========== Codigo: 555211 Color: 0042 [...etc...] Quiero realizar un excel que realice las siguientes operaciones: - Coja y procese el email que recibo por Outlook - Coloqu…

Hola a todos, tengo una matriz de nxm y necesito que cada una de las filas se copie 13 veces quedando una matriz de (14*n)xm Dejo un excel donde se muestra como debería quedar, en la hoja 2 estan los datos de la matriz inicial, las matrices con las que trabajo son en general mucho mas grandes, no es el largo fijo, y en la hoja 3 se muestra como debería quedar, solo lo hice para 3 filas a modo de ejemplo. Ojala se entienda y me puedan ayudar, que hace rato estoy tratando de hacerlo y no me sale! Gracias y saludos ejemplo.rar

Bunas tardes tengo 100 archivos y necesito guardarlos como csv pero necesito ejecutar esta macro 1000 veces que solo me cambie la extencion gracias

Buenos dias Amigos del Foro, tengo un archivo en excel que me gustaria trasladar a una hoja nueva limpia de formulas, que tenga ya listo los margenes del archivo "Original" y que sea para imprimir nada mas y solo ser traladada la hoja llamada "Auxiliar" yo tengo un avance pero no logro establecer los margenes y solo que tralade una hoja, saludos y gracias de antemano. 04. Formato de Revision de Facturas.xls

Buenas a todos. Tengo un archivo excel que nada mas abrirlo se abre un formulario de inicio de sesión. Mientras este formulario está abierto no se puede ver el archivo de excel, y una vez que se inicia sesión ya se puede acceder al libro. No obstante, la macro me genera dos problemas: 1.El primero de ellos es que cuando abro el libro, es decir, cuando doy dos clicks al archivo de excel, el excel se abre rápidamente, se cierra y ahí me muestra el formulario de inicio de sesión. Pero yo no quiero que funcione así. Yo quiero que al dar dos clicks al archivo de excel directamente se me abra el formulario sin que se abra el excel. 2. Si abro el archivo de excel…

Teniendo el largo de la celda B9 fijo, solamente lo que hago es autoajuste automatico del alto de la celda al cargar el dato, lo que me genera que quede mucho espacio en la celda dependiendo de los caracteres, como puedo hacer para que siempre el alto sea el justo, que no sobre ni un espacio? Dejo adjunto unas imagenes, donde pueden apreciar que la celda B9 se autoajusta pero innecesariamente le sobra mucho espacio en blanco.

Buenas tardes a todos, es la primera vez que posteo aqui, aunque he buscado varias cosas, siempre con buenos resultados, pero esta vez no encuentro lo que busco: Busco colocar, siembre que exista, los datos de la columna A, en la primera celda libre que encuentre de su misma fila: No soy experto en VBA ni programacion, pero he encontrado una formula que modificandola queda asi: Sub ttt() ActiveSheet.Cells(17, 1).Select Selection.Copy ActiveSheet.Cells(17, 1).End(xlToRight).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Cells…

Buenas tardes, Tengo un problema con macros en visual basic para excel y que, por más que mire, no consigo solucionar. Tengo el siguiente código: Option Explicit Dim oConexion As ADODB.Connection Sub ConnectDB() On Error GoTo err Set oConexion = New ADODB.Connection oConexion.Open "Provider=SQLOLEDB.1;Password=bandoiberica2015b;Integrated Security=SSPI;Persist Security Info=True;" & _ "User ID=Administrador;" & _ "Initial Catalog=BANDOIBERICA_2015;" & _ "Data Source=bandoserver3" 'ip o nombre del servidor 'MsgBox "Connexió establerta.", vbInformation, "1" Exit Sub err: MsgBox "E…

Hola muy buenas tardes, Me gustaría su ayuda al respecto de un sistema de captura, búsqueda y constante agregado de datos según hojas de un libro. Cada hoja corresponde a una carpeta y necesito ingresar estos datos a una base de datos de otro libro para que el libro donde se encuentran las hojas que corresponden a cada carpeta no tenga un proceso ralentizado que ya me ha sucedido. Ademas me gustaría crear esa base de datos con estos datos que muestro en la imagen para hacer un filtro de búsqueda y poder mostrar en una hoja resumen los datos relevantes según cada hoja con buscarv. La pregunta es ¿por que asigno una carpeta a cada hoja? y la respue…

Buenas tardes soy nuevo en el foro necesito generar una Macro de EXCEL que se pase a .txt tengo el archivo de base y la estructura del txt. es para generar una poliza y suvirla a la contabilidad, en la estructura del .txt el cero son cargos y el 1 abonos. Saludos pólizas 701201.txt PRUEBA MACRO.xls

Les comparto este ultimo proyecto en que estado jugando espero que les sea de utilidad.

Buenas Dias amigos, Pues ahora vengo con otro temita, lo que sucede es que en el archivo que adjunto, tengo un registro para pedidos, el cual al ingresar no hay problema el tema es al actualizar. En la pestaña CANTIDAD DE OC se debe mostrar la cantidad total de ordenes, que claro, al momento de registrar la primera entrada si se muestra, pero da el caso que al momento que Debo complementar mas información de un pedido (Userform4), y se guarda, resulta que la cantidad antes mostrada se reduce, osea que si modifico/actualizo todas las ordenes queda en “cero”, alguien podría apoyarme con esto??? para que asi sea que actualice se mantenga la misma cantidad? Muchas Gracias …

Hola, buenas tardes me podrian ayudar con este proyecto. adjunto ejemplo Lo que necesito es que tengo en una base, datos concatenados en un hoja de excel y he logrado separarlo con split a unos textbox pero ahora me surgio la idea de ponerlos directamente en un listbox sin separarlos previamente. sera que me podria ayudar con el codigo. Salu2 Ejemplo Listbox concatenado.xls

Hola amigos, tengo un código que lo que hace es al hace es entre dos fechas buscar en una base de datos los cumpleaños que hay entre esas dos fechas. El problema creo que el código esta poco optimizado y en algún lado he metido la pata ya que tengo tres problemas os lo enumero a continuación: 1- Para seleccionar la fecha hago click en una nube y me sale un calendario y selecciono la fecha, el problema es que la fecha me sale según donde esté la celda seccionada y no en B2 que es donde me gustaría. Lo mismo me pasa con la segunda fecha de hasta, la fecha no me aparece en B8 2- Cuando abro el formulario del a fecha no me aparece un botón que he creado de cerrar el calen…

A que se debe que mi exeb no arranca pidiendo habilitar macros y luego no puede hacerlo?

Hola a todos de nuevo. Tengo un problema con un autofiltro. Necesito filtrar 3 columnas, de "F" a "K" y el criterio se encuentra en la columna "K" que es la columna 3 del criterio. Lo que necesito es copiar los datos filtrados pero solo de las dos primeras columnas, no las 3 columnas, y llevármelas a otra hoja. Por ahora lo que consigo es llevarme las 3 columnas y no se llevarme solo las 2 columnas primeras del autofiltro. Este es el código que tengo. Sub ExportarTecnicos() Application.ScreenUpdating = False: Application.DisplayAlerts = False ' Dim wsPxA As Worksheet, wsGrupos As Worksheet Dim rngData As Range Set wsPxA = Sheets("PxA"): Set wsGrupos = S…

Buenas tardes, Ojalá me podáis ayudar. Realizo una tarea repetitiva de obtención de datos CAT, BBDD en bruto similar al Excel que adjunto aunque mucho más largos. Y entre otros tengo que filtrar y depurar las filas que empiezan por "14", pasarlas a Hoja2 y ordenar de mayor a menor por columna T. En total son 3 acciones bastante sencillas: Paso 1: Filtro las filas que tienen el dato "14" en sus celdas de la columna A, copia los datos resultantes y los pego en Hoja 2. Paso 2: Cambio el formato de las celdas de la columna T a integuer o Entero a través de una formula. Seguro que hay un atajo pero no lo conozco. La finalidad es que Excel reconozca los datos de esta…