Jump to content

Potter08

Members
  • Content Count

    239
  • Joined

  • Last visited

Everything posted by Potter08

  1. Hola, para lo que necesito es necesario una macro ya que el listado a filtrar como pueden ser 3,4,8 valores pueden ser 20 o mas y hacer eso 20 veces o mas como que no ayuda, por tal motivo necesito la macro pero gracias por tu comentaio.
  2. Hola, estoy haciendo una macro para hacer un filtro en base a un listado en un rango pero veo que esta algo lento el proceso, sera que alguien tiene una mejor idea o un codigo ya probado que sea menos lento, adjunto archivo con macro de ejemplo. Salu2 FILTROBASE.xlsm
  3. Hola, por que no usas algo mas sencillo y abre los 2 archivos por el nombre de cada uno. Sub Openbooks() Workbooks.Open Filename: = "C:\Users\Harry\Documents\Book1.xlsx" Workbooks.Open Filename: = "C:\Users\ Harry\Documents\Book2.xlsx" Windows.Arrange(xlArrangeStyleTiled) End Sub
  4. Hola he probado tu macro y no me da ningun error es mas la guardare por cualquier necesidad, gracias. Pero creeri que deberia verficar bien el boton, ya que me a sucesido en alguna ocacion que al cambiar de archivo o de excel, queda guardada la ruta de donde se tomo por primera ves la macro no de donde la tenes ahora activa. Salu2
  5. Hola buscando en el foro encontre esta macro que hace casi lo que necesito, intentare adaptarla y si alguien puede le hecha un vistazo a ver si le damos solucion a esto. Sub Transponer() Dim BASE, RESUMEN, Fila, filas, col '--. Application.ScreenUpdating = False Set BASE = Sheets("BASE") Set RESUMEN = Sheets("RESUMEN") '-- Fila = 1 RESUMEN.Range("A2:E" & RESUMEN.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents filas = BASE.Range("A" & Rows.Count).End(xlUp).Row col = BASE.Cells(2, Columns.Count).End(xlToLeft).column For x = 3 To filas For y = 5 To col If BASE.Ce
  6. Hola, gracias por responder pero ya lo he intentado asi con pivotales pero si ves bien es lo mismo que tengo en la base presentado en pivotal se que es un resumen pero siempre va encaminado a presentarlo en columnas no a filas como a mi me interesa. Salu2
  7. Pues tengo la siguiente base (archivo adjunto), y necesito hacer un resumen asi como se muestra en el archivo hoja resumen pero no le encuentro entrada, alguna idea que me puedan dar, gracias. es de hacer una resumen por nombre y por talla pasando de columnas a filas repitiendo el nombre dependiendo de los materiales a usar, cabe mensionar que en este ejemplo solo van 4 maeriales pero en realidad son 25 y pueden ser mas segun los cambios que tengan los nombre de los productos estan en una base igual solo que con mas columnas. espero me entiendan y me puedan brindar ayuda.
  8. Gracias muy buen aporte me servira para otro reporte que estoy en proceso, gracias Salu2 a todos, pueden dar por cerrado el caso JSDJSD gracias por tu interes en otra ocacion sera.
  9. Excelente solucion es exacto lo que necesitaba, gracias.
  10. adjunto ejemplo espero me de a entender, gracias Ejemplo Find and copy.xls
  11. lo que estoy tratando de hacer es esto de copiar ciertas filas de onde encentre el valor hasta donde termina al informacion no toda la fila por que para llenar otra base con mas infromacion Range(ActiveCell.Offset(0, 0), ActiveCell.End(xlToRight)).Copy Salu2
  12. si tengo esta macro Sub ejemplo() valor = 5 NameO = "BaseX" Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) Sheets(NameO).Rng.Select '<= asi no funciona y coloco separado Sheet(nameO).select y en otra fila Rng.select si lo hace. End Sub pero necesito tomar los vlaores de las filas sin necesidad de selecionar la hoja, como hago eso. Como me posiciono en la celda del valor encontrado y copio toda la fila a otra hoja
  13. Excelente Antoni, muchas gracias Exacto lo que necesitaba Tema cerrado Salu2
  14. Hola, buenas tardes me podrian ayudar con este proyecto. adjunto ejemplo Lo que necesito es que tengo en una base, datos concatenados en un hoja de excel y he logrado separarlo con split a unos textbox pero ahora me surgio la idea de ponerlos directamente en un listbox sin separarlos previamente. sera que me podria ayudar con el codigo. Salu2 Ejemplo Listbox concatenado.xls
  15. Hola me podrias compartir el archivo Inventario activo fijo, me interesa llevar un control asi en mi puesto de trabajo de antemano gracias.

    lo he intentado descargar pero me da error.

     

    Salu2.xlsx

     

  16. Re: Proteger hoja o eliminar si se viola cdoc2010, si yo lo tengo en mi pc pero por el peso del archivo no lo puedo subir ni zipeado. pesa 118KB Alguna idea como subirlo ? Por cierto gracias tuve, chequeo mas tarde a ver que tal. salu2.xls
  17. Re: Proteger hoja o eliminar si se viola Hola, esta interesante el tema, he visto mas de algun ejemplo en el cual las macros mas complejas no las podes ver en el libro donde las ejecutas, si no que las guardan en un archivo .dll , no me pregunte como por que no se. Solo tengo la idea de que es con visualbasic el programa no la plataforma de excel vba. Con lo del archivo para convertir a exe les pongo una url de donde lo descargue y funciona muy bien. Converter from XL to EXE - Convert Microsoft Excel Files to Executable Files Si alguien sabe como meter las macros en un archivo .dll avisen
  18. Hola, me gustan estos aportes tan importantes para la comunidad que a diario usa excel. y me agrada ver como dos personas tan inteligentes dan sus aportes solo por el simple hecho de competir sanamente. jajaja me alegra que se den a la tares de mejorar las ideas de otros. y en lo personal me gustan mas las macros, aun que no esta demas conoces las formulas. para mi parecer seria muy bueno que alguien la transformara a formula personalizada asi seria mas facil el uso. no me comprometo por que para eso soy muy malo. salu2.xlsx
  19. Hey Espertos esta interesante este tema, pero podria alguien subir un ejemplo con las rutinas funcinando para un mejor entendimiento. aplicando el sendkeys como lo plantea canal_on. Salu2.xls
  20. Hola he buscado por todo la web y no encuentro como eliminar este mendato menu contextual que probe en una macro que descargue y lo raro es que solo me funciona o se activan las opciones en ciertos libros. como hago para eliminar, borrar, Resetear, o olvidarme que alguna vez aguegue items al menu contextual de excel 2007. adjunto libro que me agrego los items, tambien pongo las macros con las que he intentado y nada. Salu2. Aqui los intentos fallidos: add a menu in the right click.zip
  21. Creo que con esta macro solucionas tu problema, no me recuerdo de donde la descargue pero hace lo que necesitas. Sub Get_Environmental_Variable() Dim sHostName As String Dim sUserName As String ' Get Host Name / Get Computer Name sHostName = Environ$("computername") ' Get Current User Name sUserName = Environ$("username") Sheets("Sheet1").Range("A4") = sHostName Sheets("Sheet1").Range("A5") = sUserName End Sub[/CODE] Salu2.xls
  22. jano181 Solamente falto que adjuntaras el ejemplo que platicas. si lo subes estaria interezante darle una chequeada. salu2.xlsx
  23. Re: Icono personalizado en barra de acceso rápido Simplemente sos un guru de excel ST_, que cualquiera desearia tener tu sabiduria pero para eso falta muchooooooooo por recorrer. no sabes cuanto he buscado un ejemplo facil de entender para hacer esto en excel. Bendiciones !!! salu2.xls
  24. Re: cabiar color de celda en función de valor de otra pero con mas de 3 condiones vb? Checa este codigo a ver si te sirve de ayuda. Lo que hace es poner el en rojo y azul de fondo si cumple con las conficiones de ROJO y AZUL
×
×
  • Create New...

Important Information

Privacy Policy