Jump to content

DaneryAngel

Members
  • Content Count

    81
  • Joined

  • Last visited

  • Days Won

    1

DaneryAngel last won the day on October 25 2009

DaneryAngel had the most liked content!

About DaneryAngel

  • Rank
    Advanced Member
  • Birthday 08/23/1981

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Creo que te puede funcionar mejor con la formula en ingles desde vba si utilizas las funciones asi no importara que idioma utilices en tu excel siempre te las mostrara en ese idioma Sub y() RANGOS = "X1:AB12" Range("B13").Formula = "=VLOOKUP(A13," & RANGOS & ",2,FALSE)" End Sub espero que te sirva
  2. Que bueno que se sumen mas, yo tambien digo presente
  3. Me alaga tu comentario y bueno al menos no voy por mal camino;) aunque el que sabe aqui eres tu
  4. Gracias por tu ayuda y lo resolvi con Columns("D:IV").Interior.ColorIndex = xlnone
  5. Disculpame pero en cuanto conteste tu me respondiste, mañana lo reviso y te aviso y gracias por tu ayuda
  6. Hola Fijate que fue una malvision no me funciona como yo lo quiero ya que con tus opciones me marca todo el rango pero no me colorea por cada condicion
  7. verzulsan lo tenia al frente de mi nariz y tu solamente me lo colocaste en la mesa para olerlo, vaya me quebre la cabeza y lo ultimo que se me hubiera ocurrido fue precisamente tu solucion y claro por suerte mi BD no va ser volatil, asi que puedo definirle el rango, pero si la BD fuese volatil que me recomendas? Muy agradecido de tu ayuda
  8. Hola foramigos! tengo en una de mis macros algo que me sirve para dar formato como colores etc a mis datos pero con una condicion lo hago hasta cierto punto porque me formatea toda la fila y lo que estoy buscando es que me de formato solo a mi bd donde tengo datos nada mas no toda la fila completa Estas son las lineas ulfi1 = Cells(65536, 1).End(xlUp).Row For x = ulfi1 To 2 Step -1 With x If Cells(x, 2) = "Excel" Then Rows(x).Interior.ColorIndex = 15 If Cells(x, 2) = "Excel2" Then Rows(x).Interior.ColorIndex = 20 If Cells(x, 2) = "Excel3" Then Rows(x).Interior.ColorIndex = 38 If Cells(x, 2) = "Excel4" Then Rows(x).Interior.ColorIndex = 6 If Cells(x, 2) = "Excel5" Then Rows(x).Interior.ColorIndex = 44 End With Next Alguien que me pueda ayudar porfavor
  9. Re: Pegar imagen "gif" por medio de macro Hola mjrofra de verdad eres un fenomeno con las macros, me quedo como anillo al dedo y gracias a ti tambien Antoni, los dos son unos maestros Mi tema esta resuelto con la ayuda de ustedes Gracias nuevamente
  10. Para la version 2007 puedes hacer uso de la opcion "quitar duplicados" marca la columna donde tienes los datos dirigite al menu-datos-quitar duplicados y te debe resultar y si lo que quieres es realmente contar unicos la formula que te pego te sirve saludos
  11. Re: Pegar imagen "gif" por medio de macro mjrofra, es exactamente lo que intentaba hacer con esto soluciono mi problema Pero si no es mucha la molestia y si me puedes ayudar tengo mis archivos en la misma carpeta que proceso, ya tu mismo me ayudaste en conseguir automaticamente la ruta de un archivo, ahora mi pregunta es podre buscar y pegar la imagen del mismo modo que lo hago con los xls?? es decir si muevo la carpeta de lugar los archivos me funcionan bien, quisiera saber si hay alguna forma para hacerlo con un gif, ya que tambien lo llevo en la misma carpeta Te agradecere si me ayudas o me das ideas
  12. Hola He buscado por el foro, y encuentro varios post que describen algunas formas de pegar imagenes Tengo una macro que me genera un reporte automaticamente, y lo que pretendo es que cuando se termina de generar mi reporte, tratar de pegar una imagen gif en un rango determinado, por ejemplo marcar el rango A1:C3 y pegar ahi la imagen, pero esta la quiero jalar de forma automatica desde una carpeta determinada o fija Manualmente lo puedo hacer y de varias formas, pero pregunto excel es capaz de ayudarme para hacer el pegado del gif automaticamente? "este proceso necesito hacerlo automaticamente para la estetica de mi reporte" Espero me puedan ayudar u orientar, desde ya se los agradezco mucho a todos los foreros
  13. Re: Eiliminar filas segun texto en celdas Hola versulzan! No me queda mas que agradecerte dos cosas, primero por darme la explicacion de como funciona y segundo por la exactitud del resultado que andaba buscando y ahora si entiendo los bucles FOR NEXT (lo dos metodos me funcionan)
  14. Re: Eiliminar filas segun texto en celdas Versulzan gracias por tu explicacion me ha quedado claro y agradecido por tu interes en que aprendamos, estoy tratando de hacer que cuando X se verdadero me elimine la fila, pero no logro asi X = Range("C2" & rows.count).End(xlup) If Cells(X,3) = "incorrecto" then rows(X).delete Si me pudieras ayudar porfavor
  15. Hola amigos! , estoy intentando eliminar filas completas, tengo una BD y en la columna C se puede encontrar dos textos, "correcto e incorrecto", si encuentra el texto "incorrecto en la celda C2 por ejemplo" que me elimine toda la fila 2 Espero me puedan ayudar Gracias!!!
×
×
  • Create New...

Important Information

Privacy Policy