Jump to content

lphant

Members
  • Content Count

    302
  • Joined

  • Last visited

Everything posted by lphant

  1. Buenos dias; Qe puedo tener mal?? Un saludo
  2. Buenas noches; Quien me puede echar una mano, estoy intentando hacer una macro que me envié cierta celdas por mail y algo me esta fallando, me abre el correo y lo envía pero vació, no ingresa el contenido, el contenido me lo copia en lo primero que este abierto en ese momento. Os adjunto las lineas: On Error Resume Next Set parte1 = CreateObject("outlook.application") Set parte2 = parte1.createitem(olmailitem) parte2.to = "destinatario@blabla.com;destinatario1@blabla.com" 'parte2.CC = parte2.Subject = "asunto de mensaje" parte2.display Application.SendKeys "^v" parte2.send Set parte1 = Nothing Set parte2 = Nothing On Error GoTo 0 Muchas gracias Lectura excel.xls
  3. Gracias si alguien esta mirando mi tema pero creo que por fin lo he conseguido, la única pega que ahora me a surgido otro problemilla al querer mejorarlo, la celda A2 ya no es un solo nuemro, ahora contiene texto y numero, necesitaría que se eliminara el texto, es decir, que se quedara solo el numero, la celda A2 = Av5.
  4. Se me acaba de venir a la cabeza otra opción mejor para mi excel pero seguro muchísimo mas complicada, que cuando borre el dato de la celda A1 automáticamente se me sume 1 a la celda A2, se podría.
  5. Buenas tardes chic@s; Llevo toda la tarde dando vueltas pero no consigo lo que quiero, haber si me podéis ayudar. Lo que intento hacer es un contador en una celda, quiero que al numero que esta en la celda A2 se le sume 1 si la celda A1 tiene un numero. Muchísimas gracias
  6. Buenas tardes chic@s; De que forma puedo juntar 2 o 3 condiciones en una, no que cumpla las 2 o 3 para que realice algo sino que con que cumpla una de las 3 condiciones realice lo que sea, siempre las pongo separadas y es escribir 2 o 3 veces lo mismo. por ejemplo, juntar estas 2 condiciones. If Range("H6") = "" Then If Range("H7") = "insuficiencia" Then muchísimas gracias de antemano
  7. Muchas gracias por contestar German, ya lo he solucionado, era un paréntesis lo que me faltaba, por eso me daba error hiciera lo que hiciera, me he puesto en casa tranquilo y en un segundo me he dado cuenta. de todas formas muchas graciassss....
  8. Buenos dias; No consigo hacer que me funcione bien la siguiente formula al metener un nuevo condicional, quien me puede ayudar??. la formula es la siguiente: =SI(ESERROR(T2); SI(ESERROR(U2);SI(ESERROR(M2);SI(ESERROR(W2);SI(ESERROR(O2); SI(CONTARA(A2:F2)=6;"";INDIRECTO(DIRECCION(1;CONTARA(A2:F2)+1)));O$1);W2);M2);U$1);T2). La formula hace lo siguiente, mira en la celda T2 y si hay error pasa a la siguiente (U2) asi sucesibamente segun el orden establecido en la formula, si hubira dato en la celda pondria el dato. lo que quiero ahora es que tambien mire la celda K2, si tiene dato que ponga Ok ( K2 tiene fecha ), pero quiero que lo haga al final de todo. como deberia de ponerlo ya que me da error lo ponga como lo ponga. Un saludo,
  9. buenos dias; 1miguelescobar2 no entiendo lo que me quieres decir con que con que se puede cambiar los datos de origen. Digitalboy, os paso como debería de quedar los datos que se tienen que pasar de la tabla dinámica a la hoja acta. Un saludo, Libro1.xls
  10. Buenas noches; Haber quien me puede echar una manita. Necesito que la hoja llamada Acta se rellene con los datos de la tabla dinamica, es decir, que compare la columna cod y me ponga la columna situ y obs de la tabla dinamica en la hoja Acta, se puede??. Muchas gracias de antemano. Libro1.xls
  11. Buenas tardes; Perdonar por no haber contestado antes, hoy ha sido un día de kaos. Tese1969, ya no hace falta que suba lo que había hecho yo, el amigo Macro Antonio me acaba de dar la alegría del día, funciona perfecto, mejor imposible. muchas gracias a los 2, un abrazooo.....
  12. Buenos días; Me acaba de surgir un problema en la macro que estoy haciendo y por mas que lo he dado vueltas no he conseguido solucionarlo, a ver quién me puede echar una mano. Tengo varios datos que tengo que transformar en fecha los datos son como el siguiente " 18/04/13/ 0", primero reemplazo “/ 0” por nada y luego quito el espacio que tiene al principio, una vez realizado esos 2 pasos ya tiene el formato de fecha, si lo hago sin macro el Excel solo me pone “18/04/20132, pero si lo hago desde la macro se me queda así “18/04/13” y con el símbolo de error para que elija entre convertir en xx en 20xx o en xx en 19xx. Como podría hacerlo con una macro??. Muchas gracias. Fechas.xls
  13. Ahora no se cual usar jejejeee....he probado las 3 y funcionan de lujo. Muchas gracias a los 3.
  14. muy buenasss.... se puede??, jejeejeee....llevo toda la tarde liado y siempre me daba error en lo que hacia. los n/a sera texto que no aparecerá en la hoja ordenes 8 no hay que hacer nada con ellos ). las ordenes no deben de repetirse, asido un error al hacer el excel. he encontrado una macro que lo que hacia era ocultar las filas en vez de borrarlas, la he modificado pero me da error, la pongo por si ayuda. Sub Eliminar_filas() Sheets("Ordenes").Select Sheets("Ordenes").Activate Dim Comparar As Variant, x As Variant, y As Variant Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Set Comparar = Sheets("BorDer").Range("H6:H25") For Each x In Selection For Each y In Comparar If x = y Then x.EntireRow.Delete Next y Next x Range("A1").Select End Sub muchas graciasss..
  15. Buenas tardes; Como podría hacerlo siguiente; Necesito que cuando coincida la ORDEN de la hoja BorDer con la Orden de la hoja Ordenes, se elimine la fila en la que se encuentra la orden que coincide de la hoja Ordenes. Ejemplo: H6 de la hoja BorDer coincide con A3 de la hoja Ordenes, pues entonces que se elimine la fila A3 entera. se puede hacer?? un saludo Libro2.xls
  16. Buenas tardes; Tengo un problemilla con una formula, he intentado grabarla desde excel pero al ser tan larga y tener tantas "" me da problemas, se podría sustituir las "" de la formula ( en la macro ) de alguna forma. Muchas gracias. - - - - - Mensaje combinado - - - - - Pd: he intentado sustituir las doble comillas por & Chr(34) &, pero me da error 1004.
  17. Buenos días, a ver quien me puede echar una mano, quiero proteger una hoja Excel con macro y después desprotegerla para realizar ciertos cambios, la cosa es que yo lo he hecho grabando y si no pongo contraseña funciona, pero con la contraseña ni idea ya que cuando la grabo no graba la contraseña, se puede hacer con contraseña??, y como??. Esto el lo que he usado; ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.EnableSelection = xlNoSelection ActiveSheet.Unprotect Muchas gracias de antemano.
  18. Buenos días a tod@s; Por mas que lo he dado vueltas no se me ha ocurrido la forma de poder sumar datos de una columna con varios criterios de otra, como puedo hacerlo?? Necesito sumar los datos de la columna stock pero solo aquellos que no están señalados en la columna códigos de amarillo. Muchas gracias de antemano. Suma.xls
  19. buenas noches, ayer me apareció un problema en la tabla dinámica que por mas que he intentado no he conseguido resolver, yo antes tenia los datos de donde cogía la información la tabla dinámica en otro archivo excel independiente al de la tabla dinámica hace un tiempo uní dichos archivos por comodidad, todo en uno, pero me ha aparecido un problema, el archivo de donde coge los datos la tabla dinámica es una hoja que antes de tener los datos finales pasa por una serie de etapas ( se elimina los datos que tiene, se añaden nuevos datos se borran columnas y se añaden columnas con formulas ), el problema viene que al eliminar columnas y añadir nuevas la tabla dinámica sin yo hacer nada modifica el rango de columnas de donde tiene que coger los datos, al borrar las columnas las elimina también del rango de la tabla dinámica y luego no añade las que se añaden posterior, no se si me he explicado bien. ahí alguna forma de bloquear el rango de la tabla dinámica??, que se os ocurre que pueda hacer. muchs gracias de anteman
  20. Funciona a la perfección, muchas graciasss....
  21. Buenas tardes; Tengo un pequeño problema que no se como solucionar, esto haciendo una macro para que me haga una serie de filtros en una hoja de tabla dinámica, el problema que me ha surgido es que puede que no este el dato por el que yo quiero filtrar. Yo quiero filtrar por FechaHora y si no esta ese dato por el que filtrar que me filtre por blank, pero si no encuentra el filtro FechaHora me da error. ActiveSheet.PivotTables("Tabla dinámica8").PivotFields("Situación"). _ CurrentPage = "FechaHora" If Range("S1") = "Perfecto" Then Else ActiveSheet.PivotTables("Tabla dinámica8").PivotFields("Situación"). _ CurrentPage = "(blank)" End If que puedo hacer??? muchas gracias
  22. Muchas graciasss....lo he puesto como me has dicho y funciona perfectamente, te lo agradezco mucho.
  23. Buenos días a tod@s; No se si se podrá lo siguiente que se me ha ocurrido para mejorar en un archivo que tengo, quiero unir 2 macros en una, y quiero que se ejecute una u otra dependiendo de una celda, es decir, si en C5 no ahí valor que se ejecute lo que van a ser las líneas de la macro 1, si en C5 ahí un valor que se ejecuten las líneas que van a ser de la macro 2. Sabríais como podría hacer eso?? Estoy desde el móvil y ahora no puedo subir un ejemplo del Excel, en cuanto llegue a casa si es necesario le subo. Muchas gracias de antemano.
  24. Buenas noches; El otro día en la cama me acorde, era with lo que había que poner por si alguien lo quiere usar. Set A = ThisWorkbook.Sheets("Precertificado") Set B = ThisWorkbook.Sheets("Stock") with.A .Columns("T:T").Select Selection.Copy .Columns("Q:Q").Select muchas gracias
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png