Jump to content
  • Crear macros Excel

  • Posts

    • Buenos días,    Pues sí, era eso, yo hacía la misma fórmula pero no se me ocurrió poner "/100" al final y es ahí donde estaba el fallo.... 😅   Perdonad, soy un poco novatilla en excel y quitando algunas fórmulas, para el resto no sé mucho más   Mil gracias! 
    • Buenos días,   Tengo una tabla en una hoja y estoy intentando saber cual es la ultima celda vacia por la derecha de cada fila. Puede haber filas que estén completas (con datos en todas sus columnas o no) Estoy utilizando este código que supuestamente me da el numero de columna que no está vacia, pero parece comportarse erroneamente, ya que siempre me lee la ultima celda de la fila aunque esté vacia. Creo que puede ser por la propia definicion de tabla en excel?   UltCol = Datos.Cells(3, Datos.Columns.Count).End(xlToLeft).Column   Siempre me da la posicion 33 que es la columna AG. Alguna idea ?     Gracias
    • el error es que copiaste el codigo dentro del boton , borra la 1º linea  : private sub . . . . para que coja la ruta del directorio actual , cambia .. Ruta = "C:\Excel\" por : Ruta = ActiveWorkbook.Path & "\"
    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy