Dante Amor

H o l a: Te anexo la macro actualizada Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act.Por.Dante Amor Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Interior.ColorIndex = xlColorIndexNone If Target.Row > 1 Then...

H o l a: Envíame tu archivo con tu formulario para adaptar el control de impresión. El formato de impresión será el que tenga la hoja, es decir, si envías a PDF las hojas 3 y 5, cada hoja se exportará a un solo archivo PDF con su formato respectivo....

H o l a: Pon la siguiente macro en un módulo; desde tu formulario puedes ejecutarla, solamente pon en un botón de comando el llamado a la macro: GenerarTxt Sub GenerarTxt() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" rangos = Array("A1:B12",...

H o l a: Entiendo que tienes 3 hojas, hoja1, hoja2 y hoja3, y quieres copiar la información de las columnas A, B y C, pero tengo las siguientes dudas: 1. ¿A partir de cuál fila se tiene que copiar la información? 2. ¿En dónde se va a pegar la...

H o l a: Te anexo la macro. Te faltó mencionar en qué columna se tiene que pegar la información. En la macro le estoy diciendo que pegue la información en la columna "A" en esta instrucción: H2. Cells(b. Row, "A"). PasteSpecial xlValues Lo que hace...

H o l a: Puedes revisar tu ejemplo. Si tienes las hojas: Jesus 001 pedro 002 jesus 003 Y ejecutas la macro dentro de Jesus, ¿entonces te debería crear Jesus 004? Entonces, si ahora tienes estas hojas: Jesus 001 pedro 002 jesus 003 jesus 004, y entras...

H o l a: Puedes enviarme tu archivo con el formulario, para ver en de cuáles columnas se toma la información de los combos, también para revisar cómo la tienes estructurada. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

H o l a: Envíame tu archivo y te preparo un formulario. En el archivo, me explicas con un ejemplo cómo sería la mecánica o el procedimiento, ya que tengo la duda, si el producto fue fabricado en Agosto, y tu quieres saber si fue guardado en octubre,...

H o l a: Te anexo la macro, debes ejecutar la macro sobre la hoja en la que quieres buscar. Sub BuscarError() 'Por.Dante Amor Set r = Cells Set b = r.Find("ERROR COEFICIENTE", lookat:=xlPart) If Not b Is Nothing Then ncell = b.Address Do 'detalle...

H o l a: Te anexo una macro, para afinar la macro y dejarla al punto se tienen que adecuar varios detalles: 1. Nombre de la hoja de datos 2. Nombre de la hoja con los criterios. 3. Te propongo que los resultados del filtro queden en la hoja...