Saludos a todos: Tengo 3 tablas en el archivo de access, de la tabla me gustaría traer los datos por un rango de fechas y que los ordenara de acuerdo al Id y fecha, de la tercera tabla seria sumar por mes y año de acuerdo a cada Id y clave, de la segunda tabla es sumar por mes y año por cada Id. Adjunto un pequeño ejemplo solo con los datos necesarios, ya que realmente tengo mas columnas en la tablas de access Agradezco de antemano su apoyo y/o sugerencias Saludos datos.mdb Datos.xlsm

Buenas Tardes, Alguien me podria apoyar con resumir las operaciones ya que desarrolle las operaciones en un rango de filas por ejemplo hasta 45, sin embargo muchas hojas son variables y la formula a veces es mas de 45 hasta 100 o 200 filas, por lo que se demora un poco en las operaciones, habra alguna forma de que las operaciones se hagan en funcion de la cantidad de datos de determinada columna SAludos, Sub ProcesarMO() Dim celda As Object Dim rng As Range Set rng = Range("I13:FE13") For Each celda In rng valor = celda.Value If valor Like "*S*" Then celda = Val(Range("G13")) * Val(Range("H13")) / 9.5 Next celda …

¿Es posible declara una variable Tipo Range como Private? Ej: Private cel as Range ----------------- Sub Prueba Dim cel As Range Set cel=cells(1,1) Call Prueba2 End Sub --------------- Sub Prueba2 Msgbox cel End Sub Es que no lo consigo de ninguna forma y no he visto nunca nada al respecto. Gracias

Buenas Tardes, Tengo una macro la cual me permite seleccionar múltiples libros excel para poder juntarnos en uno solo. Existe alguna forma que cuando me muestre los libros que quiera abrir, estos se seleccionen solos? Sin tener que seleccionarlos uno? Es decir, yo quiero que siempre se abra de una direccion el libro1.xlsm, el libro2.xlsm y el libro3.xlsm. Gracias. Prueba.xlsm

Hola, Hay alguna macro posible que haga que sólo se pueda seleccionar una celda a la vez? De manera que el usuario no pueda seleccionar más de una celda a la vez Gracias

Buenas tardes, espero puedan ayudarme con este dilema tengo una hoja donde deseo sumar las compras del mes en 2 columnas por separado, y x color 1ra. columna de c8 hasta c150.............sumar solo lo k esta de negro, asi tenga otros colores 2da. columna de g8 hasta g150.............sumar solo lo k esta de negro, asi tenga otros colores adjunto un archivo-.gracias. 04-DEUDAS.xlsx

Hola a todos, tengo esta macro la cual me dice si la fecha que introduzco es menor a la del sistema, lo que deseo es que no me me escriba esa fecha si es menor a la del sistema. Espero haberme explicado y espero vuestra ayuda Sub CheckDate() Dim Mes As String, Año As String, FechAs As Date, Hoy As Date, Sig As Long Hoy = Format(Now, "dd/mmmm/yyyy") Mes = ComboBox1 Año = ComboBox2 FechAs = Dia & "/" & Mes & "/" & Año If FechAs < Hoy Then MsgBox "La fecha asignada es menor a la de hoy" Sig = 1 Else MsgBox "Fecha asignada correctamente" End If End Sub fecha.txt

Hola a todos, primer día aquí en este foro, espero podáis ayudarme con un asunto que me lleva de cabeza. He preparado un excel para registrar vacaciones etc. El funcionamiento es el siguiente: A) el empleado tiene un número de días máximo por semana para coger, si sobrepasa el % la siguientes celdas aparecerán coloreadas en naranja b) la macro que he estado haciendo identifica estos subrangos (semanas) y aplica el criterio anterior, y colorea celdas. El problema está en los meses con menos de 31 días, como es Junio. El rango que colorea la macro se desplaza una columna a la izq. Mi intención es por ejemplo, en el caso de Junio, que la macro ident…

Buenas tardes En la celda E45 tiene que tener un numero para que cuando realice una consulta me muestre todo los datos pero hay veces que ese campo no se rellena y quisiera que tuviese un 0 por ejemplo Y no se que solución darle Factura Ayuda.xlsm

