Buena Tardes, Les escribo en esta oportunidad, debido a que estoy teniendo problemas con una macro de intersección de rangos de fechas el cual realice para que cumpliese con mis necesidades, el cual es que me diga si chocan en sus periodos de vacaciones el supervisor y el tablerista, así como los turbinista_1 y turbinista_2 entre si y con el tablerista; y por ultimo los turbinaista_1, turbinista_2 y Operador Auxiliar de Turbina (op. aux. tur.). El problema que estoy teniendo es que haga lo que haga siempre me aparece la ventana que dice: "Coinciden Tus Vacaciones Con la Segunda Fracción del Tablerista" o "Coinciden Tus Vacaciones Con la Segunda Fracción del Supervisor…

Buenos días, tardes, noches compañeros Hoy vengo con una duda que no he podido encontrar solución, en internet o en el foro. La consulta es la siguiente: estoy tratando de realizar una macro para insertar de manera automática una "Validación de datos con lista desplegable", con números enteros, la macro que he hecho, basándome en lo que he encontrado en internet y en mi poco expertís es la siguiente: With ActiveWorkbook With .ActiveSheet For iCo = 1 To 9 lCodigoEF = lCodigoEF & "," & CStr(iCo) Next iCo With .Range("C2:C1000").Validation .Delete .Add Type:=xlValidateList, AlertStyle:…

hola buenos días amigos forista antes que nada agradezco a todos los que se tomaron la amabilidad de leer mi post, un saludo especial para el Gran Macro Antonio y para Bigpetroman que siempre me han ayudado con sus ejemplos comentarios y sujerencias, bueno la duda que tengo es saber si es posible mediante una macro Exportar una tabla de una base de datos de access a otra bd de access (manualmente desde la base de datos se puede hacer ya que existe la opciòn de importar e exportar) pero quisiera saber si esposible automatizar esto mediante una macro desde excel de antemano muchas gracias a todos. EJEMPLO.rar

hola me gustaria saber cual es la parte del codigo donde pones que se ordenen las graficas una debajo de la otra por codigo osea cual es codigo, yo tengo el sig. codigo que grafica me grafica una sobre otra. anexo el codigo aunque esta muy personalizada a cierto formato que tengo pero solo me falta eso que te explico arriba. gracias de antemano Sub crear_grafico() ‘Ocultamos el procedimiento Application.ScreenUpdating = False ‘Pasamos a una variable la celda donde estamos, ‘para volver a ella al finalizar el macro celda_donde_estamos = ActiveCell.Address ‘Vamos al principio del rango de datos ‘(celda de arriba a la izquierda). ‘Mejor usar esto, que CurrentRegion: If Ac…

Hola: Necesitaría una macro para importar varios txt en un directorio a un mismo archivo excel. Buscando en el foro he encontrado este hilo, y el archivo excel con la macro que se indica me funciona bien: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pasar-varios-txt-al-mismo-libro-diferentes-hojas-24406/ El único problema que tengo es que necesitaría que los txts los importa con la opción de separación por espacios y no por comas. Esta opción la puedo elegir si importo un txt únicamente mediante la barra de herramientas común, pero en el caso de la macro no se si se pudiera cambiar, bien modificando el código, o bien modificando alguna opción general del …

Hola amigos de AE. Les escribo acerca del APPCRASH, solo quiero información. He encontrado en la red información. Pero si pudieran comentar al respecto. Que es, por qué sucede, como evitarlo, etc Gracias

Buenos dias, necesito ayuda para saber como puedo evitar que mis formularios de VBA al ejecutarlos ni cierren los demás Libros que ya tenia abiertos.

Buenas tardes, tengo la macro para Copia datos, abre otro libro pega datos, guarda y lo cierra, pero me falta lo que esta en rojo. Un saludo

Hola. Se trata de libro protegido y con varias hojas y algunos botones asignados a macros en cada una de ellas. De pronto y sin entender la causa, todos los botones aparecen más chicos y cambiados de su lugar original. Cabe mencionar que esto no sucede en todas las hojas del libro, pero desconozco la causa, teniendo la tarea de volver a configurar tamaño y ubicación, Si alguien tiene la solución, he de agradecerlo. Saludos desde Chihuahua, Chih. México.

