Jump to content

NAB_20

Members
  • Posts

    23
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by NAB_20

  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 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!
  10. 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!
  11. Gracias por la aportación, le di un vistazo y ahora solo queda trabajarlo. Saludos
  12. 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!
  13. 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.
  14. 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.
  15. PruebaFiltro.xlsm Antoni es una tabla sencilla que he creado para familiarizarme con lo que quiero hacer, Saludos y muchas gracias Antoni JSDJSD Gracias por tu ejemplo, podrías si no es mucha molestia explicar el código?
  16. Buenos días, estoy intentanto hacer un filtro avanzado en vba y no consigo que funcione. Estuve viendo un ejemplo que solucionaba Antoni pero ni así... Os paso el código para ver si podeis darme un poco de ayuda. Lo que me gustaría conseguir es un autofiltro avanzado donde pueda filtra las filas entre dos fechas que yo introduzca con un "inputbox" Sub filtrarfecha() Dim FechaIni As date, Dim FechaFin As date FechaIni = InputBox("Ponga fecha inicio") FechaFin = InputBox("Ponga fecha fin") ActiveSheet.Range("a5:a13").AutoFilter field:=1, _ Criteria1:=">=" & FechaIni, _ Operator:=xlAnd, _ Criteria2:="<=" & FechaFin ActiveSheet.AutoFilter.ApplyFilter End Sub Gracias por adelantado
×
×
  • Create New...

Important Information

Privacy Policy