¿Es posible cambiar el caracter del separador decimal en VBA para VBA? Me explico, se que la instrucción Application.DecimalSeparator = "." cambia el separador del sistema al punto ("."). Pero esta instrucción sirve sólo para el sistema, es decir, si yo escribo en la celda A1 el valor 0,5 éste se muestra como 0.5. Pero si en VBA ejecuto Msgbox 1/2 el resultado lo muestra como 0,5 y necesito que el resultado se muestre como 0.5 Por eso pregunto ¿cómo cambiar el caracter decimal en VBA para VBA? Lo que hago ahora es que cada vez que tengo que mostrar un número lo hago con Replace(Cstr(núm),"'","."), primero paso el número a cadena y después reemplazo el…

Buenos días Como se puede poner la ruta donde guardar el fichero pdf en la macro que tiene esta hoja factura Gracias Factura.xlsm

Buenas tardes. Me podrían apoyar por favor en darme una guía de como puedo obtener lo siguiente: tengo una macro que recorre la fila 1 hasta el último dato.. ejemplo A1 hasta AA1. Lo que trato de hacer es que si el valor es mayor a 3 letras entonces me limpie el contenido, pero cuando se encuentra con celdas combinadas me marca error. No puedo eliminar las celdas combinadas, porque me descuadraría mi archivo. Sub Eliminar_texto() Dim lc As Long, col As Long lc = Cells(1, Columns.Count).End(xlToLeft).Column For col = 1 To lc If Len(Cells(1, col).Value > 3) Then Cells(1, col).ClearContents Next End Sub Gracias por la ayuda y su tiempo. ☺️ MiEje…

Buen dia Reciban cordial saludos a todos hoy les pido la colaboración con el siguiente tema ya que no he podido, en el libro adjunto, tengo que sacar un informe de relacion entre las fecha, hora de incio y coordinador de la siguiente manera. Son varias las opciones del filtro. 1 tiene que coincidir la fecha, la hora de inicio y el coordinador. 2 tiene que coincidir la fecha, la hora de inicio tiene un lapso de tiempo no mayor a 30 minutos, el coordinador. en la hoja de deje subrayado dos ejemplos para que se puedan guiar mejor del resultado que requiero les agradezco si me pueden colaborar. quedare atento…

Prueba.xlsx Saludos y muchas gracias a todos de antemano. Adjunte una tabla que aunque no les parezca lógica es muy parecida a lo que quiero hacer. No puedo subir la original por mi trabajo, pero la primera columna es exactamente lo que tengo, me explico. Verán en la tabla adjunta una serie de información tal como: 9010-00 sin ninguna información en la columna de información. Me interesa añadir de manera automática lo siguiente: Por ejemplo 9010-00 -- la información del 9010-01, la información del 9010-02, ...... 9010-01 --- información del 9010-01 9010-02 -- información del 9010-02 Luego viene otra nueva 9012-00 -- la información del 90…

Hola, amigos. Seguro que me van a poder ayudar en este tema. He creado una macro para guardar un documento con el nombre que se contiene en una celda. Mientras que la ruta donde guardarlo nos lleve a un espacio del disco duro, no hay problema. La coas se complica cuando intento guardarlo en una biblioteca de Sharepoint, ya que aunque no me da ningún error al ejecutar la macro, el archivo no llega a destino Gracias de antemano por su ayuda El código es el siguiente: Sub Guardar_Ficha_Cliente() Dim nombre As String nombre = Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "/Users/andreu/Desktop/" &…

En las hojas de cálculo he usado bastante las funciones mín común múltiplo (M.C.M) y máx común divisor (M.C.D). Pero ahora estoy haciendo una macro y no encuentro esas funciones en V.B.A. Me cuesta creer que no venga implementada. Si es así, me gustaría conocer alguna macro sencilla para obtener esas funciones. Gracias.

Hola a todos. Tengo el siguiente código para copiar columnas de una hoja a otra, pero si en la primera tengo fórmula, me copia la fórmula; y ahora necesito que me copie solamente los valores, como cuando hacemos un pegado especial manualmente. Dim ShER1 As Worksheet Dim SHDestino1 As Worksheet Set ShER1 = Worksheets("b.p.") Set SHDestino1 = Worksheets("b.d.") ShER1.Range("b10:D1500").Copy SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlAll Application.CutCopyMode = False ¿Alguien puede decirme el código para hacer lo que pretendo? …

