Hola a todos. Hace unos días en los que una hoja con Macrors que tengo empezaban a fallarme los botones con los que se incian ciertas macros. Al mirar veo que todo el código que estába dentro de la hoja ha desaparecido y por eso no lanzaba los formularios al hacer click en los botones. lo curioso es que mirándolo bien, "no sé ni quien o qué ni como" lo que ha pasado es que esa hoja ha camabiado de nombre y la hoja original (Hoja1) aparece con el mismo formato que Thisworkbook y es una hoja que no puedo ni modificar ni nada (no existe pero tiene las macros). La nueva hoja es igual que la original pero sin macros. Me estoy volviendo loco, lo mismo es un…

Hola a todos,esta macro me da problemas de compilacion,alguien me podria indicar la solucion? La intencion es que solo me borre las filas que sean diferentes a la condicion Gracias a todos Sub Macro1() ' ' Macro1 Macro ' Macro grabada el 21/11/2012 por Paco ' ' Dim Rango As Range, Fila As Long, ÚltimaFila As Long Application.ScreenUpdating = False ÚltimaFila = 1 For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila If (Range("I" & Fila).Value <> TRANSPORTES Y LOGISTICA SORIA, S.L.) Then en esta linea me da el error If Rango Is…

Buenas, Estoy haciendo un macro para que se generen unos informes diarios, semanales y mensuales. El problema está en que busco que cuando el que llenara el userform no le falte un combobox o un listbox este emita un mensaje, pues esto ya lo e logrado pero cuando lo emite quiera saber cómo hacer que cuando estén completos los combobox este se limpien, empecé a utilizar empty pero realmente no se me ocurrió nada, a su vez quisiera saber si hay alguna forma de hacer lo siguiente: Este formulario es para un personal de 3 turnos y cuando elijan el personal del 3er turno que solo aparezca este en el listado. Anexo documento. Saludos y gracias de ante mano. Libro1(1).rar

Hola. Tengo un problema con las macros que tenía creadas en Office 2013 al ejecutarlas en Office 365. El office 365, a parte de ir lentísimo en comparación con el Office 2013. Resultan que dan error, pero no siempre en el mismo punto, unas veces nada más empezar, otras veces casi al terminar, otras veces es capaz de terminarlas. Casi siempre son errores al crear tablas dinámicas. He mejorado un poco al incluir en la macro al principio el siguiente codigo: screenUpdateStatus = Application.ScreenUpdating statusBarStatus = Application.DisplayStatusBar calcStatus = Application.Calculation eventsStatus = Application.EnableEvents dis…

Hola cómo están? Les comento que muy amablemente en este foro me ayudar a ponerle un buscador al estilo google a mi lista de precios, pero tengo un problema, cualquier persona que la abre que tiene excel 2003 y le deshabilita las macros diciendo problemas de seguridad, hay alguna manera de que esto no pase y que lo puedan abrir sin problemas? Muchas gracias.

Buenas tardes He creado un hoja excel con combobox para ir rellenando una hoja excel. Pretendo elegir un nombre de la lista y que lo envíe a la hoja. He conseguido hacer algo pero, si en el combobox indico "I" no puedo elegir la primera opción que sale. Es decir, si pongo en el cuadro "i"no puedo elegir ignacio porque no lo traslada pero si el siguiente que es irene. Me explico como un libro cerrado.... espero que con el archivo me entendais. Tambien me gustaria que el combobox se abriera con un click del raton en el combobox y no hiciera falta pinchar en el cuadro (pero esto no se si se podrá hacer es menos importante) Muchas gracias, ejemplo.xlsm

BUENAS TARDESA TODOSY OJALA ME PUEDAN AYUDAR, TENGO ESTA MACRO QUE ME LA FACILITARON OJO NO ES DE MI AUTORIA MUCHO NIVEL PARA PODER HACERLO YO: Sub Copia_recetas() Dim Rng$, x# Dim rept As Range Dim celda With Sheets("BD_Recetas") Rng = .Range("D1") Range("C9:C48").ClearContents x = 9 For Each celda In Sheets("Proy.-Comer").Range(Rng) If celda <> "" Then Set rept = .Range("C9:C48").Find(celda, , , xlWhole) If rept Is Nothing Then _ .Cells(x, "C") = celda: x = x + 1 End If Next End With Sheet…

Podrian ayudarme a solucionar este problema al copiar y pegar me da problemas con vba Fecha.xls