bueans tengo este codigo Private Sub BtnGrabarDatos_Click() On Error Resume Next intvalor = 1 For i = 1 To ReCantidad Step 1 Range("B6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop Range("B5:V5").Copy Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormatsAndFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ActiveCell = CDbl(ReCodigo) ActiveCell.Offset(0, 1) = ReCategoria If IsNumeric(ReNuFactura) Then ActiveCell.Offset(0, 2) = CDbl(ReNuFactura) Else ActiveCell.Offset(0, 2) = ReNuFactura End If If ReReferencia.Enabled = False Then ActiveCell.Offset(0, 5) = "" …

Estimado amigos, Tengo sobre el tema que se indica en el asunto. Paso a plantearla Tengo una celdas con datos en columna como: Inicio Fin 03/01/2002 07/03/2002 16/04/2003 29/05/2003 20/08/2002 11/11/2002 15/10/2002 06/02/2003 07/02/2002 09/06/2002 Como pueden notar, en cada fila existe un periodo de tiempo indicado por fechas, los cuales tienen un numero de días. Estos periodos no están en orden cronológico tampoco. Lo que requiero es que calcule la superposición (traslape) de los periodos de cada fila y me de los días efectivos trabajados, y si fuera posible el periodo vacíos (no laborados). Espero sus comentarios y ayuda. …

buenas noches, dispongo de una macro que me entrega para cada celda un valor distinto de 0 (dentro de un rango de celdas), al utilizar ciclo for, no obtengo todos los resultados inmediatamente (algunas celdas siguen con valor 0, por la naturaleza de los datos de entrada), por lo que debo ejecutar la macro varias veces hasta que se rellenen todos los datos del rango con un valor distinto de 0 como puedo ejecutar la macro de forma automática varias veces, hasta que todos los valores de mi rango, sean distintos de 0? muchas gracias

Tengo dos libros y lo que quiero es pasar datos del libro llamado "base de datos" a "reportes", lo que conseguido hacer pero teniendo que abrir los dos libros, quiero que me ayuden a pasar igual los datos pero sin tener que abrir "base de datos" por favor. Saludos. EXCEL.rar

Quisiera hacerles una pregunta que lleva un par de días rondándome la cabeza. La otra vez preparé un archivo que llevaba un montón de comentarios que contenían imagen. Se incluir y delimitar el tamaño de esos comentarios, mi pregunta es: existe la posibilidad de hacer que se añadan las imágenes por medio de pegado (o arrastrando la imagen) sin necesidad de tener dicha imagen en el ordenador. Me refiero a la opción "copio imagen" "pego imagen". Lo que vendría a ser añadir un comentario para dummies, o para vagos... depende de como se mire. El problema me surge al pensar en un archivo que va a ser utilizado por una persona para la que sé que descargar imagen, inserta…

Amigos... Quisiera su apoyo en el siguiente problema de excel, tengo el libro con los datos de ingreso y devolucion (salidas) de un determinado mes, lo que deseo es que en la hoja stock me muestre la cantidad de materiales restando el ingreso y egreso, pero teneiendo en consideracion el estado (N o R), osea sumara materiales que sean iguales en estado y lo mismo pasaria con la resta (devolucion). Apreciare su apoyo acostumbrado al foro. Saludos cordiales ejemplo 2.xls

Buenas tardes, tengo un problema al buscar un dato en un textbox que hace referencia a otra hoja trabajando por worksheetfunction, estaba tratandolo contra error, pero no lo he logrado aún, el asunto es que si no encuentra el valor en el rango que le asigno que me muestre un msgbox y que de lo contrario si existe entonces que coloque los valores encontrados. Alguien me podría ayudar a saber en dónde se encuentra el fallo?, porque me dice que no se puede obtener la propiedad vlooup de la clase worksheetfunction, gracias por cualquier respuesta. Private Sub TextBox2_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean) 'Dim BUSCAVALOR As Double 'With Workshee…

