Dante Amor

Este es la instrucción Sub maximo() 'Por.DAM valor = Application.Max(Range("A:A")) MsgBox "El más alto es: " & valor End Sub Saludos.Dante Amor

Disculpa pero no entendí el ejemplo, cómo de 2 registros salieron 3. Tendrías que explicármelo con ejemplos reales, puedes enviarme tu archivo y en una hoja me dices qué tienes y en otra hoja me pones lo que necesitas y me vas explicando paso paso...

Pon en la columna D los nombres y en la columna E pon la siguiente fórmula =SI(ES.PAR(DIA(BUSCARV(D1,A:B,2,0))),"Es Par","Es Impar")&" Y tiene " & CONTAR.SI(A:A,D1) & " asistencias" Copia la fórmula hacia abajo como tantos nombres tengas, tal y como...

Me llegó esta pregunta y no sé si ya está contestada o quieras una nueva respuesta. Tal vez ayudaría si reviso tu macro y veo la posibilidad de optimizarla, claro, además de ponerle el cuadro de progreso. Si quieres que revise tu macro envíame tu archivo.

Este es el código para marcar y desmarcar todos los sectores Private Sub CheckBox1_Click() 'Por.DAM For j = 0 To ListBox1.ListCount - 1 ListBox1.Selected(j) = CheckBox1 Next End Sub

Esta es la parte del código para la vista previa. Private Sub CommandButton1_Click() 'Por.Dante Amor consultar "recibo" 'vista previa 'CommandButton5.SetFocus End Sub Sub consultar(opcion) 'Por.Dante Amor Application.ScreenUpdating = False If...

Utiliza la siguiente macro: Sub eliminar() 'Por.DAM Dim f As New Collection Sheets("Hoja1").Select For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If UCase(Cells(i, "M")) = "BAJA" Then f.Add i End If Next For i = f.Count To 1 Step -1...

Si vas a limpiar en todas las hojas de tu archivo, puede ser así: Sub limpiar() 'Por.DAM rango = "N7,P7,R7,N12,P12,R12,Z11:AF14,J22:L27,J29:L29," & _ "J35:L37,J42:L45,V42:X43,AC42:AC43,AC45,J51:L57," & _ "AF49:AT59,AC21:AT26,AC28:AT39" For Each h In...

Me puedes enviar tu archivo con ejemplos reales. En una hoja me pones tus datos tal y como los tienes y en otra hoja me pones los resultados que esperas, también me explicas con los ejemplos cómo estás calculando la media.

No entendí bien qué es lo que necesitas, podrías poner un ejemplo real de lo que tienes y el resultado que esperas, si te es más fácil explicarlo en tu archivo, envíame tu archivo y me explicas con ejemplos reales qué tienes y qué esperas que haga la...