Hola Equipo de favor me urge de su apoyo, necesito hacer una macro para rellenar automaticamente una matriz de 3x3 la cual en la sumatoria vertical tiene que llegar forzosamente a un objetivo, y la sumatoria horizontal no tiene que rebasar un limite establecido. La segunda matriz tiene constantes igual de 3x3 donde se tiene que multiplicar con la primera para obtener asi la tercera matriz con los resultados de la multiplicación. el objetivo es obtener el menor valor de las sumatorias de esta ultima matriz tanto horizontal como vertical. les anexo el ejemplo. Gracias !!! jjv.xlsx

Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir. Así tengo el código de momento: Sub CopiarCeldas() Dim Pesadas As Workbook Dim Destino As Workbook Application.ScreenUpdating = False Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls") Workbooks("pesadas.xls").Worksheets("BCT2DB").Range("B1:H7398").Copy Workbooks("destino.xlsm").Worksheets("BD").Range("A2") Pesadas.Close False End Sub La pregunta en …

Hola a todos, tengo el siguiente problema: Tengo un archivo donde en mi pestaña Componentes hay varios numeros de parte, algunos tienen mas de un comentario (tomando las notas de la pestaña Informacion/Columna B ). Lo que necesito hacer es consolidar todos los comentarios de los componentes, pero no tengo idea de como se puede hacer o si existe alguna forma. De manera manual estoy haciendo una pivote y voy copiando los comentarios consolidados de cada numero de parte a una hoja de texto y de ahi copiarlo a la celda donde la necesito, para que quede toda la informacion en la misma celda, pero en diferente renglon. Si alguien tiene alguna idea de como se…

Buenos dias al foro, Tengo una inquietud, ojala me pudieran ayudar a resolverla: 1. Tengo un archivo con varias hojas 2. En cada hoja hay un formato, en el cual esta el campo Cliente (Columna "D") 3. En este momento esta programado para cuando uno se posicione en dicho campo vaya a una Hoja y consulte si existe el cliente o no, si existe colca su nombre e identificación, si no, Coloca No existe y no mas. 4.. Deseo que cuando me posicione en el campo o celda nombre me ejecute la macro que adjunto, o sea, que consulte si existe o no el cliente Si existe que me copie la identificación y el nombre del cliente Si no existe crearlo. …

Estimados del foro. Tengo un requerimiento puntual y estoy empantanado en el proceso del tipo importación de datos. Para el caso debo importar los datos desde unas tablas Paradox 5, y estos datos luego clasificarlos y graficarlos. el una planilla dependiendo el cliente seleccionado, todo con macros y automatico. La idea es conectar las tablas, generar la consulta y extraer los datos resultados, que es como indique, el proceso a resolver.. ¿Alguien puede guiar a este humilde servidor?. Muchas gracias

ola amigos veran, inserte un modulo para convertir los numeros en ltras pero me pedia actializar valores lo cual no pude hacer, al querer quitar los vinculos me di cuenta que al poner =pesos me seleciona una gran cantidad de celdas y no se como quitar eso por ejemplo si pongo =A1+A2 ESTA BIEN EL PROBLEMA ES SI PONGO =PESOS ES COMO DECIR =A1,A2,A3

Buenos dias estoy haciendo un programa para los partidos de balonmano . Necesito un boton que sume 1 al valor numerico de la celda que haya selecionado . i otro boton que que reste -1 valor numerico de la celda que haya selecionado .

Estimados amigos del foro, saludos cordiales Esta es una consulta aparentemente corta, como puedo lograr colocar una cifra cualquiera por ejemplo 994257851 (en formato numero) al ir pulsando cada boton cualquiera y que se vaya llenando en el textbox pero limitarlo a no mas de 10 dígitos ni menos de 2 subo el archivo para que lo vean Gracias anticipadas Colocar numeros en Textbox.xlsm

Buenas tardes, Tengo un documento, con un fondo, como imagen, y quisiera crear un botón para hacer una captura de pantalla para poder imprimirla al paint. Quisiera saber si es posible crear un botón, que me haga una captura de pantalla y que luego la pueda pegar al paint e imprimirla, y si se puede que con el botón lo haga todo mejor. He probado con el siguiente código, pero el fondo no me lo imprime, y con una marca de agua el tamaño de la imagen no me aclaro mucho Private Sub Image1_Click() ActiveSheet.PageSetup.PrintArea = ActiveWindow.VisibleRange.Address ActiveSheet.PrintPreview End Sub Muchas gracias. Un saludo

