como puedo modificar este codigo de pegado de un libro a otro libro ejecutandose a partir de la celda ax1 a cw 42 Sub Macro40() ' ' Macro40 Macro ' ' ActiveCell.Select Windows("programa 4 cifras 1.xlsm").Activate ActiveCell.Offset(-36, -2).Range("A1:D6").Select Selection.Copy Windows("Analisis2018.xlsm").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.Past…

Buenos días, gusto saludarles. Tengo una herramienta que imprime en PDF, con el siguiente código: Sub ExportPDF() Dim sResultadoTipoICM As String Dim sNombreProducto As String sResultadoTipoICM = Hoja3.[O5].Value If MsgBox("Antes de imprimir en PDF debe guardar el archivo en formato de Excel." & vbNewLine & _ "" & vbNewLine & _ "Tenga en cuenta que la impresión en PDF es el último paso en el uso del ICM.", _ vbYesNo, "¿ Ya guardó el ICM en formato de Excel?") = vbYes Then If sResultadoTipoICM = "proTarjetas" Or sResultadoTipoICM = "proSeguimiento" Then Sheets(Array("Informe Cualitativo")).Select …

Buenas de Nuevo. Tengo esta macro hecha por mí con grabadora (no doy más de sí) trabaja con esta formula =SUMA(N(MMULT(N(CONTAR.SI(DESREF(C$5:H$5;FILA(C$5:C$10000)-FILA(C$5););$L1:$Q1)>0);{1;1;1;1;1;1})=4)) Para contar coincidencias de 2, 3, 4, 5,6 números de las familias en de valores de L: CL con ? H El rango real es mínimo en L: CL es de 150.000 claro cada grupo tarda +- 50 minutos, habría otra macro que fuese mucho más rápida ¿? Ahora tengo otra sorpresa que acabo de ver y esta fórmula la daba por buena y es que veo que no hace la función que yo pensaba. Ejemplo: EN L:R SEGUNDA FILA DEBERIA SER EN R 1 COINCIDENCIA DE 4 NUMEROS CON FILA 5 …

Alguien me podria decir si hay algun control parecido al msflxgrd.ocx que funcione en Excel 2016 de 64 bits. Porque los controles de 32 bits ya no funcionan en Excel de 64 bits. Hasta ahora no he encontrado ninguno. O conocen alguna alternativa distinta al uso del listbox. Muchas gracias.

Hola. Necesito hacer una macro para que se inserten saltos de página cada una determinada cantidad de filas en un libro que tiene unas 10.000 filas aproximadamente. Gracias

Tengo este archivo pero quiero saber si habra alguna otra forma de que la celda E1 cumpla con el mismo objetivo. EJEMPLO.xlsx

Buen día, tengo un dilema amigos, espero puedan ayudarme, tengo que emparejar lineas de excel de una base de datos de entradas y salidas de inventario (esto se alimenta a diario), el problema es que no tengo un punto de referencia exacta y fija para asociar la entrada y salida, así que lo único que tengo para asociarlo es por código de articulo y antigüedad de fecha, hasta el momento lo vengo haciendo de forma manual porque no puedo generar una formula o macro que me ayude a agilizar la operación, les dejo un archivo excel (existe una hoja de explicación de lo que hago manualmente), ojala puedan ayudarme con este problema. Saludos y gracias por su tiempo. AYUDA TR…

Buenos días. He realizado esta macro que lo que hace es si en la columna "revisión " de la hoja "facturación servicer" pone "no se remite" se traspase a la hoja "NO SE REMITE". Si sólo pongo esa condición la macro funciona perfectamente y rápido pero si añado que si en la columna "vendidas" de la hoja "facturación servicer" sea distinto a "no vendidas" con la sentencia If REVISIÓN = "NO SE REMITE" Or VENDIDAS <> "NO VENDIDAS" Then , para que también lo mueva a la hoja " no se remite" se me queda muy tostado el fichero y no es viable. He probado a hacerlo en dos partes, incluso en dos módulos pero seguro que hay algo mucho más eficaz. Am…

