Dante Amor

H o l a: Con esta fórmula matricial =INDICE(C1:C50,MAX((A1:A50=1)*(B1:B50=1920)*FILA(C1:C50))) Cambia =1 por el número de folio, cambia 1920 por la referencia, cambia el 50 por la última fila con datos. Para aceptar la fórmula matricial, edita la...

H o l a: Puedes responder las siguientes dudas: ¿El formulario lo quieres en una hoja o un userform?Si ya existe un valor previo, ¿qué sobreescriba con los nuevos valores?¿Cómo se llama la hoja?Envíame tu archivo para hacer pruebas de la búsqueda por...

H o l a: Primero quieres renombrar el archivo, es decir, ¿qué la macro le cambie el nombre? ¿Y después lo quieres copiar a otra carpeta? ¿O cómo sería la secuencia?

H o l a: Prueba con lo siguiente. Selecciona la celda de la fila que vas a actualizar, por ejemplo, selecciona la celda M20, para actualizar únicamente los valores de las fórmulas de la fila 20. Ejecuta la siguiente macro: Sub CalcularCeldas()...

H o l a: Crea una hoja llamada "INICIO", en esa hoja pon un botón. Asigna la siguiente macro al botón que creaste. Sub MostrarHoja() 'Por.Dante Amor Application.ScreenUpdating = False hoja = InputBox("Hoja que deseas mostrar:", "MOSTRAR HOJA") If...

H o l a: Entiendo que el problema está en el pegado de los datos. Te anexo otras alternativas que no utilizan el pegado de celdas. Alternativa 1. Lo que hace es crear una imagen de las celdas y entonces inserta la imagen al correo: Sub EnviarCorreo()...

H o l a: ¿Tienes el destinatario en la columna P? ¿Cómo se llama la hoja donde tienes los datos? Prueba con la siguiente macro, cambia "Hoja1" por el nombre de la hoja en donde tienes los datos. Sub Correo() 'Por.Dante Amor Set h = Sheets("Hoja1")...

H o l a: No sé en qué momento o cómo llamas al procedimiento CamposVacios, pero algo más técnico y más general podría ser así: Public Sub CamposVacios() 'Por.Dante Amor CmdGuardar.Enabled = True For Each ctrl In Controls If TypeName(ctrl) = "TextBox"...

H o l a: Te anexo la macro para cortar las filas. Cambia en la macro "Hoja4" por el nombre de tu hoja que tiene los datos. Cambia "Hoja5" por el nombre de tu hoja donde se van a pegarlas filas. Sub CortarFilas() 'Por.Dante Amor...

H o l a: En el siguiente enlace puedes ver cómo leer los nombres de los módulos. http://www.cpearson.com/excel/vbe.aspx Sigue las instrucciones que aparecen en el apartado de "Introduction".