Jovani Pérez Castro

Dante Amor respondió: El autofiltro solamente acepta 2 criterios. En estos casos, los valores que sí quieres mostrar los almacenas en un arreglo. El siguiente código, en el ciclo For excuyo los valores que no quieres, los demás valores se almacenan en el arreglo. El...

Sebas Torres respondió: Tu quieres copiar la celda B2 desde A3 hasta B21, ¿Y A21 hasta B41 es correcto? Ten en cuenta que si ejecutas la macro 2 veces seguidas desde la celda A3 hasta la celda B41 va ser todo igual, porque tu en la primer ejecucion remplazas el contenido de...

Dante Amor respondió: H o l a : Te anexo la macro Sub Pedidos() 'Por.Dante Amor Set h1 = Sheets("inventario") Set h2 = Sheets("pedido") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

Dante Amor respondió: H o l a : Al parecer la nueva versión no tiene por defecto la propiedad value, por eso hay que indicarle la propiedad de la celda. Prueba con la siguiente actualización: Sub Mails() Dim J As Integer J = 2 While Range("B" & J).Value <> "" Set Dam1 =...

Dante Amor respondió: H o l a: Ya la probé y sí me funciona. ¿Qué error te envía? ¿Qué tienes en la variable q? ¿Qué tienes en la variable d? ¿Existen las 2 hojas en tu libro "Note" y "Rebate"? Revisa los nombres de las hojas no tenga espacios al principio o al final.

Dante Amor respondió: Prueba con la siguiente Sub correo() 'Act.Por.Dante Amor Range("b2:e11").Copy Set dam = CreateObject("outlook.application").createitem(0) dam.to = "[email protected]" dam.Subject = "Hola" dam.display SendKeys "^v", True: DoEvents dam.display dam.send...

Dante Amor respondió: 1. ¿Los datos empiezan en la fila 2? 2. ¿Hay qué copiar el encabezado con cada bloque al nuevo archivo? 3. ¿Cómo se va a llamar cada nuevo libro?