Realice la instalacion del programa Simular, que aporta macros para realizar la simulacion montecarlo. Resulta que excel no me permite ejecutar ninguna de las macros y me salen los siguientes errores: "Se ha producido el error ´1004´en tiempo de ejecucion: No se puede ejecutar la macro "registro.xlam!auti_open"Puede que la macro no este disponible en este libro o que se hayan desabilitado todas las macros" desde el centro de confianza tengo todas las macros habilitadas, el tema no temina ahi sino que al darle finalizar me permite trabajar pero no me corren las macros del programa. Luego cuando cierro el excel me salen las siguientes ventanas Una dice " Error de compi…

Buenas tardes amigos!! Con la nueva forma de pago de los parkimetros con el movil he descubierto que puedes bajarte como una base de datos con los tiempos, zona, importe gastado.... Me gustaría hacer una macro para ahorrarme tiempo con una base de datos resumida solo con los datos que me importan. Me podéis echar una mano?? En la hoja gastos pongo como me sale de la pagina web y en resumen como me gustaría que quedara. Creo que es algo sencillo pero soy muy torpe para esto. Gracias!!! Si tenéis algún problema no dudéis en comentarme. Un Saludo Parkin.xls

Buenas. Tengo un problema con el separador de miles y decimal en un textbox Poniendo este codigo me muestra correctamente en los label pero en los textbox me salen tanto para el separador de miles como para el decimal un punto "." Por mas vueltas que le doy no consigo que se muestre correcto. Ni con un replace ni con nada. Me.lblImporteTarifa = Format$(Tarifa, "#,0.00") Me.lblImporteNeto = Format$(Neto, "#,0.00") Me.txtDescuento = Format(Tarifa - Neto, "#,0.00")

Tengo un fichero en el cual utilizo dos combobox sincronizados de tal manera, que al seleccionar un valor en uno de ello, en el otro me muestra el valor que le corresponde ubicado en otra lista. Se me ha presentado un error en tiempo de ejecución al ejecutarlo y no he podido dar con lo que lo produce. Por ello, solicito la ayuda de alguien que me indique cómo solucionarlo y me describa por qué se produce. De antemano. gracias. Subo el fichero para mayor comprensión. Editado: Subo nuevo fichero con menos datos por si es cuestión de peso. Gracias por responder Macro Antonio. RELIQUIDACIÓN.rar

Hola amigos. de nuevo con ustedes, a ver si me pueden ayudar con esto, me lleva dias y no doy con la tela, les explico, en el form puedo buscar y modificar sin problemas, el asunto es que cuando modifico la imagen se modifican todas, no solo la que tengo que editar, para que funcione hay que darle al botón 3 Les agradezco su ayuda Cordiales saludos Imagen en Form

Hola les envio esta utileria para generar un layout de horas extras para efectos de subirlo a un sistema de nominas me da un resultado satisfactorio para 30 gentes aqui mi problema es como puedo compactar el procedimiento que tengo de los primeros cuatro pasos y hacerlo para mas gentes aclaro soy un mortal que le gusta optimizar sus procesos mediante, la aplicacion de los codigos que ustedes ponen en este foro me han ayudado en grande , comparto esto , pero tiene esa limitante de que no puedo generarlo para mas gente por que me da el error de que el procedimiento es demasiado largo saludos LAYOUTEXTRAS.zip

Buenas noches, he estado buscando como mejorar o simplificar los codigos del siguiente macro, y no logro mejorarlo, si alguien me puede orientar al respecto, por favor. me suman casi 2000 lineas de codigo, quisiera que fuera mas corto. CAJA DIARIA CHUCHERIA.rar

