Dante Amor

Te anexo la macro. Antes de ejecutar la macro tienes que crear un hoja y le pones por nombre "hoja2" En la "hoja1" pones tus datos y en la "hoja2" quedará el resultado. La macro toma los códigos de la columna "C" y la cantidad de la columna "D", si...

Envíame tu archivos con ejemplos Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “juan00784 .”

Te anexo el código actualizado Private Sub CommandButton1_Click() Sheets(Hoja1.Name).Activate Sheets(Hoja1.Name).Range("B3:L3").Select Selection.AutoFilter ActiveSheet.Range("$B$3:$L$19").AutoFilter field:=9, Criteria1:=ComboBox1.Value u = Range("J"...

Veo la imagen pero no entiendo qué celdas son la que se tienen que llenar. Puedes poner una imagen con un ejemplo de lo que tienes. Y en otra imagen con el resultado que esperas. Una breve explicación de cómo llegaste al resultado

Envíame un correo nuevo Me explicas con detalle lo que necesitas En el asunto del correo escribe tu nombre de usuario: Francisco Jaimes

Utiliza la siguiente fórmula para la celda E3: =SUMAPRODUCTO(($C$14:$C$50)*(E14:E50)) Cambia el 50 por la última celda con datos. Copia la fórmula hacia la derecha hasta la última columna con fecha.

Te anexo un ejemplo: Sub EnviarHoja() 'Por.Dante Amor hoja = "Planilla de Solicitud" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = ThisWorkbook.Path & "\" ' nombre = Sheets(hoja).Name Sheets(hoja).Copy...

Te anexo la macro actualizada Solamente revisa lo siguiente. En esta línea de la macro u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 La columna "A" significa que siempre va a tener datos, si la columna "A" no siempre tiene datos, entonces cambia...

De la pregunta original moviste las columnas, y ya no sé dónde está la información. Envíame tu archivo con ejemplos reales y me explicas con un ejemplo qué necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

¿En la columna "B" de la hoja1 tienes fórmula? Si no tienes fórmula entonces pon la siguiente macro en los eventos de la hoja1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Para cada cambio en la columna B, copia a la hoja2 '...