Hola, de nuevo por aquí para hacerles una consulta, tengo un modulo de 32 bits con un código, este me funciona bien en compu de 32 bits, pero no asi en compu de 64 bits, la consulta es la siguiente, puedo poner un modulo con el código de 32 bits. y otro con el de 64 bits, para que me funcionen indistintamente, es posible, se podrían combinar sin problemas, aquí les dejo el codigo Gracias por anticipado, un cordial saludo a todos los foreros Módulo32Bits.bas Módulo64bits.bas

Buenas tardes, Recurro a ustedes una vez mas, para intentar que alguien me ayude a dar con la macro adecuada. Tengo un documento, con registros de personas (nombres, apellidos, fechas de nacimiento...) y otra columna de edad que se calcula con la fecha de nacimiento mediante la siguiente formula =SIFECHA(--SUSTITUIR(F5;".";"/");HOY();"y")[/CODE] , pero cada vez que ingreso un con la fecha de nacimiento no se me actualiza la edad, he probado con esta macro pero no me funciona [CODE]Sub RellenarColumnaI() Range("I2").AutoFill Destination:=Range("I2:I" & Range("A" & Rows.Count).End(xlUp).Row) End Sub[/CODE] Me gustaría cada vez que se ingrese un registro…

Hola a todos. Llevo un tiempo dándole vueltas a este ejercicio y no acabo de sacarlo. Quería saber si podéis ayudarme a resolverlo. Tengo una tabla con 2 columnas (Alumno, Idioma) en la Hoja3. Necesito añadir los valores únicos de la columna "Alumno" a un ComboBox para que sólo aparezca una vez cada nombre. Después al seleccionar un nombre en el ComboBox pasaría automáticamente a la Hoja2 y cargaría en el Combobox de esa hoja los idiomas de la columna "Idiomas", pero sólamente los que tenga el alumno que hemos seleccionado en el Combobox de la Hoja1. Por ejemplo: - Se abre el archivo por la Hoja1 - En la lista "Alumn…

Señores buenas noches. Por favor necesito su ayuda, tengo que revisar linea por linea una base de datos y necesito una macro para que con un botón dar click y siga la siguiente referencia de una determinada columna. Gracias.

Estimados Foreros: Otra vez yo para pedir si es posible de que me orienten del porque no funciona bien mi listbox... me desaparece mis encabezados y no carga la información que le quiero decir... en si quiero que el listbox se cargue con la info de la base de datos pero solo con los que tienen en la columna H un "1" gracias de antemano. saludos. REPORTE.zip

Hola buenos dias amigos De nuevo por aqui para solicitar su añuda, por que no consigo dar con la tela, les explico, cargo los datos de la hoja en el listbox, al hacer doble clik encima los consigo enviar a los tex y combobox, pero no consigo que se vea la imagen, este es el codigo que utilizo, le he hecho algunos cambios, pero no me hace nada TextBox38.Text = ListBox1.List(ListBox1.ListIndex, 10) ComboBox1 = ListBox1.List(ListBox1.ListIndex, 11) ComboBox3 = ListBox1.List(ListBox1.ListIndex, 12) ComboBox4 = ListBox1.List(ListBox1.ListIndex, 13) fotografia.Picture = LoadPicture(ListBox1.List(ListBox1.ListIndex, 14)) Espero que me puedan ayudar …

Buenas tardes Desearía me ayudaran, si es posible, para hacer un Formulario que contenga tres Combobox dependientes entre sí Un saludo y gracias anticipadas AndrMax Formulario.rar

Buenos días, Tengo una hoja de Excel con macros y llevo algún tiempo esperando a poder utilizar esa hoja en una hoja de calculo en Android. De momento no he encontrado nada al respecto. Podeis ayudarme para poder utilizar esa hoja en Android? Hay alguna forma de poder pasar esas funciones de macros a esas hoja? Gracias

