Jump to content

NAB_20

Members
  • Posts

    23
  • Joined

  • Last visited

  • Country

    Spain

About NAB_20

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0,6

Recent Profile Visitors

429 profile views

NAB_20's Achievements

  1. Buenas noches, he probado con la función DateSerial y me junta la fecha con los datos almacenados en las variables. Posteriormente me lo selecciono y le cambio el formato. Así si que me funciona correctamente la macro filtrar fechas Sub datas() Dim uf As Long Dim dia As Integer Dim mes As Integer Dim año As Integer ' Indicar el libro destino donde pegar Windows("prueba3.xlsm").Activate ' Indicar la hoja de destino donde pegar Set wsOrigen = Worksheets("Full1") 'Call Macro1 LastColBase = ActiveSheet.Cells(65536, 1).End(xlUp).Row uf = 13 For X = uf + 1 To LastColBase Data = Sheets("Full1").Range("a" & X) Sheets("Full1").Range("O" & X) = Day(Data) dia = Day(Data) Sheets("Full1").Range("P" & X) = Month(Data) mes = Month(Data) Sheets("Full1").Range("Q" & X) = Year(Data) año = Year(Data) Sheets("full1").Range("n" & X) = DateSerial(año, mes, dia) Next Range("N14").Select Range(Selection, Selection.End(xlDown)).Select Selection.NumberFormat = "m/d/yyyy" End Sub El código ha quedado así, seguro que es mejorable pero poco a poco aprenderemos a pulirlos... Saludos y gracias por vuestro tiempo
  2. He visto que el archivo que os adjunté al principio es bastante largo para ejecutar, os puse algo más corto y no me deja editarlo... disculpad.
  3. Buenos días, Os explico, tengo unos datos descargaos con tipo fecha y con formato personalizado. Tengo una macro para filtrar fechas que con este tipo de dato no me funciona. Estoy intentando cambiar el formato a fecha corta para intentar poder usar la macro pero no me deja. Lo que había pensado en hacer es con las funciones día, mes y año partir la fecha y luego con la función fecha juntarla. creo que así la macro de filtrado de fechas sí que me funcionaria... El caso es que la función fecha no consigo meterla... Si se os ocurre una idea para que funcione la macro de filtrado fechas será bien recibida... Adjunto archivo con los dos códigos saludos y gracias
  4. Muchas gracias por la respuesta DiegoPc! Los detalles son importantes!😃
  5. Buenas tardes, Estoy intentando poner un color determinado en un encabezado de página y no consigo que me coja el color que quiero poner. Le pongo el código #4F81BD que en rgb es 79,129,189(este es el que me interesa) me devuelve el color rgb(111,129,189). Saludos y adjunto el código de prueba por si alguien puede ayudarme. Gracias! PruebaCabecera.xlsm
  6. Muchas gracias por la respuesta Antoni. Funciona perfectamente. Saludos!
  7. Buenas, estoy intentando controlar varios errores en un código con la instrucción "On Error Goto [LABEL"]. El primer error que detecta sí que funciona bien pero en el siguiente ya da error. La idea del código es que mire si hay determinada imagen en la hoja y en caso de que no la localice pase a la siguiente línea para ver si hay otra imagen que me interesa localizar Adjunto archivo. Saludos y gracias PruebaError.xlsm
  8. Buenas tardes, tengo una duda y no estoy sabiendo como resolverla. El caso es que abro una imagen dándole una ruta al código y cada vez que ejecuto la macro esa imagen se carga con un nombre diferente por lo que para poder trabajar con ella es un problema. Me interesaría que una vez he cargado la imagen poder renombrarla para poder manipularla. La ruta que utilizo para abrir la imagen es algo así mydocument.Shapes.AddPicture FileName:="D:\Usuarios\prueba.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _ Left:=100, Top:=100, Width:=270, Height:=270 Saludos
  9. Muchas gracias por la respuesta! Doy el tema por resuelto! 😀
  10. Muchas gracias LeandroA por participar y resolverme la duda. Me surgen un par de dudas. Por qué utilizas el "call" delante de range ("A1:C3").copyPicture. Con esta línea de código le estás diciendo donde quieres que lo pegue? oImg.Left = 0 oImg.Top = Range("A1:C3").Height Saludos y gracias!
  11. Buenas tardes, Tengo una dudilla e invoco a vuestra sabiduría Tengo un rango de datos que copio y pego como imagen en otra hoja. El tema es que a esa imagen me gustaría poder nombrarla de alguna manera para poder más adelante, utilizando "shapes", trabajar con ella(x ejemplo algo tan simple como borrarla...). Saludos y gracias!
  12. Gracias por la aportación, le di un vistazo y ahora solo queda trabajarlo. Saludos
  13. Buenas noches, estoy automatizando un Word que se nutre de datos de una hoja de Excel. Esto me funciona correctamente... Quería también copiar una tabla del Excel en un Word y no estoy encontrando demasiada información de cómo hacerlo, alguna idea? En el caso que sea viable se puede determinar el lugar exacto donde queremos que se pegue? Saludos y gracias!
  14. He probado el código y funciona muy bien Antoni, quiero testearlo más para adaptarlo a más cosillas que quiero hacer. JSDJSD me ha parecido muy interesante tu código, muchas gracias, me abre la mente para futuros códigos. Muchas Gracias por la participación a los dos, JSDJSD y Antoni.
  15. ok JSDJSD, cuando puedas coméntame tu código porfa que me cuesta seguirlo. El código que yo adjunté hace que se filtre todo y desaparecen los datos. No acabo de ver donde está el problema...Alguna idea? Otra consulta, si el formato de fecha que yo tengo en la tabla es "dd/mm/aaa hh:mm:ss" si meto en el inputbox la fecha formato "dd/mm/aaaa" filtrará correctamente? Gracias por participar en el hilo.
×
×
  • Create New...

Important Information

Privacy Policy