VBuenas tardes, Le comento mi inquietud a la comunidad haber si alguno sabria como ayudarme. (Subo adjunto el archivo para poder observar mejor) (primero pego el appcrash: APPCRASH Application Name: EXCEL.EXE Application Version: 14.0.4756.1000 Application Timestamp: 4b9c08e8 Fault Module Name: StackHash_54f8 Fault Module Version: 6.1.7600.16385 Fault Module Timestamp: 4a5bdadb Exception Code: c0000374 Exception Offset: 000c283b OS Version: 6.1.7600.2.0.0.256.48 Locale ID: 11274 Additional Information 1: 54f8 Additional Information 2: 54f8d18223689b3a6e7f554de6059584 A…

Buenos dias. Necesito generar unas etiquetas de productos para imprimirlas y me baso en un fichero .csv o xls que contiene los datos a imprimir (codigo, descripcion, pvp, etc) y la cantidad de unidades que entran que seria igual al numero de etiquetas a imprimir. Necesitaria una macro modulo que leyera ese valor numerico variable y copiara esa misma fila en otro sitio que podria ser otra hoja o idealmente en la misma hoja adjunto un ejemplo de fichero a tratar. muchas gracias SANTINI 1967_E.csv

Hola buenas tardes!!!! Quería saber si alguien me pudiese ayudar. Necesito hacer una macro que me copie tres celdas de varias hojas, pero estas están en distintas posiciones, es decir no son fijas, y que luego me las copié en unas columnas de una hoja resumen (estas si irían fijas). Gracias de antemano.

Buenos días tengo un XML con los datos del "CFDI factura en México" del cual necesito calcular las Base de Impuestos Tasa 0% para el IVA. El dato se encuentra en el Nodo de concepto, en el mismo por cada concepto se repite el cfdi:Traslado con el atributo Base que es donde esté el valor que requiero que sume siempre que se cumpla la condición que el Campo "Impuesto = "002" y que que "TasaoCuota = 0.000000" agradezco mucho si me pueden ayudar con este calculo. </

Tengo un archivo donde tengo un pequeño inventario, donde al desplazar el nombre de la fruta me coloca en el formulario el código, y al ingresar la cantidad de la venta me calcula el monto de la venta, lo que no puedo hacer es calcular el Stock del inventario descontando la venta realizada. Muchas gracias por la colaboración, adjunto el archivo ejemplo (Para rutear las imágenes habría que cargar cualquier imagen en la carpeta descargada del archivo) ejercicio de frutas.xlsm

Hola, tengo un código (sacado de foros de Internet) para comparar dos celdas, el caso es que funciona en principio. pero hay dos fallos, donde pone: Range("S3") = resultado1 + 1 debería (de ser igual) un 1 y me pone 2 otro fallo: de entrada ya me ejecuta la macro y me da ese resultado pero yo al entrar el valor o nombre de la segunda celda a comparar ya no hace nada me imagino que es porque ya está ejecutada, debo poner algo para que espere que entre datos de segunda celda a comparar ? Mando el código que tengo y muchas gracias. Sub macro2() Range("J8").Value = "Anselmo" Range("J14").Value = "Nombre de la primera persona" '<<<C…

HOLA QUISIERA CONSTRUIR UN MACRO, EN DONDE PUEDA HACER INGRESOS Y SALIDAS DE UN INVENTARIO PARA UN RESTAURANTE, LA IDEA SERÍA: 1.TENER UNA BASE DE DATOS CON LA CANTIDAD DE INGREDIENTES DE LA RECETA DE CADA PLATO 2. HABLITAR INGRESOS AL INVENTARIO CON COMPRAS O INGRESOS MANUALES 2. LUEGO QUE, SEGÚN LAS VENTAS DE CADA PLATO SE DESCUENTEN LOS INGREDIENTES DEL INVENTARIO Y SE PUEDAN HABILITAR LAS ENTRADAS PARA QUE SE VAYA ACTUALIZANDO EL STOCK REAL PARA ESTABLECER MINIMOS EN STOCK PARA REALIZAR LA COMPRA, AGRADEZCO TODOS SUS APORTES, MUCHAS GRACIAS

HOLA QUISIERA CONSTRUIR UN MACRO, EN DONDE PUEDA HACER INGRESOS Y SALIDAS DE UN INVENTARIO PARA UN RESTAURANTE, LA IDEA SERÍA: 1.TENER UNA BASE DE DATOS CON LA CANTIDAD DE INGREDIENTES DE LA RECETA DE CADA PLATO 2. HABLITAR INGRESOS AL INVENTARIO CON COMPRAS O INGRESOS MANUALES 2. LUEGO QUE, SEGÚN LAS VENTAS DE CADA PLATO SE DESCUENTEN LOS INGREDIENTES DEL INVENTARIO Y SE PUEDAN HABILITAR LAS ENTRADAS PARA QUE SE VAYA ACTUALIZANDO EL STOCK REAL PARA ESTABLECER MINIMOS EN STOCK PARA REALIZAR LA COMPRA, AGRADEZCO TODOS SUS APORTES, MUCHAS GRACIAS Ver todo macro

Buenos días Tengo una macro que genera reporte en una hoja llamada Plantilla_Pro. sucede que en esta plantilla necesito acomodar los DATOS para la impresión adelante y reverso en un formato A3 en horizontal. Dejo una Hoja ( RESULTADO FINAL ) como muestra de lo que necesito.

Buenos días comunidad, Estoy realizando un formulario con varias opciones pero dos de ellas no la puedo realizar, espero me puedan ayudar. Tengo un cuadro combinado con una lista de datos y un botón de comando que dice activo, lo que quiero hacer es que al seleccionar la opción de cero se active el botón y este des habilitado para las otras opciones Otra cosa mas Tengo 3 Botones de texto en los cuales quiero realizar en una división entre cantidad 1 cantidad 2 y el resultado sea en porcentaje con 1 décima Ya lo intente de varias forma pero no he logrado el resultado deseado Espero me puedan ayudar (anexo ejemplo)ejemplo.xlsm Saludos

Hola amigos buenas tardes, De nuevo aquí molestando, Me gustaría saber algunas sugerencias sobre una inquietud que tengo sobre un análisis que tengo, la cuestión es lo siguiente: 1.- El primer criterio es que valide primero si es el mismo cliente. 2.- En cada compra realizada por el cliente: 2.1 Se tiene que validar si la columna F es mayor o igual a la Columna E si cumple esta condición que me marque AVISO 2.2 Si no cumple con el punto número 2.1 que haga una comparación en las fechas que se encuentra en la columna C : Si de la última compra es igual o menor a los 6 meses de acuerdo a la compra anterior que haga la suma de los 5 meses + la …

Tengo este código que me marca error, su función es autocompletar el texto ubicado en la col M de la 3 a al 50,, pero da error en el for i, dice : no coinciden loa tipos la i la tengo definida como range private Sub textBox2_change() Hoja5. Unprotect Me. ListBox1. Clear For i = 3 To 50 If (Range("M" & i).Value) Then Me.ListBox1.Visible = True Me.ListBox1.AddItem Range("M" & i).Value End If Next i TextBox2.text = UCase(TextBox2.text) TextBox2.SelStart = Len(TextBox2) End Sub Private Sub ListBox1_click() TextBox2.text = ListBox1.List(ListBox1.ListIndex) Me.ListBox1.visisble = False

Hola muy buen dia, les escribo para solicitar su valiosa colaboracion, tengo un formulario en el cual estoy tratando de hacer un rol de trabajo ¿como se da la ejecucion de este rol de trabajo?, pues deacuerdo a la lista de personal necesito que se siga ese orden y el formulario vaya llenando huecos consecutivamente hacia abajo (como se ve en la hoja), les dejo el archivo para ver si me doy a entender. de antemano agradezco la atencion al presente. saludos roldeturnosdetrabajo.xlsm

Hola Amigos del Foro, en esta ocación intento "Pasar con doble click 2 columnas de listview a excel, en cualquier celda seleccionada" lo cual no logre realizarlo en listview ya que soy nuevo programando, les agradezco por su ayuda...les dejo el archivo adjunto. Private Sub ListView1_DblClick() ActiveCell.Offset(0, -1) = (ListBox2010.List(ListBox2010.ListItems, 2)) ActiveCell.Offset(0, -2) = (ListBox2010.List(ListBox2010.ListItems, 1)) End Sub 7.- Transferir datos seleccionados de ListView a Hoja (2) (1).xlsm

Hola buenas tardes! Me podrían ayudar a resolver estas 5 preguntas por medio de fórmulas por favor. De antemano muchas gracias. Ejercicio5e(1).xlsx

Buenos días, Tengo una tabla dinámicas en la que incluyo 4 datos: AÑO - IMPORTE1 - IMPORTE2 - NÚMERO DE OPERACIONES A modo de dashboard la tabla la tengo en la esquina superior izquierda y por alrededor segmentos para ir filtrando por distintos campos que no están incluidos en la tabla. Son más de 7 segmentos. También tengo algunas macros para escribir al final de la hoja cuáles han sido los elementos filtrados en los segmentos, para limpiar todos los filtros y guardar una copia de lo filtrado. MI PROBLEMA: Es que una vez tengo seleccionados varios elementos de los segmentos me interesaría [Mostrar más detalles] de alguno de las agrupaciones …

Buenos días; Tengo un archivo con 28 pestañas que tengo que imprimir cada mes cada una de ellas a doble cara. He probado tres cosas: Selecciono todas las pestañas. En el menú de impresión pongo: imprimir todo el libro ; a doble cara => sólo me imprime la primera pestaña seleccionada a doble cara (el resto a una cara) No selecciono nada. En el menú de impresión pongo lo mismo que antes => sólo me imprime la primera pestaña a doble cara (el resto a una cara) Y ahora la versión cutre.......Imprimo todo el libro en .pdf (no me deja...tengo que imprimir varios pdf's...entiendo que por el tamaño) pero puedo hacerlo chapuceramente. ¿Podría…