Buenas tardes a todo el Grupo de Trabajo Estoy realizando un archivo de Captura de Información con Macros, el cual lo vengo desarrollando paso a paso, ya que no soy una persona experta, estoy aprendiendo, pero con la ayuda de ustedes lo voy sacando adelante, y voy en en siguiente paso: 1. Tengo un archivo con el nombre de cada mes y este tiene internamente los días habiles del mes marcados en cada pestaña; asi: Nombre del Archivo: ("8. Planilla Diaria-Agosto-Prueba.Xslm") Nombre de los días en las pestañas u hojas "1", "2" y asi sucesivamente. 2. En cada hoja hay un campo de nombre (Columna D), cuando me posiciono en esta celda el me trae de un…

Hola amigos Agradezco anticipadamente a quien me pueda ayudar o asesorar en este tema. Tengo un archivo que me toca enviarlo 1 vez a la semana a unas 10 personas de sus ventas y de sus clientes o tiendas a cargo. Necesito enviar un solo archivo que cuando lo abran les toque colocar un usuario y contraseña y que eso permita que solo puedan ver sobre el filtro de la tabla dinamica. Opcion Coordinador. para cada uno de los coordinadores y no puedan ver lo de los demás coordinadores. Gracias Usuarios Contraseñas INFO.xlsx

Buenas una pregunta quisiera saber si hay una Macro para bloquear unas determinadas celdas, es decir “A1:B10”. Al momento de ingresar datos en estas celdas ejecuto la macro y se bloquean dichas celdas, no olvidemos que siempre la tendrá toda la hoja protegida sin excepción las celdas ya escritas sin ejecutar la macros. Para que necesito está macro, manejo muchos números y por x razón lo modifico y este hace que mis cuentas no cuadren entre los días, meses y años. Gracias.

hola buenas tardes a todos Quisiera ver si se pudiera mediante una macro que se ejecute automáticamente cada vez que modifique el valor de referencia (que es el) vin, quiero copiar el valor de una celda que tiene formula y pegarlo en otra como un numero sin formula, las celdas en las que quiero hacer esto son las siguientes: copiar la c6 pegar en la c7, d6 A la d7 y así sucesivamente hasta la s6 ala s7 y también otra copiar la e17 y pegarla como numero en la c17. ojala pudieran apoyarme no se mucho de macros es por eso que pido de su apoyo. de antemano muchas gracias por el apoyo dejo ejemplo ESHM.xlsm

Hola Estoy intentado crear un macro que me agregue "(57)" si la celda cumple una condición o "(57)()" si cumple otra. Es decir tengo en la columna U los siguientes datos U2 (4)1234567 U3 (1)2345878 U4 ________ vacia U5 1234567 U6 2345678 Entonces necesitaría que al ejecutar el macro me lea todos los datos de la Columna U y me los cambie así: U2 (57)(4)1234567 U3 (57)(1)2345878 U4 ________ vacia U5 (57)()1234567 U6 (57)()2345678 Muchas gracias, estaré atenta a sus respuestas.

Muy buenas, quiero crear una Macro para seleccionar la celda inmediatamente a la derecha de la celda que tengo seleccionada. Por ejemplo, imaginemos que tengo seleccionada A1, pues que al pulsar las teclas que activan la Macro (ejem: control+shift+a), se marque la celda B1. Muchas gracias!

La siguiente macro me permite ordenar datos segun el apellido paterno, lo que quisiera saber es como hacer para aumentar mayor ordenes, por ejemplo que ahora ordene como el apellido materno, como lo adinaria Sub macro22() If [L2] = "ascendente" And [L5] = "Paterno" Then For x = 2 To 40 For y = x + 1 To 41 If Cells(x, "E") > Cells(y, "E") Then Variable = Cells(x, "E") Cells(x, "E") = Cells(y, "E") Cells(y, "E") = Variable Variablea = Cells(x, "F") Cells(x, "F") = Cells(y, "F") Cells(y, "F") = Variablea Variableb =…

Hola a todos he intentado ingresar este codigo en macros VBA de excel dim zelda as string ZELDa = ActiveCell.Value Cells(1,ZELDa).Select pero siempre me laza error en cells como puedo hacer para ir a un rango donde la columa esta siempre variando en mi hoja de calculo. por lo que necesito definir la variable ZELDA

