Jump to content

Potter08

Members
  • Content Count

    225
  • Joined

  • Last visited

Everything posted by Potter08

  1. 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

     

  2. 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.
  3. 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 son varios registro que necesito convertir a codigo de barras para iniciar un nuevo proyecto. uso excel 2007 Salu2.xlsx Code39.xls
  4. 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
  5. 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 estaria interesante ponerlo en practica, si mal no recuerdo la aplicacion que se llama ddtrada funciona asi como digo. salu2.xls
  6. 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
  7. 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
  8. 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
  9. 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
  10. jano181 Solamente falto que adjuntaras el ejemplo que platicas. si lo subes estaria interezante darle una chequeada. salu2.xlsx
  11. 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
  12. 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
  13. Hola, Antoni como siempre muy atento. Disculpa la tardanza Gracias por las ideas, pero estaba pensando, mi problema es cambiar el nombre a varias imagenes insertadas a la ves digamos 25 por pagina ubicadas cada 8 celdas inician en la celda R2 y el nombre esta en la celda C3 y asi cada 7 celdas intente con esta macro pero no me funciona si cambio una imagen, alguna idea de como modificarla para que reconosca donde esta ubicada la imagen no el numero indice. por ejemplo si esta ubicada en R2 que tome el valor de C3 si esta ubicada en R9 que tome el valor de C10 y asi sucesivamente. Aquí el codigo: Salu2.xls
  14. Hola, tengo un pregunta un tanto complicada para mi. Como puedo saber el numero indice de un shape, el problema que tengo es que al insertar una imagen en una hoja excel la reconoce con un numero de ingreso a la hoja, eso me afecta por que al querer cambiarle el nombre al shape tomando el valor de una celda, me los pone desordenados no segun el orden que se encuentran en la hoja, entonces tendria que renombrar el orden de las imagenes para poder darles un nuevo nombre segun la celda de indicada. por ejemplo si agergo picture 1, picture 2, picture 3 y elimino la picture 1 y agrego otra en lugar de la 1 seria la # 4 lo cual para mi tendria que ser la picture 1 si alguien tiene alguna idea de como hacerlo, favor digamenlo. ya intente con este codigo pero ninguno me da lo que necesito Cells(nRow, 2) = shp.Name Cells(nRow, 3) = shp.Type Cells(nRow, 4) = shp.OnAction Cells(nRow, 5) = shp.Hyperlink.Address Cells(nRow, 6) = shp.TopLeftCell.Address(0, 0) Cells(nRow, 7) = shp.BottomRightCell.Address(0, 0) Cells(nRow, 8) = shp.Height Cells(nRow, 9) = shp.Width Cells(nRow, 10) = shp.AutoShapeType Cells(nRow, 11) = shp.FormControlType Cells(nRow, 12) = shp.ID Salu2.xls
  15. Excelente Mauricio !!! Gracias !!!! Salu2.xls
  16. Checa el Adjunto, creo que es lo que necesitas. Salu2.xls EmilioRev.0_Potter.zip
  17. Excelente Antoni como siempre, aportando mejores y enriquesidos codigos. Solo un pregunta imaginate que tengamos un formato en una hoja de excel con colores resaltando totales, sub totales, y seleccionamos dichas celdas se perderia el formato verdad. Entonces como conservamos el formato de la anterior y solo resaltar por el momento de la seleccion y dejarlos sin ningun cambio. Salu2.xls
  18. Hola Antoni y Mauricio, me da gusto verlos tan intrigados con este tema y me parece que con sus conocimientos en excel vba todos aprendemos en este foro, son geniales sus aportes y siempre agradecido. me quedo con las dos repuestas y estoy de acuerdo con que excel tendria que tener una utilidad mas de poder proteger las formulas con algo parecido a CTRL + ? algo facil o que se yo crear un addins donde proteja las formulas y te solicite la clave de una forma facil. bueno nuevamente gracias !!! Salu2.xls
  19. muy buen aporte, la modifique un poco y que hay ocaciones en que queremos que cambien el color de fondo asi que aqui esta el codigo: teniendo en cuenta que el color de fondo es blanco. Dim x As Long Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' Set the row containing the active cell colorIndex. ActiveCell.Interior.ColorIndex = 4 ' Check for first execution of the macro and set row value ' if it is: If x = Empty Then x = ActiveCell.Row ' Set previous row property back to normal. ElseIf Not x = ActiveCell.Row Then Rows(x).EntireRow.Interior.ColorIndex = 0 End If ' Capture new row value for comparison against next selection. x = ActiveCell.Row End Sub[/CODE] Salu2.xls
  20. En ideas y aportes encontre lo siguiente: aporte de Antoni Ayala https://www.ayudaexcel.com/foro/showthread.php?t=12427 Hoy algo sencillo, cada vez vez que seleccionemos una celda, y esta contenga una fórmula, saltará a la de al lado, y de esta forma indirecta evitaremos que una manipulación errónea nos borre las fórmulas. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then _ ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select End Sub Me parese genial la idea. Ahora bien , ¿ Como seria para un libro de 20 hojas con formulas para no poner en cada hoja la macro.? hay alguna forma ? Salu2.xls
  21. Hola viendo el codigo que usas, claro que te va agregar los datos cada vez que cambien el textbox por asi se lo indicas a la macro por que esta usando TextBox1_Change seria bueno uses un boton donde mandas a excribir la informacion a la hoja asi creo que elimnas tu problema. por el momento no tengo mucho tiempo pero intenta con lo que te digo si no das con la solucion reponde el tema y te ayudo salu2.xls
  22. Bueno a mi me funciono la macro de esta forma, creo que falta pulirle lo de los porcentajes pero para iniciar con algo creo que es buen camino. aqui te va. Espero te sirva Salu2.xls
  23. CHECA EL ADJUNTO, Salu2.xls Lo comprimi por peso, espero te sea util.
  24. Gracias por responder. Entonces me pongo a investigar en la web si en encuentro algo lo publico. Salu2.xlsx
×
×
  • Create New...

Important Information

Privacy Policy