Buenas Estoy intentando crear un macro para generar un reporte entre periodos que están en las celdas " D5 " y " F5 " de una tabla de Access, pero no logro que funcione. acudo a ustedes para que me ayuden a definir cual sera el error. Formato de la fecha en Access "29/07/2020 10:48:51" Application.ScreenUpdating = True NumId = (Format(Worksheets("usuarioF1").Range("D5").Value, "DD-MMM-YYYY") & "# ") NumIh = (Format(Worksheets("usuarioF1").Range("F5").Value, "DD-MMM-YYYY") & "# ") Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "\01.Datos\Registro.accdb" .Open End With Set Rs = New A…

Buenas tardes, Necesito de su ayuda para resolver un inconveniente que tengo al realizar una macro con dos criterios de búsqueda, hasta el momento tengo lo que les presento a continuación, esta funciona a la perfección pues solo incluyo un criterio de búsqueda (Persona responsable) sin embargo necesito que localice la Persona responsable y la Cuidad donde nació esta persona (Ciudad_Nacimiento) -----------------------------------------MACRO Sub copiar_datos Dim archivo_origen, Persona, Ciudad_nacimiento As String, RsBusq As Range With Workbooks(archivo_origen) .Activate With .Sheets(1) .Activate 'Criterio de búsqueda para Persona responsable …

Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias

Hola amigos. En una ruta tengo varios archivos txt, cuyo nombre está conformado por un texto que nunca cambia, y después 2 dígitos para el día, 2 dígitos para el mes y 4 dígitos para el año. ForeingCurrency25062012.txt ForeignCurrency26062012.txt ForeignCurrency27062012.txt ForeignCurrency28062012.txt Me gustaría que desde una macro de excel, el usuario pudiera elegir el archivo de su elección mediante un userform o combobox, seleccionando de listas desplegables el día, el mes y el año. ¿Qué tan descabellada suena mi idea? ¿creen que sea posible? Cualquier orientación al respecto se las agradecería enormemente.

Hola a todos, primero que todo dar las gracias por los aportes y comentarios que haceis.. Hoy traigo un "pequeño gran reto", GRÁFICA VERTICAL TIPO PROCESOS La Idea es obtener un gráfico Tipo Procesos (Vertical), y que las Formas (Shapes), cambien de celda dependiendo de los valores registrados en la columna "E"; para cada opción de este Ejercicio ... RANGO DE VALORES desde 0 hasta 100; mostrados en el Rango("F2:P2") La idea es que al cambiar el valor de la Columna "E", el objeto (Shape), se desplace a la columna correspondiente (F; G; H; I; J; K; L; M; N; O; P) Dependiendo del valor registrado en la Celda Range("$E...") La M…

Hola a todos. De nuevo por aquí pidiendo ayuda. Nos han cambiado las licencias de Office a Office 365. He revisado las macros y las que me fallan tienen que ver con las que envío correos automatizados. He podido arreglar todas, cambiando el código porque de Office 2013 a Office 365 cambia el código, se usa el objeto CDO.Message. Pero se me resiste esta macro, que envía un correo e incluye como parte del cuerpo del correo un rango de celdas donde hay un gráfico. Os pego el código para ver si me podéis ayudar. Después de la instrucción "ActiveWorkbook.EnvelopeVisible = True" el programa ya no ejecuta nada más. He probado con F8 paso a paso y ahí se detiene. Necesi…

Buenas noches... En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen... Cada columna tiene su comentario, pero la restricción es solo para las que dicen: No se permiten números 0123456789 No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;) ¿Es posible con macro? plant.xlsm

Buenas, tengo un problema con estos codigos. El siguiente, me falla en la parte del codigo donde graba el archivo temporal (negrita). y Me aparece el siguiente mensaje de eror al depurar: Se ha producido el error '1004' en tiempo de ejecucion: No se puede tener acceso al archivo. Intente lo siguiente: Compruebe que la carpeta especificada existe Compruebe que la carpeta que contiene el archivo no es de solo lectura Compruebe que el archivo no contiene ninguno de los siguientes caracteres: < > ? [ ] : o *[/HTML] Lo extraño es que anteriormente funcionaba facilmente y lo unico que hice antes de que dejara de funcionar es cambiarle el nombre de la hoja a enviar.…

