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…

Buenas amigos : Necesito que me ayuden a crear una macro que genere una fila de separacion al evaluar una celda con cierto criterio , en el anexo explico : en la columna B estan una serie de departamento , lo que necesito es que se genere una fila de division cuando esta pase a otro departamento. ISERTAR FILA.xls

Hola, antes que nada, les agradezco el interés en la publicación. Estoy trabajando en el siguiente código: --->>> Sub SoftToken_Test() Dim cObj As Object Dim Programa As Object Dim Proceso As Object Set cObj = GetObject("winmgmts://.") Set Proceso = cObj.ExecQuery("SELECT * FROM " & _ "Win32_Process WHERE Name = 'SoftToken.exe'") For Each Programa In Proceso On Error Resume Next Call Programa.Terminate On Error GoTo 0 Next Set Proceso = Nothing Set cObj = Nothing End Sub <<<--- El cual termina la ejecución del programa en cuestión, pero desearía su ayuda en…

Hola buenas tardes, espero su ayuda por favor. Lo que estoy haciendo es mostrar en el listbox los datos de la hoja: prueba_guardarotrolibro(TEMP), segun la condicion de la fecha y del combo Lo que deseo es que en el listbox se muestre solo los datos que he seleccionado (N°, Cotizacion, Producto, Costo, Cantidad, Ingreso) Pero para luego pasarlo a la hoja: baseprueba(TEMP), deberia pasar todas las columnas de la hoja en el orden que se encuentra la hoja destino (baseprueba(TEMP)) y que al momento de pasar los datos, en la columna "Estado" cambie de Abierto a Cerrado ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS baseprueba.xlsx …

Hola! Ayer este fichero funcionaba a la perfección, pero hoy resulta que tengo 2 macros que no las ejecuta (como si no existieran), pero están en el libro PERSONAL .xlsm, que se abre automáticamente al iniciar Excel. Al seleccionar el botón Macros de la barra Programador, no me aparece ni una sola macro de este libro. que pasóooo???

Alguien me puede indicar cómo habilitar o deshabilitar mensajes de advertencia de hipervínculo en programas de Office 2007 Estaria eternamente agradecido. Un saludo.

Hola a todos, tengo la siguiente parte de una macro y solicito su ayuda: nombre=prueba.xslx 'creo un objeto: Set XL = CreateObject("Excel.Application") XL.Visible = True 'creo un nuevo libro llamado "prueba", cierro el archivo Workbooks.Add ActiveWorkbook.SaveAs nombre, -4143 ActiveWorkbook.Close 'abro con XL el libro creado XL.Workbooks.Open "prueba.xslx" 'Selecciono la celda "a1" en el archivo prueba creado, hasta aquí no hay problema XL.Workbooks(nombre).Sheets(1).Range("a1", "a1").Select 'aqui está el problema pues al ejecutar estos comandos, estos se ejecutan en el libro desde el que corro la macro 'lo que necesito es que corran desde el nuevo libro "pr…

