Dante Amor

Pon la siguiente fórmula en la celda B1 =INDICE(A1:A10,SUMAPRODUCTO((B2:B10=MAX(B2:B10))*FILA(B2:B10))) Nota: Cambia en la fórmula la coma (,) por punto y coma (;) si utilizas punto y coma como separador de argumentos. Cambia en la fórmula los...

Te anexo el código Private Sub CommandButton1_Click() If ComboBox1.Value = Empty Then MsgBox "No haz colocado ningun dato", vbCritical, "ERROr! - MES" Exit Sub End If Sheets(Hoja1.Name).Activate Sheets(Hoja1.Name).Range("B3:L3").Select...

Te anexo el código actualizado Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:A50")) Is Nothing Then With Target.Interior If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3 End With...

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

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...