Gabriel Pérez

Intenta con esta: =CONTAR(SI(FRECUENCIA(C4:C29,C4:C29)>0,1))

Con fórmulas no se me ocurre nada, pero con una mini macro puedes hacerlo: Sub suma() ' Dim ultimo As Integer ' ultimo = Cells(Rows.Count, 3).End(xlUp).Row ' Range("C" & ultimo + 1).Formula = "=A1+B1" ' Range("C" & ultimo + 1).Copy Range("C" & ultimo...

Para el primer mensaje puedes usar esto: Sub ActivaPrimerCorte() 'Para primer herramienta resultado = MsgBox("¿Desea iniciar la primer actualización de Cargas?", vbYesNo, "Monitor de Embarques") ' If resultado = vbYes Then Msbox "Proceso Iniciado"...

=AleatrorioEntre()

Cámbiale la extensión a 'xlsb'

Por lo que veo tu código está bien, puedes tener los correos en una celda y con eso los haces llamar, yo lo que tengo son todos en la línea y me funciona bien. With OLMail .To = "'" .CC ="" .Subject = .Display '.send End With O bien, mandando llamar...

Antes del 'next' escribe el código para ponerlo, puede ser en un rango específico o tú lo determinarás ya que no entiendo si es en la columna completa... Sub Macro1() Dim RutaArchivo As String Dim sh As Worksheet Dim l2 As Workbook Dim i As Long '...

Yo lo mando a un rango específico en mi formulario, intenta con este: Private Sub ListBox1_Click() ' fila = ListBox1.ListIndex + 2 individual = Sheets("Main").Range("C1") ' With Sheets("Main").Range(ListBox1.RowSource)...

¿Y en qué celdas está cada uno? Ayudaría bastante una imagen. Por lo poco que veo, necesitas un Si. Conjunto o una fórmula anidada de "SI(Y("

En este caso es sencillo hacer ese procedimiento, sólo tienes que ubicar cuál es la columna que siempre va a tener datos, en este caso veo que es la columna con la fecha. sub rango_con_datos dim ultimo as integer dim rango as string ' ultimo =...