Hola Otra vez, Acabo de escribir (copiando un`poco de aqui y de alli) una macro que llama a un libro y copia sus datos en el libro activo. Como me interesa copiar todas las hojas en función de una condición, establecida en la celda A2 de cada pagina, hay una instrucción macro para cada hoja _origen- hoja destino. Ejecutasa una a una funcionan perfectamente. Para no tener que ejecutar macro a macro, también hay un modulo macro para ejecutarlas a todas, pero este modulo da error de ejecución. Codigo de cada macro: Sub importar_entrelibros_YY() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveShee…

Expertos, disculpe tengo un archivo que cuando valido me debe copiar ese dato a otra hoja, e intentado grabando macros y solo me funciona para uno me debe hacer con todo. Tengo un video que e preparado para que me puedan entender mejor, por favor me ayuden como lo puedo hacer muchas gracias. https://drive.google.com/file/d/1VN18MGHOUM3nZwgJH6TxnMgi7kgt74cC/view?usp=sharing Adjunto el archivo. Rodillos.xlsm

Estimados amigos, os cuento, como puedo imprimir cerrando el formulario en primer plano. Para entenderlo mejor os dejo el archivo y cuando entreis en admin 123 como se puede imprimir, muchassssss gracias labohoy23.xlsm

Hola buneos dias. Tengo un archivo que uso como plantilla está dentro de un libro 1 que he llamado (LibroOrigen). en ella esta una hoja llamada "Lista" y una vez que lleno esta hoja lo copio en otro libro 2 (libro destino) ahí voy acumulándolos y cambio el nombre de estos. Con una macro he podido enviar la hoja "Lista" de libro origen a libro destino, pero este me lo guarda con el nombre de "lista". Me gustaría poder guardarlo en libro2, con el nombre puesto en una celda (A2) de la hoja lista Libro1. y así el acumulado ya tendrá nombre diferentes. Muchas gracias Mario Libro Origen.xlsm

Hola Tengo un archivo con datos que me pasan, este tiene una numeración (columna D), pero luego tengo que agregar a estos mas datos y a su vez aumentar esta numeración, Lo que quisiera hacer en mi hoja, Buscar ultima celda con datos de la columna H, una vez ubicada bajar una fila y moverse 4 celdas a la izquierda. Y colocar mi numero aumentado según la ultima celda de antes de la columna D. En el ejemplo la ultima es 21. así que debería colocar el numero 22 o según sea el caso (Siempre aumentar más 1). esta numeración varia siempre. Muchas gracias Macro aumentar numeracion de columna.xlsm

Hola amigos quisiera saber si alguien me puede ayudar con lo siguiente: Tengo un userform con dos combobox un commandbutton, un listbox y un textbox. de los cuales los combobox buscan fechas inicial y final de una hoja de calculo y al ejecutar el boton muestra en el listbox todos los resultados entre esas fechas incluidas las mismas, estos resultados debieran ser 4 columnas en la primera la cantidad en la segunda el articulo o producto en la tercera el precio y en la ultima el total, además en el textbox debe aparecer la suma de todos los totales el codigo que estoy utilizando es: Private Sub CommandButton1_Click() ListBox2.Clear Dim fecha1 As Date Dim fecha2 As Da…

Necesito una macro que actualice imagenes desde las celdas seleccionadas.

Buenas tardes, Quería saber cómo puedo realizar la siguiente tarea: Tengo un archivo plano que se encuentra delimitado por comas el cual contiene los campos número de factura, numero de paquete y descripción los numero de factura se encuentran repetidos pero en la descripción es distinta como se hace para que se concatene las descripciones de cada factura dejando solo un numero de factura y las descripciones en una sola celda Le agradezco por la colaboración ya que no he podido hacerlo con fórmulas Adjunto el archivo de ejemplo BASE EJEMPLO.TXT

ola compañeros de excel , Estoy creando una macro excel-visual basic resulta que tengo unas pequeñas dudas , soy nueva en este tema deseo que en la cantidad OP lo digitado en el frame ejemplo (2415) me recorra en la hoja reporte campo : LOTE me Aparezca 2415-en la celda C16,C17,C18 ETC eN EL CAMPO DEL FRAME # cAJAS SEA DE 1 A 10 CAJAS POR DECIR y en la hoja reporte me recorra en el campo nº Caja ejemplo (1,2,3 etc) y poder imprimir la fecha en la hoja ... por favor colaborenme...como puedo realizarlo

Hola!! Me gustaría me orientarais en lo que necesito hacer: Tengo 4-5 libros de excel que debo de unir , por supuesto con la misma estructura, en uno solo y en base a ese, comparar fila por fila con un segundo libro y copiar 3 columnas. Tengo un campò en cada fila que puedo utilizar como ID y asi poder ir comparandolos, no obstante, debo hacer un condicional que me permita que, si en el libro destino existe una determinada palabra , no copie nada de esa fila y continue por la siguiente. ¿Alguna idea? gracias

Hola a todos, Estoy en el proceso de crear una base de datos y necesito replicar en filas la misma información para las diferentes empresas y para diferentes meses. Las variables son las siguientes: # empresa, nombre de empresa, # cuenta, nombre de cuenta y mes. En la base de datos me deben quedar todas las empresas, todas las cuentas para los 12 meses del año. Debido a que necesito colocar un valor diferente para cada empresa, cuenta y mes. Para el ejemplo adjunto, al final, deberían quedar 1200 filas. (12 meses x 10 empresas x 10 Cuentas) Tal vez no me hago entender muy bien pero no se como redactar lo que necesito, por eso envío …

Buenas. he buscado respuesta a mi pregunta en la web y no la encontré así que si alguien me quiere ayudar. Estoy tratando de importar datos desde la web a Excel, con macros. a la pagina se le cambia la clave cada semana , el problema es que pide usuario y contaseña para poder acceder, y descargar los datos, también se necesita acceder a ciertos botones porque de ahí obtengo cierta información que necesito <<<< Este es el botón que necesito acceder, <<<< Esta información me aparece al dar clic y es la que necesito. Siempre me toca hacer estos pasos manualmente, ya que no me es posible extraer estos datos.

Estimados Soy nuevo en el foro y en el uso de VBA Excel y quisiera ver como puedo pasar el formato condicional que tengo en la hoja de exel y mostarla en un userform. o si se puede por ultimo dar formato de color a cada celda del listbox. dejare adjunto el excel. Espero que me puedan ayudar. Muchas gracias. Libro1.xlsm

Hola buenas noches, espero su ayuda por favor. Estoy intentando copiar datos de un libro: prueba_guardarotrolibro(TEMP) para pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion en la columna Estado = Cerrado al pasar al otro libro debe copiarse debajo del ultimo registro. ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE. baseprueba.xlsx prueba_guardarotrolibro.xlsm

buenas tardes. sucede que el libro de excel que estoy trabajando me muestra un error de "error de compilacion no se ha definido sub o function" esto sucede al momento de ejecutar el USERFORM3 por favor me pueden colaborar. USER/PASS : ADMIN/ADMIN ANTEPROYECTO=D (Correcciones).rar ANTEPROYECTO=D (Correcciones).rar

Hola a todos. Necesito incrustar una tabla en un formulario pero me gustaría verlo tal cual se ve en la hoja excel. Me explicaré, tengo un userform en VBA, en el cuadro de herramientas inserto un "Cuadro de Lista" y le digo en la propiedad RowSource el rango que quiero ver. Los valores de las celdas se ven pero no con los mismos formatos que los tengo yo en mi hoja excel (colores de celda, formato condicional...). ¿Cómo lo puedo hacer? Gracias - - - - - Mensaje combinado - - - - - Hola, ¿cómo odría hacer lo anterior insertando una imagen en el formulario y decirle que muestre una imagen que está en el mismo libro? Es decir, he copiado el rango que quiero mostrar…

tengo en el directorio c:\carpeta\subcarpeta\ayuda.docx; este archivo de ayuda e información como pueden ver es Word y tiene imágenes, en un libro de Excel quiero colocar un botón con nombre de ayuda o información, y por medio de una macro lo abra y después de leerlo tenga un botón de salir o cerrar la ayuda, me podrían por favor darme una mano con esto rafa1122000

Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R…