Estimados: Tengo un formulario por proyecto (pestaña) del cual tengo que sacar la mayoría de los campos. Estos campos se ordenan en una sola linea de datos en el Excel en forma horizontal por formulario (estos son muchos 564). Me dice: "procedimiento demasiado largo" , pero no sé que hacer para resolverlo, ya que tienen que estar los registros hacia el lado. Parte del codigo: [Public Sub Grabar_datos() Application.ScreenUpdating = False Sheets("Resumen").Select Range("A1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop For i = 1 To 6 If Len(i) = 1 Then i = "0" & i Ac…

Quería acabar mi proyecto hoy... y dando los toques finales me dice que EL PROCEDIMIENTO ES DEMASIADO LARGO.. CREO QUE POR HOY LE PARO Y ME VOY POR UN TEQUILA...PARA EL FRIO.... YA MAÑANA VEREMOS de a como nos toca... P.D.: ALGUNA IDEA a parte de PARTIR EL CÓDIGO EN VARIOS SUB? Saludos.

Hola!! Soy nuevo aquí con ustedes esperemos y alguien pueda ayudarme!! Tengo una macro que me manda información de Excel a Word y a partir de esta información estoy generando un reporte. El reporte fue generado a través de una plantilla de word *.dotx. y esta es abierta con la macro para que se añada la información. Debido a que tengo un procedimiento muy largo lo dividí en varios procedimientos, esto funcionó perfectamente el problema es que cuando comienza el siguiente procedimiento no me toma el documento activo para que siga generando el reporte. En seguida colocó un ejemplo del código: Private Sub Inicio_Click() Dim datos(0 To 1, 0 To n) As String patharch…

Bueno primeramente agredecerles por semejante esfuerzo y dedicacion, realmente este foro es unico; bueno mi problema es que quiero que una macro cualquiera sea corra cuando una celda o rango se modifique, es posible? muchas gracias...

Hola amigos de #Ayuda Excel Aquí traigo unas inquietudes que quisiera me ayuden a resolverlas, que a continuación detallo: 1.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que me informe que faltan llenar datos en las celdas con color y que no se ejecute la misma, hasta cumplir esa condición. 2.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que al grabar los datos del comprobante en los registros respectivos, me informe que el comprobante esta repetido tomando en consideración los 10 primeros datos registrados y que no se ejecute. 3.- Necesito agregar un procedimiento o modificar mi macr…

Hola a todos; Tengo una duda que no se como resolver y me gustaría salir de dudas. En un formulario he puesto a modo de prueba 18 labels y un botón que al ejecutarlo le quita el color de fondo a cada label. Lo que no sé es si es posible mediante un ciclo que controle el nombre de cada label y así evitar repetir tantas veces el mismo procedimiento. El procedimiento es el siguiente y lo pongo así porque no deja insertar código: Option Explicit Private Sub CommandButton1_Click() ' ¿Hay alguna manera para mediante una variable o función para no repetir ' "Me.Label_ 1 ---> 18" veces? Me.Label1.BackStyle = fmBackStyleTransparent …

Mis estimados exelologos, vengo a ustedes con un nuevo problema que me he encontrado. Desde el Personal.XLSB tengo unos procesos programados, que se abran ciertas planillas y estas se ejecuten. Esto del Personal.XLSB es la modificación, pues antes dejaba cada planilla abierta y se ejecutaba a la hora cada proceso. Es un problema el abrir desde esta aplicación y esperar que se ejecute la sentencia application.OnTime dentro de cada Excel? Los códigos como siguen: ‘En Personal.XSLB Sub auto_open() Application.OnTime TimeValue("17:28:00"), "valcuo" End Sub Sub valcuo() Libro = "C:\ \ejemplito.xlsm" Workbooks.Open Libro End Sub ‘Hasta aquí no hay problema, en la hora …

Hola estimados de Ayuda excell Solicito su ayuda para este proyecto de Tpv que me gustaria optimizar, todo funciona perfectamente, pero intento añadir un boton para elegir la familia y que esta llene los botones pero no lo consigo, y tampoco que me lo descuente del stock De antemano agradezco su colaboracion Saludos Tpv

Hola buenos días, me dirijo a ustedes para ver si me pueden ayudar con un sistema de prestamos que estoy haciendo, en el cual coloco el nombre de la persona el monto, la cantidad de cuotas, y el interés mensual. La idea es que al poner la cantidad de cuotas (que nunca van a superar las 12 cuotas), se calculen y se ingresen en las casillas de cuotas, y al lado de cada cuota esta la celda de Pagado o Pendiente que si esta pagado se borre el contenido de esa cuota y si esta Pendiente lo deje. espero que no este muy complicado Gracias. Adjunto archivo. cuotas.xls

Cordial saludo, Señores, necesito de su valiosa ayuda para sacar adelante el siguiente proyecto. Trabajo en una empresa de vidrio en donde llevo el programa de producción en Excel y quisiera que en este archivo pudiera realizar lo siguiente. 1. Hacer simulación de corte. Una de las variables que manejo en la línea es realizar como mínimo 450 mt2 diarios, este metraje sale del producto que se lamina en la línea. 2. Al correr la macro que me simule los lotes que tengo que mandar a cortar para cumplir con el metraje obligatorio. 3. Que me sume por color las ordenes de serigrafía ( vidrio pintado) 4. Que me sume por color las ordenes con trabajo 5. Que me sume p…