Gabriel Pérez

=AleatrorioEntre()

Cámbiale la extensión a 'xlsb'

Seguramente está excediendo el espacio al descomprimir...

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("

intenta lo siguiente; Private Sub CommandButton2_Click() ' With Sheets("BuscEsc") .visible = true .Select ' End Sub

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

Respondí a una pregunta similar. Te la paso. Como instalar sistema operativo desde un disco duro externo