Hola a todos como podria hacer un calendario perpetuo en un userform para crear citas para una clinica. CalendarioPerpetuo.xlsm

Hola a todos Tengo una duda, hice un formulario (una especie de planilla) y una de las preguntas es escribir en una textbox Por cuestion de ahorrar espacio en el formulario, el usuario deberá hacer clic a un boton tal que abrirá otro formulario donde va a ingresar los datos en la textbox El problema es que cuando una vez que termine de ingresar el texto y cierra el 2do formulario(donde está la textbox) y lo vuelva abrir para revisar(por ejemplo), el texto que escribió desapareció. Quisiera que el texto se mantuviera hasta que el usuario le de clic al boton ¨agregar datos¨ Ajunto el archivo 1prueba.xls

Hola amigos tengo un userform donde tengo un botón para eliminar fila seleccionada de un ListBox, ahí la instrucción funciona bien pero mi intención es ponerle clave para que no cualquiera pueda tener ese privilegio, para ello tengo otro userform que se llama desde el mismo botón donde tengo que poner la contraseña y entonces da paso a ejecutar la macro, pero ahí esta el detalle la macro no se ejecuta. la pregunta que estará pasando. anexo archivo para su análisis Busqueda.rar

Estimados amigos, Buen día. Soy nuevo en el foro (he leído las reglas), pero si caigo en algún detalle agradeceré me lo hagan saber. Tengo un cuadro que he armado (adjunto) sobre el uso de artículos por cada persona de la fábrica. Cada vez que ellos requieren cambio de un artículo se ingresa una fila nueva, se registra el código del material y aparecen los demás datos. Por ejemplo, una persona podría solicitar hoy una camisa que tiene vencimiento en 3 meses (en el interin podrían ir pidiendo otros artículos). Luego de 2 meses esa misma persona podría regresar pidiendo nuevamente el mismo código (camisa). Ahora, lo que necesitaría es que internamente el cuadro reconoz…

hola amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Estimadísimos, vengo a ustedes con una inquietud, respecto a la programación de Excel para vincular a SQL, de forma que las consultas puedan ser más dinámicas y se puedan ingresar parámetros desde Excel. Adjunto archivo explicativo, pero tengo problemas con las conexiones. A saber el archivo a trabajar, además tiene otras tablas vinculadas web para actualizar online parámetros que se ingresan en la consulta. De manera que el archivo es un ejemplo, el cual debo acondicionar a la realidad. Esto es algo que realmente deseo aprender y encuentro un conocimiento necesario, de forma que estaré particularmente atento a comentarios, dudas y lo que se les venga en mente o que no …

Hola Chicos. Necesito ayuda con un programita. Lo que quiero es buscar un dato que esta escrito en una celda de excel y buscarlo en una carpeta que tiene varios archivos de excel, pero están en varias carpetas y sub carpetas. Lo que el programa tiene que hacer básicamente es copiar el valor de la celda buscarlo en todas las carpetas y libros (en cualquier pare del documento, no en una columna ni fila especifica) y escribir el nombre del libro donde lo encontro y continuar con la celda de abajo y hacer el mismo procedimiento; debe ser automático, Solo presionando un botón tiene que buscar los datos. Se que suena no tan complicado.. pero he estado días intentando. Que …

Buenas tardes usuarios. De antemano agradeciendo su apoyo expongo lo siguiente. Se solicita que a través de un código VBA para excel filtrar ciertos criterios (vacío), luego "copiar una determinada fila" y finalmente pegar los datos justo en el criterio filtrado (vacío). Mi inconveniente empieza cuando se necesita "pegar" puesto que la macro no la ejecuta. Sub Macro1() [A65536].Select Selection.End(xlUp).Offset(2).Select Selection = "FINAL" Selection.End(xlUp).Select Rows("1:1").Select Selection.Copy ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:="=FINAL", _ Operator:=xlOr, Criteria2:="=" If ActiveShee…

Buenas noches de nuevo!! Tengo un formulario donde quiero filtrar unos datos y que los traiga a un listbox pero cuando ejecuto la búsqueda me da el error siguiente: "Se ha producido el error 381 en tiempo de ejecución: Could not set the list property. Invalid property array index" Describo el código que tengo por si me podéis ayudar a dar con el problema (lo tengo hecho en otra base de datos y me funciona perfectamente..... no entiendo porque en esta no...) Private Sub cmbEncabezado_Change() Me.lblFiltro = "Filtro por " & Me.cmbEncabezado.Value End Sub 'Mostrar resultado en ListBox Private Sub CommandButton5_Click() Set h1 = Sheets("ENT…