tengo un formulario y este me alimenta un listbox que ademas no se como ponerle el encabezado quiero hacer que con el click de cualquiera en la lista del listbox este dato se seleccione AYUDA no recuerdo como hacer eso Libro1.xlsm

Hola foro buen día/tardes/noches para algunos, estoy trabajando en este archivo pero ya me atore, todo funciona bien, los botones del archivo: Borrar = Borra toda la información del Formato Llenar Reporte = Se documentan los campos sombreados en azul y se le da a este botón y me extrae la información de otros archivos y me llena el documento Consecutivo = una vez lleno el reporte se le da en consecutivo para que le asigne un folio Llamar = con solo poner el Folio (reporte existente) este botón llama al reporte y lo muestra Modificar = cuando uno llama a un reporte y desea modificar alguna información le da uno a este botón y se guardan l…

Buenas Tardes Grupo, necesito la ayuda para organizar un archivo txt, tengo una macro la cual en idas pasados me ayudaron a realizarla y pues funciona, pero si la ejecuto para otro archivo lo separa pero no como lo necesito y pues no se si alguien me pueda ayudar poniendo comentarios a la macro que ya tengo para entender el código o si tienen otra opción se los agradezco, para que me logren entender esta macro separa inventarios, pero si la utilizo para separar ventas no me sirve por que me corta la información. Gracias. MAcro Extraer.rar

Muy buen día, tarde, noche. Estoy intentando realizar un proceso de selección de archivo, para copiar un determinado rango, y me lo pegue en el archivo en el que se trabaja. Para ello he desarrollado este código: Dim Fso As Office.FileDialog Dim LibroDestino As Workbook Dim LibroOrigen As Workbook Dim Ruta As String Dim HojaDestino As Excel.Worksheet Dim HojaOrigen As Excel.Worksheet Dim RangoDestino As Range Dim RangoOrigen As Range Dim Titulo As String Dim Balance As String Dim UFila As Long Dim FilaU As Long Dim Fila As Long Dim Final As Long Titulo = "Administrador de proyectos AAQUINO" Balance = ActiveSheet.Name Application.ScreenUpdating = False Applicat…

Muy buenas tardes, Normalmente mis macros son relativamente sencillas y luego, poco a poco voy puliendo detalles para hacerlas más rápidas y más cómodas. En el trabajo manejo un fichero con muchas rutinas: desde seleccionar un fichero txt y pasarlo a una hoja hasta seleccionar varios ficheros, recorrer uno a uno y realizar diferentes operaciones con ellos. Poco a poco la cantidad de cosas y subrutinas que he ido añadiendo (por necesidades de mi trabajo) han hecho que el tiempo que tardo en ejecutar todas las macros vaya incrementándose. No es excesivo aún, ronda el minuto y medio, pero se que trabajando con arrays o creando diccionarios (un compi que está de va…

Buenas tardes compañeros. Soy nuevo en el lenguaje VBA, pero tengo unos proyectos que me gustaria mucho poder optimizar. ojala puedan ayudarme, les comento. Tengo un documento, en la hoja 1 hay una tabla con fecha inicio, fecha fin , nivel a ,nivel b y rango. en la hoja 2, columna A y B tengo una serie de fechas con sus respectivos valores. en la columnda D tengo las fechas de días inhabiles del calendario de la empresa... Lo que necesito es una FUNCION que: 1. cuente los días laborales entre dos fechas seleccionadas ( como si hicieramos un días.lab, seleccionando nosotros las fechas ) 2. si hay días inhabiles entre semana, que los cuente y que les asi…

Primeramente reciban el saludo cordial amigos del FORO AYUDA EXCEL, tengo macros creados exclusivos para mi trabajo, pero los quiero ejecutar desde la barra de herramientas " COMPLEMENTOS" mediante lista desplegable, esto para dar mayor dinamismo al pequeño programa que cree, amigos necesito ayuda para poder concluir mi trabajo......agradecere la ayuda, y que Dios les bendigue a todos Uds. Adjunto pantallazo

Saludos quisiera que me indicaran como podría ordenar los datos que están en la fila comprendidos de la A178 a la Y178 y así mismo los números comprendidos de la A179 a Y179, se ordenen en forma de columna y de forma descendente de mayor a menor,pero también quisiera que se actualice la fila de la suma a medida que esta vaya variando cada vez que ingreso nuevos datos, en este caso son los números de sorteo de cada semana de un juego de lotería. adjunto el archivos de excel y unas imágenes, gracias de antemano. Pozo 14_calculos.xlsx