Jump to content

Cambiar formato de fecha en columnas K & L con celdas vacias


Recommended Posts

Buenas noches
Tengo una pequeña duda sobre como seleccionar y cambiar el formato de fecha en las columnas K & L debido a que hay celdas vacias entre las celdas con informacion. La unica columna que tiene datos continuos es la columna N.

Archivo de Ejemplo


Gracias a todos de antemano.

Link to comment
Share on other sites

Hace 3 horas, JSDJSD dijo:
   uf = Sheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Sheet5").Range("K2:L" & uf).NumberFormat = "dd/mm"

Funcionó excelente, muchas gracias por la ayuda.

Link to comment
Share on other sites

Hace 26 minutos , JSDJSD dijo:

Me alegro mucho pero la forma de agradecer a quien te ayuda o intenta ayudar es mediante el corazoncillo que hay en la parte inferior derecha, un saludo

Listo, ahora que lo sé no lo olvidaré más, muchas gracias de nuevo por la ayuda.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • 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  
    • Hola,   No me funciona.   Sale este error.   Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm?   Muchas gracias
    • A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
  • Recently Browsing

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

Important Information

Privacy Policy