Buenos días a todos y Felices Fiestas. Tengo un problema que espero me podais ayudar. Tengo un Calendario en Excel y necesito buscar el dia 1 en que celda está. Uso el siguiente comando: Fila = Hoja1.Range("B5:H10").Find("1").Row Colu = Hoja1.Range("B5:H10").Find("1").Column Pues bien, sencillo no? solo tengo que buscar el valor 1, pues lo que me hace es darme la fila y columna del número 10. Alguien sabe porque? Muchas gracias y un saludo

Hola a todos!!! Les comento, tengo un formulario que tiene varias TextBox y un Botón de Comandos para insertar datos en una hoja. Lo que necesito es que una de las TextBox solo admita ingresar los datos de la siguiente manera: 1- Sólo se puedan ingresar 6 caracteres. 2- Los primeros 3 caracteres sólo puedan ser letras mayúsculas. 3- Los últimos 3 caracteres sólo puedan ser números. He buscado en el foro y he encontrado como hacer que admita sólo números, también para limitar el número de caracteres, o para que se ingresen sólo mayúsculas, pero no he encontrado cómo hacer una combinación de los 3 para un solo TextBox, como en mi caso. No se si es posible, pero desde ya…

Si yo escribo un valor en F1, por ejemplo 10, luego sobre escribo 8, vuelvo a sobre escribir 7, como hago para que me muestre la suma en G1, por decir y de acuerdo a los datos anteriores, me mostraría primero 10, después 18 y por último 25. Necesito que me haga esto en toda la columna ( F y G, en este caso) no sólo en la primera celda. Espero que me hayan entendido. Gracias. Macro evento suma a valor anterior.xls

En excel 2003 era posible grabar una macro incluyendo la insercion de una forma como una linea o un rectangulo, sin embargo en la version 2007 no queda grabada en la macro las instrucciones para dibujar una forma en la hoja de calculo.

buenas noches, tengo una inquietud que me la adquiri al ir de tema en tema y encontrarme un archivo llamado agenda el cual es lo mas parecido al concepto basico de automatizacion, pero al estar probando el contenido me di cuenta que tiene un error un tanto fatal que no supe como resolver y es que la parte de busque no lee la cantidad de filas y columnas y la verdad no entiendo porque se pasma cuando contiene demasiados datos, he aqui mis preguntas ¿no se supone que debe leer el maximo de filas y columnas?, ¿como puedo hacer para que ello funcione si suponieramos que estan llenas las filas y columnas especificadas?, ¿como seria entonces el codigo para que funcionara como s…

Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema. Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte Sub PENSI() For f = 8 To 8 Sheets("BOLETA PENSIONISTA").Select Range("A1:H70").Select Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1) Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWindow.SelectedShee…

Hola, tengo un libro con el que hago escandallos para un restaurante. El libro contiene varias macros. Y cada vez que lo abro me da el siguiente error: Aviso: Hemos encontrado un problema con contenido de "wary_escandallos_19.xlms". ¿Desea qué intentemos recuperar el máximo de contenido posible? Si confía en el origen de este libro, haga clic en Sí. Le quito las macros y sigue dando el error. No se donde puede estar el error. No sé si tendrá algo que ver qué dicho archivo se abre en windows y en mac indistintamente. Muchas gracias por vuestras sugerencias.

Buenas Noches Tengo el siguiente código, que almacena las referencias de las celdas en la Variable Rango, para posteriormente borrar el contenido de las celdas. El problema es que al llegar a la parte del borrado del Rango me Arroja error 1004 en tiempo de ejecución. Son aproximadamente 100 celdas las que debe borrar. Sub Factura_LimpiarPlantilla() Dim Rango Plantilla = "Factura_Registro" Setup = "Factura_Setup" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets(Plantilla).Unprotect Clave I = 2 Rango = "" While Sheets(Setup).Cells(I, 3) <> "" If Sheets(Setup).Cells(I, 5) = "SI" Then Celda = Sheets(Setup).Cells…

Necesito ejecutar un macro X numero de veces y que se agregue en una tabla los datos dentro del macro pero no encuentro forma de hacer que funcione Aqui una foto de lo que deseo agregar donde esta X que sea un numero cualquiera deseado Sub Macro1() ' ' Macro1 Macro ' ' Range("H3:K3").Select Selection.Copy Range("A50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Range("J3").Select End Sub Ese es el codigo de la macro. Produccion.xlsm