Saltar al contenido

Macros y programación VBA

Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

  1. Started by erickarciga,

    Buen día. Gracias por tu tiempo y apoyo, actualmente firmo documentos de excel en Insertar / Línea de firma, luego sale una imagen con la linea de firma y al dar clic derecho en el menú colocó insertar firma yselecciono una imagen con mi firma, de esta manera el documento queda firmado de manera electrónia por mi. Lo que quiero ver es si es posible hacer eso con una macro, utilice el grabador de macro pero me arroja un error.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
  2. G1 en la hoja "titulares" es la celda que quiero referenciar en mi macro, ya que quiero ingresar el nro de registros que quiero imprimir, y no salga los 15, por ejemplo si solo quiero los 5 primeros ... y si la celda g1 estuviera en la hoja gastos como lo agrego a la macro "imprimir" aquiles dejo el codigo de la macro. ______________________________________________________________ Sub Macro1() Sheets("gastos").Select ActiveSheet.PageSetup.PrintArea = "A1:D14" For i = 2 To 15 depto = Sheets("titulares").Cells(i, "A") nombre = Sheets("titulares").Cells(i, "B") porcentaje = Sheets("titulares").Cells(i, "C") …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  3. Started by Mario Villoria,

    Buenas tardes, hice un pequeño programa en excel a modo de prueba y me gustaría solicitar orientación respecto a varios problemas que he observado, he estado leyendo mucha información en los foros y ayudas en paginas web, incluso he descargado varios archivos. El tema en cuestión es que tengo una hoja llamada "PRODUCTOS" en la cual muestro cierta información, también tengo un formulario "FrmFacturacion" dentro del cual tengo un listbox llamado "lstDescripcion", en dicha lista muestro las columnas A y G de la hoja PRODUCTOS con el siguiente código: sUltimaCelda = Range("A1").End(xlDown).Address For Each f In Range("A2:" & sUltimaCelda).Cells Me…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.3k visitas
  4. Started by killertapia,

    copiar imágenes de word a excel con macro Que tal, ya es un tiempo que no pasaba por aquí debido al trabajo, pero seguimos en pie, me llegó una gran duda y me gustaría que pudiesen ayudarme. El punto es que me llegan documentos Word con fotos que yo debo meter a una base de datos en Excel, ya busqué y ya sé como abrir un documento word desde excel, pero no sé como copiar un objeto (imagen) de word y pegarlo en excel. Adjunto los archivos, tanto word como excel, (no tienen macros definidas ya que nunca he manejado word vba y menos combinado con excel) para ver si les sirve de guía para entender lo que busco. gracias de antemano. Saludos P.D. Hasta ahora me di cuenta de…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  5. Started by joseppp,

    Buenas tardes, necesito vuestra ayuda. Tengo una columna donde hay valores numericos y ceros (de o3 a o100). Necesito que empezando de la celda o3, se copie ese valor a la celda A1, despues la o4 se copie a la A1 de nuevo,asi sucesivamente hasta la o100.Lo unico que debe saltarse los ceros. He intentado con la grabadora de macros, pero se hace muy largo.Supongo que sera con un bucle, pero no se hacerlo. Adjunto el codigo de ejemplo. Gracias Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=R[2]C[14]" 'copio valor o3 Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=R…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.3k visitas
    • 2 seguidores
  6. Started by Jonnass,

    Necesito una macro que me compare el nombre de hojas en dos archivos diferentes. Sin embargo los nombre no son iguales sino que son equivalencias. En el archivo "A", las hojas se llaman Alemania y Francia. En el archivo "B", las hojas se llaman DE y FR. Cuando encuentre el nombre que corresponde copio un rango de un archivo al otro. No sé si hay que hacerlo con equivalencias, variables ... ... gracias !!

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.3k visitas
  7. Started by jabrajam,

    Buenos dias a todas, Lo primero agradecer a la plataforma el acceso gratuito en estos momentos. Espero y deseo que todos esteis bien Paso a detallar mi problema, me baje un archivo de la comunidad del gran maestro Antoni,he intentado adaptarlo a mis necesidades y he resuelto algunas cosas y otras no. Detallo los fallos que no soy capaz de sacar: 1º En columna C no me salen los datos bien 2º En la columna D Tengo que poner los nombres con numero porque sino los graba todos en la misma fila 3º En el cronograma si empieza la actividad en el mes siguiente al elegido aparece en el mes selecionado Por ultimo cada vez qu…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.3k visitas
  8. Started by victor2012,

    Buenas noches reciban cordial saludo. estimados amigos del foro, solicito de su ayuda en poder lograr lo siguiente. tengo una tabla dinámica,esta la actualizo de un archivo que exporto de mi sistema con el cual trabajo. mi pregunta hay forma de colocarle un macro para que esta se actualize del archivo que exporto sin tener que abrirlo. quedo atento a sus comentarios. cordialmente victor2012

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.3k visitas
  9. Started by sdelpin,

    buenas noches, soy sonia y tengo una gran duda necesito vuestra ayuda. estoy haciendo una calculadora de primas, y he hecho una macro para que vacie las celdas y a su vez devuelva el valor 0 a las celdas borradas. hasta ahi bien, pero cuando pongo un nº en dos celdas determinadas (C20 y C21) la formula que esta en la celda N4 no calcula, para que haga el calculo tengo que poner yo misma en las celdas C20 y/o C21 un 0. no se si me he explicado bien..... adjunto fichero. Gracias! calcu_precartera.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
    • 1 seguidor
  10. hola buenos dias queria saber si me pueden ayudar tengo un formulario en excel con vba y puse los codigos para poder in ingresar y limpiar los datos del formulario pero no tengo idea que codigo colocar para poder modificar los datos, buscarlos, y poder eliminarlos agradeceria su ayuda muchas gracias no pude subir el archivo era muy pesado pero solo necesito el codigo y la indicacion de donde agregar los textbox1,2,3etc.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
  11. Started by jmontupil,

    Buen dia, a todos, soy nuevo en este foro y tambien en excel 2010...soy usuario de excel pero a nivel de crear macros, me ha resultado muy complicado crear incluso esta. la cual pido su asesoria. explico: debo extraer o mejor copiar los datos desde un hoja excel que nos envian y pegarlos en otra hoja pero resulta que el origen es bastante desordenado y no encuentro la forma de hacerlo bien. cuando intento crear una macro solo copia lo primero que indico y lo segundo no aparece. ojala y puedan ayudarme... adjunto un archivo con una copia tipo y datos, ademas una hoja con los datos como deben quedar para ser analizados. talvez les parezca simple. pero yo como les explique…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.3k visitas
  12. Muchas gracias por su atención, mi interrogante se trata de ¿como colocarle a una serie de celdas en Excel una contraseña?para que esa serie solo pueda ser modificada por la persona que posea la contraseña; al principio utilice la opción de proteger hoja que me sirvió de maravilla, pero luego se vio la necesidad de que ese archivo fuera compartido; al momento de hacer eso me di cuenta que una de las cosas que no se puede hacer al compartir un documento es proteger o desproteger, me puse a investigar y e visto una serie de recomendaciones con macros, pero mi conocimiento de esto es limitado, así que si alguien tiene la amabilidad de explicarme como puedo hacer una macro pa…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  13. Hola! Tengo una macro para guardar en pdf: Sub Guardarenpdf() ' ' Guardarenpdf Macro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\agl\Desktop\Pedidos formato para editar 2 - copia.pdf", Quality _ :=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ From:=1, To:=1, OpenAfterPublish:=False End Sub[/CODE] Pero cuando abro la macro de otra maquina no puedo guardar el archivo, ya que no es el mismo escritorio. Que ruta puedo ponerle para que lo guarde?? Muchas Gracias!!

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
  14. Sub CopiarCeldas() 'Defini objetos Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'indicio el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Datos - Abastecimientos.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Other") Set wsDestino = wbDestino.Worksheets("Datos") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.3k visitas
  15. tengo un userform que estoy disenando en terminos es basico pues la funcion del mismo es el de ingresar el nombre de un archivo en un textbox luego al precionar el command button este busque y abra el archivo indicado en textbox. la cuestion es que el nombre del archivo siempre sera diferente, como la informacion acerca del tema es escasa e formado mis macros con forme a lo que espero yo funcione hasta el momento la e probado y pues no me deja pasar pues al no tener texto en el textbox no sigue. espero alguien pueda decirme como hacerle para que dicho boton haga su funcion y pues que errores ven de ante mano muchas gracias - - - - - Mensaje combinado - - - - - como bo…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  16. :livid: Como no he sido muy clara en mi consulta de esta mañana, adjunto este archivo que tiene una macro que hizo alguien en este foro y que es muy similar a lo que estoy buscando, salvando dos pasos que necesitaría modificar; pero como no entiendo mucho de macros, no sé como adaptarla así que aquí adjunto mi excel, y en èl explico, en la primer hoja, específicamente lo que necesito. Muchas Gracias y espero que alguien pueda ayudarme a resolver este problemita. Librería Final prueba.xls

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.3k visitas
  17. Hola a todos, Soy nuevo aquí, y en realidad es en el primer foro que participo. Quiero dar color a una fila según el criterio de una celda. En la celda TIPO si pongo una M quiero que se me ponga la fila de una color y si pongo M que se ponga de otro. Así en toda la hoja. He intentado seguir vuestros consejos, pero aun soy demasiado torpo para esto. Aquí os adjunto mi hoja TOTAL AÑOS.foro.xls

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.3k visitas
  18. El archivo que se anexa en este tema contiene una macro que funciona muy bien cuando el valor del "atributo" IdDocumento que se extrae del archivo XML solo es un valor pero si ese archivo XML, como en este caso el archivo XML que subo como ejemplo, tiene repetido ese "atributo" IdDocumento la macro solo arroja el valor del primer "atributo" IdDocumento que encuentra. Cómo saco el valor de todos los "atributo" IdDocumento de este archivo y los pongo en columnas como se enseña en el archivo. Espero haberme dado a entender. Gracias. Ejemplo.rar

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.3k visitas
  19. Tengo un formulario con un TextBox para ingresar fecha. Solo digito números porque el guion se coloca automáticamente. El problema se presenta cuando quiero borrar carácter por carácter de derecha a izquierda no me deja por el guion. ¿Cómo podría modificar el código para que permita borrar de esa forma? Private Sub TextBox1_Change() If Bandera = False Then If Len(ActiveControl) > 10 Then ActiveControl = Mid(ActiveControl, 1, 10) MsgBox "lA fEcHa eStA CoMpLeTa" Else If Len(ActiveControl) = 2 Then ActiveControl = ActiveControl & "-" End If If Len(ActiveControl) = 5 Then ActiveControl = Act…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.3k visitas
    • 1 seguidor
  20. Hola! Como dice el asunto estoy buscando una función personalizada del tipo =Bold(A1) que devuelva el valor de A1 en negrita. Me estoy volviendo loca y no consigo encontrar la solución! Me echáis una mano? Mil gracias!!

    • 0

      Reacciones de usuarios

    • 10 respuestas
    • 1.3k visitas
    • 2 seguidores
  21. Saludos a toda la comunidad... Estoy realizando un proyecto donde se hace la búsqueda del empleado de una organización y sus subordinados, el chiste es que que ya al llegar al paso de generar un organigrama se crea un documento que se puede utilizar para graficar el mismo en visio, sin embargo necesito automatizarlo para que desde excel abra visio, se carge esa base y ya genere el organigrama adjunto el archivo que se crea en mi macro listo para cargar a visio en la columna B esta el empleado y en la columna C esta su jefe En el organigrama aparecerá el nombre del empleado, su titulo y su país de antemano muchas gracias a quienes me cooperen sus comentarios, por mi p…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.3k visitas
  22. Started by gogua,

    Buenos días, Estoy intentando crear una macro para enviar emails a distintas personas, con "varios" ficheros adjuntos a cada persona, de forma que en una cela pueda indicar un patron de los archivos que quiero adjuntar. marcando un fichero en concreto si funciona, pero cuando le digo que sean varios, por ejemplo el registro 1 y el 3 da error. He visto que se puede hacer lanzando un cuadro de dialogo a la hora de seleccionar los ficheros, pero quiero hacer el proceso desatendido. Os adjunto el fichero a ver si alguien puede echarme una mano. Gracias La hoja sería algo parecido a esto: Sub enviar_email() Dim A As Out…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
    • 1 seguidor
  23. Hola a todos, Me gustaría que al pulsar una tecla o un atajo de teclado, se le aparezca un mensaje en un MsgBox al usuario de la aplicación ofimática. No sé muy bien cómo plantear el problema. Se me ocurre lo siguiente, pero no funciona: Sub MostrarMensaje() If Application.OnKey Key:="{c}" Then MsgBox "Hola mundo" End Sub Alguien tiene una idea mejor? Gracias.

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.3k visitas
  24. Started by panoli,

    hola, quiero hacer una escogida automatica con excel. tengo un lado 70 zonas de trabajo libres (zona 1, zona 2,etc.) y por otro lado 900 comerciales que pueden cambiar de su zona asignada si estan interesados. Cada comercial que quiere cambiar entrega su solucitud con su preferencias (1ª) zona 34, 2ª) zona 6, etc.). a la hora de hacer de asignar se hace por antigüedad en la empresa. ¿como lo hago? ASIGNACION ZONAS.xls

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.3k visitas
  25. Started by sandradlr,

    hola!!! estoy tratando de grabar una macro que en cierto momento abre una hoja nueva. la primera vez que la corro es todo maravilloso!! (crea la "hoja 1") a partir de la segunda ya no está tan padre, porque al ejecutar la macro, en lugar de hacer referencia a la hoja1 abre nuevas hojas (hoja2, hoja3, hoja4...) y las siguientes fórmulas, siguen haciendo referencia a la hoja1, y no a la que se acaba de crear.... (hoja2,3,4...) se les ocurre algo que pueda hacer??

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.3k visitas

Información básica de protección de datos

  • Responsable: Sergio Andrés Celemín
  • Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
  • Legitimación: Consentimiento del interesado.
  • Destinatarios : Hetzner Online GmbH.
  • Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
  • Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]

Información adicional: Encontrarás más información en la política de privacidad.