Buenas Tardes: Me pueden ayudar como hago para corregir este error ya que en mi pc no sale pero le envio el archivo a otra persona via email y le sale, a esa persona no le sale la linea donde esta el error, solo sale el error y ya.

Gastos-Ingresos Casa.xlsmEstoy haciendo un archivo para llevar gastos de casa, y estoy buscando una macro para que me haga la suma en la columna de saldo la suma gastos y de ingresos y la sume en la columna de Saldo. he intentado buscar pero no consigo que me funcione , lo he `probado con con hacer con la macro de excel y tampoco me funciona, os lo agradezco si me podéis ayudar con esta macro. Muchas Gacias Saludos

Hola estimados maestros, Buenos lo que quiero hacer es un reporte por N° Pedido junto con los items que contiene cada pedido. Primero: Ejecuto el Formulario (Form_Reportes) en lo cual Hago la Consulta según los criterios de Option Boton y me arroja al ListBox la Informacion de la Hoja "CONSOLIDADO" (lo cual contiene sumas Totales). Segundo: Al Oprimir el Boton "Imprimir" quiero que me genere todo los items del ListBox mas sus detalles (es decir que artículos está incorporado en el N° Pedido), para mas entendimiento a lo que requiero adjunto un Imagen. El problema viene en el Segundo punto, lo cual no encuentro la lógica de como hacer un reporte como l…

Buen día solicito su apoyocon un macro o un formato condicional en el cual pueda colorear en automatico un rango determinado de celdas de acuerdo a una fecha inicial y final, dejo el ejemplo en el excel adjunto.Cronograma de salidas.xlsx gracias de antemano por la ayuda

Saludos amigos del foro, he pasado ya varios días procurando tener código preciso el mapa apropiado para que excel está configurado para poder guardar a formato XML ya que en el generador de exámenes de Examview existe una opción para importar desde XML. Incluso tengo un archivo de libre descarga que estaba en XML y ha sido justamente hecho para ser importado por Examview, debo suponer que debe haber alguna versión que lo haya generado; en este caso Examview si lo importa sin problemas. Lo cierto es, que trate de basarme en este archivo XML para configurar el mapa de xml y ser agregado al Excel, pero no lo acepta. Fui eliminado código para hacerlo más simple hasta el punt…

Buenas a todos, No se como explicar el problema que tengo.. espero hacerlo bien. Tengo un libro excel al cual le cree un menú que se abre con diferentes opciones (auto Open). Este archivo es necesario enviarlo todos los días via correo, pero por lo general mis jefes no necesitan guardarlo sino que simplemente abrirlo y echar un vistazo.. El problema que tengo es que el archivo se llama "EOD Mayo V2.xlsm" pero cuando lo abren en modo lectura sale con el nombre "EOD Mayo V2.xlsm (1)", como que crea una copia.. Y esto arruina los vinculos y deja de correr la siguiente instruccion: Private Sub Label1_Click() Application. _ Workbooks("EOD Mayo V2.xlsm"…

Hola a todos: Estoy con un archivo de incidencias y lo que quisiera es que en la celda del rango de celdas (“G4:I” & uf) de la hoja “Resumen” cuyo valor (en formato hora personalizada) sea “0:00:00” aparezca el código de la columna C de la hoja “SEMANA_2” correspondiente al nombre y a la fecha: P. ejemplo: Si la celda F7 de la hoja “Resumen”, que se corresponde con el nombre “DIAZ ANSORENA LUIS” y con la fecha “09/01/2020”, tiene valor “0:00” lo que quisiera es que apareciera el valor correspondiente de la hoja “SEMANA_2” que en este caso sería el de la celda C10: “V62”. He hecho una macro (entiendo que muy torpe) que no funciona, aunque repasándola, cr…

Buenas compañeros, Me enfrento a un problema de programación con VBA que parece complicado, a ver si me pueden echar una mano ya que he investigado y no encuentro la manera de hacerlo. En la siguiente imagen, en la columna B están las "Acciones". Dentro de las celdas de esta columna hay texto con información relativa al trabajo realizado. Mi intención es buscar todas las veces que se repite la cadena "Sub-task stamped" dentro de una misma celda y extraer la fecha y hora que está en el renglón justo de abajo. En el Ejemplo de la imagen el resultado sería: -Sub-task Stamped: 10-Mar-2020 21:20 - Sub-task Stamped: 10-Mar-2020 19:03 …