Dante Amor

H o l a: Esta sería la fórmula: =SUMAPRODUCTO((ES.IMPAR(COLUMNA(I8:X8)))*(I8:X8)) Te va a sumar desde la columna I hasta la columna X. Lo que revisa la fórmula es si la columna es impar. Te explico, la columna A es la número 1, la B es la 2, la C es...

H o l a: Envíame tu archivo con el formulario y me explicas en dónde están los datos. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Carm Diaz” y el título de esta pregunta.

Prueba lo siguiente: Selecciona las fechas desde la M3 hasta la M20000, o hasta la última celda con fechas.Cambia el formato a Fecha.En alguna celda escribe el número 1, por ejemplo la celda N2Ahora copia la celda N2Selecciona nuevamente las celdas...

Quedaría así: Sub Inicial() Call copipeg Call elimina End Sub ' Sub copipeg() 'copipeg Macro Sheets("Segmentación").Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False,...

H o l a: Envíame tu archivo y me explicas con un ejemplo en dónde buscar y en dónde quieres los resultados. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jonathan Andres Ramon Murcia” y el título de esta pregunta.

H o l a: Te anexo la macro Sub CopiarFilas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("hoja original") Set h2 = Sheets("Hoja3") ' h2.Cells.Clear h1.Rows(1).Copy h2.Rows(1) ' For i = h1.Cells(Rows.Count, 53).End(xlUp).Row To...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Count > 100 Then Exit Sub For Each c In Target...

H o l a: Pon la siguiente macro en los eventos de thisworkbook. Cada que abras el archivo se ejecutará la macro. Private Sub Workbook_Open() Call EnviarCorreos End Sub Instrucciones para poner la macro en los eventos ThisWorkbook Abre tu libro de...

H o l a: Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 0 To ListBox1.ListCount - 1 Set b = h1.Columns("A").Find(ListBox1.List(i), lookat:=xlWhole) If Not b Is Nothing...

H o l a: Te anexo la macro para generar el archivo pdf, cambia en la macro en esta línea: fecha = ActiveSheet.[B4] 'celda con la fecha a comparar B4 por la celda de la primera hoja que va a tener la fecha. Sub GuardarHojasPDF() 'Por.Dante Amor...