Jump to content

Potter08

Members
  • Content Count

    235
  • Joined

  • Last visited

About Potter08

  • Rank
    Advanced Member
  • Birthday 02/13/1973

Recent Profile Visitors

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

  1. 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
  2. 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
  3. 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.
  4. 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.
  5. Excelente solucion es exacto lo que necesitaba, gracias.
  6. adjunto ejemplo espero me de a entender, gracias Ejemplo Find and copy.xls
  7. 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
  8. 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
  9. Excelente Antoni, muchas gracias Exacto lo que necesitaba Tema cerrado Salu2
  10. 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
  11. 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

     

  12. Excelente Macro Antonio, sabia que tu tenias que responder a este problema, me imagine en cuanto publique este tema, es mas por un momento me plantee la idea de dirigirlo a tu persona directamente pero me contuve por que no fuera a ser no tuvieras tiempo, pero gracias !!! eres un genio, Salu2.xlsx a estudiar la macro se ha dicho, bendiciones. Tema Solucionado. Armando Montes, gracias por la idea, veremos si puedo instalarla, aun que no creo por las restricciones que hay ne la pc de mi trabajo.
  13. Hola buen dia foro, he aqui una utilidad que encontre en otro foro, pero que necesito hacerla mas eficiente ya que es muy lento el uso del libro y no tengo el conocimiento suficiente para modificar el codigo a algo mas facil. Limitante: - no puedo instalar nada extra en mi ordenador del trabajo por eso la necesidad de usar este aporte. - que en lugar de usar un textbox sea en la celda donde se ingrese el cogido a convertir a codigo de barras - que se pueda hacer para unos 100 registro o mas de una vez Adjunto el archivo para que si alguien puede optimizarlo o hacerlo mas eficiente, ya que
  14. 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
  15. 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
×
×
  • Create New...

Important Information

Privacy Policy