Buenos días, Amigos del Foro Su ayuda con una manera de Buscar que no he podido ubicar algo parecido en el foro. Tengo un archivo con 2 Hojas 1.- Profit Esta la información o Data (Listbox) CODIGO FECHA REF DESCRIPCION SALDO 110102 31/1/2020 4 223 0000008291 TRAN,J306725024AUTOMERCADOS PLAZA'S, C.A./J306725024 AUTOMERCADOS PLAZA'S, C.A. (45.760,00) 110102 …

Buenas colegas, en esta ocasión les pido de favor de su ayuda espero no generar tantas molestias en esta duda que tengo, espero expresarme bien. Se desea tener una "base de datos" de equipos operados por dia y para ello tengo los siguientes datos en la hoja 2014 se va a estar capturando por dia en el mes correspondiente un "1" si el equipo se uso ó un "0" si el equipo no se uso, pense en hacer una matriz para rellenar esta informacion y que despues pueda ser leida ó desplegada en otra hoja deacuerdo a la fecha y que se vacie en los campos de calculo correspondientes... G7,G8,G9,G10,G11,G12,G13,G14,G21,G22,G23,G24,G25,G32,G33,G34 (ojo con lo unico que se rellenan es con …

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…

Buen día, Soy nueva en el foro y además no tengo mucha experiencia en el manejo de macros. Estoy creando un código para asignar un valor específico. Para asignar dicho valor, primero se tiene que cumplir la condición que una fecha esté entre dos fechas. El código desarrollado hasta el momento es el siguiente: [/B]ActiveSheet.Range("BN" & Fila).FormulaR1C1 = "=DATE(MID(RC[-49],1,4),MID(RC[-49],5,2),MID(RC[-49],7,2))" 'Esta es la fecha a evaluar Desembdate = ActiveSheet.Range("BN" & Fila).Value If ActiveSheet.Range("F" & Fila).Value = "EMPRESARIAL" Then If ActiveSheet.Range("BK" & Fila).Value = "DTF" Then If ActiveSheet.Range("R" & Fila).Value =…

Buenas, Antes de nada gracias por vuestro tiempo. Necesito que al escribir en los textbox se vayan autocompletando en base a una lista que tengo creada en excel. Se que es mucho mas facil hacerlo con un combobox pero el problema que tengo es que tengo creados mas de 500 textbox dentro de un formulario y los tengo vinculados a macros a traves de controls.item por lo que si cambio los textbox por combobox tendria que reprogramar demasiadas cosas. Gracias. Saludos

Amigos: Cordial saludo. Tengo unas semanas tratando de hacer una macro pero hasta ahora no me encuentro satifecho con lo que he logrdo hacer. Les agradesco revisar y si me pueden dar alguna mejosr idea se los agradesco. Tengo un archivo de lineas de pedido que debo asiganrle un codigos ID de fabricacion (A02025210 este ID contiene Producto + cantidad) el caso es que si tuviera un ID por cada linea fuera facil con un buscar v pero el casoe s que tengo muchos ID que contienen el mismo producto pero diferentes cantidades. Tengo estos ID: A02025210 = 10 A02025211 = 5 A02025212 = 22 A02025213 = 12 A02025214 = 3 A02025215 = 20 Tengo estos pedidos: AJV020252 = 10 A…

En este formulario hay una sumatoria de los totales de los productos y ya esta perfecto pero cuando el vendedor necesitara ingresar: -iva (se le suma al total generado de la suma de los precios de los productos) -descuento (se le resta al total generado de la suma de los precios de los productos) -retencion (se le resta al total generado de la suma de los precios de los productos) el textbox de "VALOR TOTAL A PAGAR" seria: txtsumaart+txtiva-txtdescuento-txtretencion lo que pasa es que: hay veces que no se ingresa descuento ni retencion hay veces que no se ingresa descuento ni retencion ni iva puede ser variable dependiendo la situacion de todas maneras si no hay…

Buenas tardes. recurro de nuevo a ustedes para ver si me pueden apoyar. Tengo esta macro que guarda toda la informacion de un userform, pero quiero que se detenga si el Textbox3 no es igual a cero, el textbox3 debe ser iagual a Cero para continuar el procedimiento. Private Sub CommandButton3_Click() 'Seleccionar hoja Sheets("Corte").Select 'selecionar rango de celdas a insertar Range("A10:S10").Select 'Inserta Celdas SEleccionadas Selection.Insert Shift:=xlDown 'Copia y pega los rangos seleccionados Range("A9:S9").Select Selection.Copy Range("A10").Select ActiveSheet.Paste 'Finaliza apliaccion Application.CutCopyMode = False Range("C10").Select 'grabamos los dato…

Buen dia estimados: comora se pueden dar cuenta soy nuevo en el foro, pero queria saber si me puedne ayudar con un promebla que tengo. Estoy hacuiendo una agenda en excel utilizando el control de calendario, pero al momento que me toma el balor de la celda de ancleje del calendrio para crear una hoja nueva me da un problema, tambien habia hecho un ciclo paque me comprobara si la hoja ya existia solo me enviara a ella y desplegara un mensaje que dijera la hoja ya existe, el codigo que e usado es el siguente: Sub CrearHoja() Dim titulo As String ''se llama la funcion If ExisteHoja Then MsgBox "La tarea ya Existe." titulo = Sheets("Calendario").Range("c3") + ""…

Necesito incluir demasiado texto en un msgbox, pero al correrlo solo sale parte de èl, alguien sabe como incrementar la capacidad de texto desplegable en un textbox? saludos y gracias

Hola Amigos, nuevamente molestando, saben necesito una macro que me permita copiar números ingresados a otra nueva hoja, sin perder el formato, me explico: al ingresar el numero 107894563, debe aparecer 0010789456-3 y si es con menos números, estos deben aparecer con mas ceros a la izquierda, luego debo copiarlos a una nueva hoja con una macro que requiero y no tengo y que mantenga el formato con los ceros a al izquierda, el guion y el ultimo numero a la derecha (0010789456-3). Adjunto archivo y macro, para un mejor entendimiento. Desde ya agradezco su pronta ayuda a este problema. Gracias Sueldos.xls

Buen día!! Recurro a Uds. para solucionar estos inconvenientes!! 1.- Coloqué un código en el evento "Workbook_Open para que al abrir el archivo me presente visualmente en las hojas las líneas punteadas que indican los límites de impresión (no la vista preliminar de impresión) pero me lo aplica sólo a la hoja activa. Cómo corregirlo?? 2.- Al activar la macro mediante el botón de comando "HojaNueva2016" me copia la hoja pero me bota un error y al correrla paso a paso me bota otro error. 3.- En ocasiones me presenta la vista preliminar en el código de la Hoja 1 y tengo que pulsar la tecla "ESC" para que el código continúe. Al incluir la instrucción "SendKeys {ESC}" me indic…

Hola a todos!! He grabado la siguiente macro pero cuando quiero cambiar la sentencia me da error. "Selection.AutoFill Destination:=Range("K2:K631256") Range("K2:K631256").Select Selection.AutoFill Destination:=Range("K2").End(xlDow) Range("K2").End(xlDow).Select Os pongo la macro entera a continuación. Muchas gracias de antemano por la ayuda. Sub AÑADIRFORMULASFUENTEDEDATOS() ' Columns("J:J").Select Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:…

Bueno gente buenas noches Mi duda es la siguiente tengo unos datos nuevos que genera un software pero los genera muy diferentes como los trabajamos la idea es adaptar esa misma informacion al formato que ya manejamos , lo esplico mejor en el aejmplo que subo de antemano muchas gracias si me pueden colaborar EJEMPLO PARA MACRO.rar

Hola buenos días, necesito vuestra ayuda, es urgente. Os explico, cada dia incorporo unos datos en una hoja excel mediante la formula solver, me resuelve una ecuacion en fuincion de varias restricciones. El resultado es correcto, lo que yo quiero hacer es automatizar el solver con alguna macro para que yo, cuando introduzca los datos me los resuelva automaticamente sin tener que darle al solver ni poner los datos ahi. Los datos que van al solver son los siguientes: Establecer Objetivo: N8 Cambiando las celdas de variables: E8 Sujeto a las restricciones: H8<=$G$3 (G3 no quiero que me cambie en ninguna fila) J8>=$G$2 (G2 no quiero que me cambie en ninguna fila) …

Estimados adjunto un archivo el cual tiene un listbox y un textbox de busqueda donde localizo el numero de un equipo pero quisiera para no ponerle otro textbox que solo me cargue en el listbox las ordenes de trabajos que se encuentran con la palabra abierto cualquier ayuda que me puedan ofrecerme les estare agradecido. Para cargar el listbox presionar el boton 1 que aparece en la hoja 1 Libro1.xlsm