Jump to content

DaneryAngel

Members
  • Posts

    82
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by DaneryAngel

  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!!!
  16. Hola mjrofra, te puedo decir que lo adapte a mi macro, y simplemente mil gracias!!! me funciona excelente, y me gusta tu blog esta buenisimo Para mi el tema queda resuelto
  17. Hola de nuevo amigos! Es posible guardar automaticamente un libro, pero sin necesidad de indicarle manualmente la ruta (path)?, tengo un libro en una determinada carpeta, abro el libro por medio de macro, le hago modificaciones y luego quiero guardarlo en la misma carpeta con otro nombre, pero el problema es que quiero que se actualice el Path/Ruta si la carpeta pasa a otro equipo en nuestra red, se podra esto? Gracias a los que me puedan guiar y ayudar
  18. Re: Eliminar hojas excepto activa Hola verzulsan es lo que necesito e hice las pruebas y esta excelente la macro, agradezco tu ayuda y queda resuelto Gracias
  19. Hola amigos! Encontre este codigo de ST_ codigo me ayuda a eliminar hojas especificas, pero lo que yo necesito es eliminar todas las hojas excepto la hoja activa Sub elimina_Hojas_1_ST() Application.DisplayAlerts = False Sheets(Array("Hoja6", "Hoja7")).Delete End Sub[/PHP] Porfavor a los expertos o no expertos si me pueden ayudar Gracias
  20. Re: Copiar hoja en un mismo libro Gerson, gracias imagine por un momento que no me estaba dando a entender, pero gracias por la macro me queda bien y como dice luisv yo estaba tambien desesperado no encontraba el camino, tambien te agradezcon por interesarte en mi macro Gracias a los dos por su ayuda y por lo bueno que es este foro, el tema queda resuelto
  21. Re: Copiar hoja en un mismo libro Hola Luis encantado de saludarte! Aqui abajo en la macro voy agregando mas opciones para ir cubriendo errores que se pueden dar, pero no consigo, y lo intentado darle a la variable al de modo que cuando escriba el nombre del libro a abrir, me reconozca automaticamente la ubicacion de la carpeta donde tengo esos libros, estoy que no avanzo en esa parte del codigo Si lo puedes probar porfavor o darme una idea de como crear la ruta automaticamente Private Sub Worksheet_Change(ByVal Target As Range) Dim al, ch Application.ScreenUpdating = True Application.DisplayAlerts = True On Error Resume Next al = [F1].Value Workbooks.Open al ch = Application.InputBox("Introduzca el nombre", "Copiar hoja", Type:=2) If ch = "" Then MsgBox "Porfavor escriba el nombre de la hoja", _ vbExclamation, "*** ERROR ***" MsgBox "Tiene una ultima oportunidad para hacerlo", _ vbInformation, "Cuidado!" ch = Application.InputBox("Introduzca el nombre", "Copiar hoja", Type:=2) ElseIf ch = "" Then ActiveWorkbook.Close Else ActiveSheet.Copy AFTER:=Sheets(Sheets.Count) ActiveSheet.Name = ch Sheets(ch).DrawingObjects.Delete End If On Error GoTo 0 Application.ScreenUpdating = False Application.DisplayAlerts = False End Sub[/PHP] Estaré atento a cualquier ayuda o comentario Gracias
  22. Re: Copiar hoja en un mismo libro Hola luis Me ha servido mucho, y siguiendo tu sugerencia he creado este codigo, todo bien... pero cuando le doy escape o cancelar a los inputbox se vienen los problemas! si me pudieras ayudar en agregar algo que impida estos errores o los burle te lo agradeceria Puedes probar el codigo en un libro cualquiera y cuando abro libros del escritorio todo bien, pero por si el usuario se equivocara para abrir un libro inexistente tengo problemas En total me funciona bien, cuando llamo un libro existente y luego copio la hoja del mismo con otro nombre hasta ahi perfecto, pero cuando utilizo escape o cancel a los inputbox ya no puedo dar con la solucion dentro del codigo Saludos
  23. Hola yo aqui de nuevo! Obtuve este codigo para copiar una hoja en el mismo libro, pero requiero algo mas en la hoja ya copiada, en el archivo adjunto explico lo que necesito hacer... Gracias a los que me puedan ayudar:) Test.zip
  24. Re: Ayuda con funciones Excell 2003, por favor!!! Corregida con el permiso de mi compatriota: Saludos Carlos
  25. Re: Devolver un numero segun un criterio Para que excel te reconozca las formulas matriciales (como la de Carlos y la mia), debes introducirlas con ctrl+mayus+enter de este modo funcionan y te van aparecer en la barra de formulas los corchetes {...formula...} La de Sailepaty no necesita este metodo ya no es matricial Saludos compañeros
×
×
  • Create New...

Important Information

Privacy Policy