buenos dias amigos espero que alguien me pueda ayudar estoy tratando de hacer una macro o mas bien para complementar una macro que tengo para que al momento que envia el correo junto con el archivo adjunto me pueda eliminar de la carpeta de enviados el mismo email enviado sub envio_archivo() strReportName = "C:\Users\Sergio\Documents\Preforma\Preforma.xlsm" Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(olMailItem) Set objOutlookAttach = objOutlook.CreateItem(olAttachMents) With objMail 'A quien va dirigid…

Hace poco @JSDJSD me ayudo con un tema de gráfico en un userform. Ahora vuelvo a solicitar ayuda para este grafico de audiometría para poder introducir valores en los Textbox del UserForm para poder cambiar los valores principales de una audiometría y poder también poner como el archivo de ejemplo de sonido en el UserForm. Gracias de antemano audiometria.xlsm 01.mp3

Buenas tardes a todos; -Tengo un procedimiento para crear una marca de agua en el encabezado. -¿Sería posible que dicho encabezado esté centrado en la hoja? Gracias de antemano y saludos a todos. MAgua.zip

Tengo una macro que al exportar una seccion de excel exporta el rango en blanco sin informacion no se por que aqui el codigo Sub Descripcion_jpg() Sheets("Ingreso Productos variables").Select Dim B As String B = Range("C43").Value If B = 2 Then Exit Sub End If Sheets("Descripcion").Select ActiveSheet.Unprotect ("adctv530") Dim rgExp As Range: Set rgExp = Range("B22:K42") Dim archivo As String archivo = Range("A1").Value ''' Copy range as picture onto Clipboard rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ''' Create an empty chart with exact size of range copied With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, T…

Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos. ExportarTxt.zip

Hola: Lo que voy a pedir quizás roce lo imposible pero, por si acaso, ahí va: El archivo (creao por Logroastur) envía un mensaje a cada destinatario de la columna C. En condiciones normales (o sea, desde Outlook) envío los mensajes -uno a uno- y luego, desde la bandeja de enviados, imprimo el mensaje enviado para tener una prueba por si me reclamaran meses más tarde (ya que elimino los mensajes eliminados al cabo de unos días). Por tanto, lo que solicito es si hay alguna manera de que una vez enviados se imprima un folio (o bien se generen pdf´s que luego imprimiría) con los datos el mensaje enviado (uno por cada destinatario, claro). Como sugerencia (por ayudaros …

Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel. pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio. Set r = Sheets("RESUMEN") uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1 'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents Dim Fcc As Date 'Declaracion de variable de tipo fecha Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS…

Buenas, me pasa una cosa extrañísima y pruebo aqui a ver si le ha pasado a alguien más y sobre todo si hay alguna solución: la hoja de cálculo en cuestión tiene un combo box para poder visualizar diferentes cuentas de resultados en la pestaña cta. Es un fichero que tenemos en red, que usan diferentes usuarios. Pues bien, cuando desconectas el portátil de la red, con el fichero abierto (para ir a alguna reunión fuera de tu sitio) hay un momento, que al navegar por las opciones el combo, en este se distorsiona la fuente de las opciones y no puedes ver nada (adjunto imagen). Si estas conectado en red, NUNCA pasa. Nos pasa en diferentes ordenadores. Es verdad que …

Buenas tardes, por favor necesito una macro para poder guardar datos de la hoja Formato de Tareo 2021 a hoja DATA FASEO a manera de historial, cada vez que tengo que modificar y los rangos la cual se tienen que pasar o guardar ya se encuentran en la hoja DATA FASEO que los copie de forma manual y algunos otros rangos mas para completar con el registro, por favor si se podria dar una solucion ya que para mi se me hace imposible. Muchas gracias y adjunto el archivo. Reporte diario de trabajo Rev.xlsm