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 jesus241190,

    Hola buen día. Disculpen tengo un problema, lo eh intentado resolver con fórmulas pero las verdad no eh podido, se ve muy mal con fórmulas, lo que quiero hacer es que la hoja llamada "Basa de datos", me pase los datos a la hoja llamada "Pagos realizados", pero solo me pase las celdas que están en color verde en la hoja "Base de datos", que me pasara solo el Nombre, Fecha, Seudonimo, Producto, Método o Forma de pago, Costo de Producto y Costo de envió. La verdad ya no se como hacerlo con macro, ojala me puedan orientar un poco, gracias por su ayuda. Saludos. Control Perfecto prueba 3.11.rar

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.6k visitas
  2. Started by jorbarq,

    Muy buenos días tengan todos: El siguiente código esta enlazado a un boton, que me transfiere los datos de una listbox a otra ( de LSTART a LSTARTFIN). Ambas listas tienen tres columnas con datos de productos. Lo que necesito es Que la primera y segunda columna de LSTART se transfieran a la segunda y tercera columna de LSTARTFIN. Y si fuera posible (sé que si lo es), agregar un número consecutivo en la primera columna de LSTARTFIN. Private Sub BTNAGRART_Click() If LSTART.ListCount <> 0 Then LSTARTFIN.AddItem LSTART.List(LSTART.ListIndex, 0) x = LSTARTFIN.ListCount - 1 …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2.9k visitas
  3. Started by AlbertoVV,

    Hola, Tengo una matriz y lo que deseo es unir mediante macro con un color en la celda dos puntos dados de la misma matriz 4 1 2 3 4 5 6 7 8 1 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 2 3 0 0 0 0 0 0 0 0 3 3 4 0 0 0 0 0 0 0 0 4 2 5 0 0 0 0 0 0 0 0 5 6 0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 0 0 0 7 8 0 0 0 0 0 0 0 0 8 1 2 3 4 5 6 7 8 1 ejemplo introduciento 4 datos como: 3 ( se refiere a la columna de la Izq) 2 ( se refiera a la columna de la Izq del bloque 3) 1 ( se refiera a la fila de abajo) 6 ( se refiera a la fila de abajo del bloque del 1 ) * = Celda coloreada 0 = celda vacia muchas gracias

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.7k visitas
  4. Started by luwobe,

    Hola podrian ayudarme a crear una alarma en la pantalla con sonido el cual me indique un mensaje en el que hay que hacer "cambios de parametros" y que si no le doy aceptar no deje de salir dicha alarma. La hora va a estar indicada en la celda A1 y la otra en la celda A2. mensaje.xls

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 3.6k visitas
  5. Hola amigos, trabajo normalmente con grandes ficheros de datos de federados y me van actualizando los excel cada semana, pero en vez de ponerme solo los datos nuevos incluyen todos desde inicio junto con los nuevos federados. Necesito comparar los datos de dos hojas y que en una tercera me saque solamente los diferentes que son con los que trabajaria tengo conocimientos muy basicos de excel, pero bueno estoy en ello, jejeje. Cualquier ayuda os lo agradezco saludos

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.5k visitas
  6. Hola, Gracias a exceloy he logrado lo adjunto. Mi problema es que el AREA la cual marque en uno de los lados con color, deb repetirse hacia abajo , restringuiendo a el usuario ** no modificar lo escrito por usuariio* Finalmente , ver la factibilidad de insertar imagenes en los cuadros al pinchar el area indicada, al final de la hoja. Gracias prueba2.xls

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 999 visitas
  7. Buenas tardes a todos.. MI duda ahora es. como poder agregar columnas con un macro, después de un texto en una celda adjunto la hoja donde esta lo que se quiere hacer y lo el original es agregar 2 columnas en blanco o mas dependiendo después de la celda con contenido "Total" agradezco desde ya el tiempo dedicado.. Ayuda.xls

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.3k visitas
  8. Started by enebat,

    Buscando solución a mi problema he llegado hasta vosotros, así que una vez presentada paso a preguntar... Estoy haciendo una hoja muy sencilla para las entradas y salidas de unos productos, el problema es que no sé como seguir... Imagino que lo que me queda es lo verdaderamente dificil (para mí) pero no sé cual es el siguiente paso, es decir, no se que es lo que tengo que intentar aprender para conseguir que funcione. Si pudierais remitirme a algunos tutoriales o darme indicaciones os lo agradecería. No pretendo que me lo hagais, quiero aprender (cuando tire la toalla ya suplicaré...:orange:) Gracias. [ATTACH]29332.vB[/ATTACH] Entradas almacén.xls

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 2.7k visitas
  9. Started by saraiba,

    Hola, Tengo una macro en la que hay el siguiente código Range("Z60") = InputBox("fecha 1º vto.") Al ejecutar la macro, cuando me pregunta, escribo por ejemplo 1/5 para que salga el dia 01-may-2012 lo que escribe es 05-ene-2012. O lo que es lo mismo entiende que primero escribo el mes y después el día. Mi pregunta es la siguiente: ¿Como modifico el código para que ponga bien la fecha? ya que el formato de la celda Z60 está correcto (dd-mmm-aa). Como siempre gracias de antemano.

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 6.8k visitas
  10. Started by Yu-K,

    Buenas, les escribo por que queria saber si alguno me podia ayudar con el siguiente problema: Tengo en una macros dentro de varias cosas q hace usar los datos de una hoja e ir a buscarlos en otra y en el lugar que lo encuentro pegar unos datos que se encuentran en la primera hoja con cierto criterio, me anda bien el programa pero el problema es que cuando el dato de la primera hoja no esta en la segunda no continua en el ciclo for y me manda a depurar, cuando utilizo la sentencia on error goto me pasa que se sale del ciclo for, lo que quiero es que si no lo encuentra siga dentro del ciclo for, el sistema de buscador es similar a este Cells.Find(What:=aux, After:=ActiveC…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.7k visitas
  11. Muy buenos dias todos..... Me inscribi a este foro por la necesidad que tengo con lo programacion en excel con macros y BV y me parece muy interesante, se que aqui me van ayudar Mi siguiente inconveniente es: tengo un libro excel el cual cuenta con 7 hojas, donde necesito gurdar una hoja especifica en una direccion variable el cual me gustaria yo especificar al momento de guardarla y necesito que esta hoja se guarde con la fecha que presenta mi sistema (mi ordenador), esto por medio de un boton de formulario o un boton de control

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.2k visitas
  12. Started by Jose BN,

    Buen día, Amigos quisiera solicitar la ayuda con el siguiente problema que tengo con un combobox en el cual estoy intentando que cuan el usuario seleccione una opción este me cargue los valores en estas celdas B12:E38, dichos valores a cargar los he colocado en las celdas S1 y W1 respectivamente(resaltado en amariilo y verde). La idea es que si el usuario selecciona "Dia Par" cargue los valores que corresponden a este opción, adicionalmente me gustaria si el codigo permitiera colocar el usuario(application.Username) en la celdas J12:J38. Agradezco si esta dentro de la volunta de alguno ayudarme a solucionar mi problema. Saludes, Jose Libro33.xls

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.2k visitas
  13. Hola a todos: Estoy trabajando en un pequeño proyecto en la que por medio de una macro quiero traer los datos de una hoja llamado articulos. Ejemplo: Que me desgloce todos los codigos existentes por familia. Pero que la familia este unificada. es decir si en mi lista de articulos existen 20 familias diferentes las traiga todas. Adjunto mi ejemplo y un pequeño avanze que con macro de autofiltro. Pero me trae una sola familia. Lo que quiero es que me traiga todas las existentes Vasos Platos Cubiertos y con cada uno sus codigos. Gracias MP Inventariomo.xls

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.5k visitas
  14. Hola Amigos, Tengo un libro con aproximadamente 100 nombres, que tengo que transferir a unos 90 libros excel ya realizados, pero que no tienen nombres. He hecho esta macro, pero me dá errores con los ..!Print_Area y ..!FilterDatabase. Como sería posible limpiar los libros de estos tipos de nombres? Sub copiar_nombres() ' copia los nombres de libro_origen a libro_destino Dim n As Name Dim libro_origen As Workbook Dim libro_destino As Workbook Set libro_origen = Workbooks("libro con nombres.xls") Set libro_destino = Workbooks("libro sin nombres.xls") For Each n In libro_origen.Names libro_destino.Names.Add n.Name, n.RefersTo …

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1k visitas
  15. buenas noches , me gustaria saber si alguno de ustedes me puede ayudar con el siguiente caso: necesito que desde un libro de excel poder copiar los datos de algunas celdas seleccionadas en otro libro ejemplo : seleccionar a1-a2-a3 etc y que al precionar un boton en el otro libro me copie los datos de estas celdas seleccionadas . seria importante aclarar que dichas celdas cambiarian a diario de antemano agradezco cualquier ayuda que me puedan prestar , y espero puedan entender el objetivo del caso que estoy planteando , mil gracias

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2.8k visitas
  16. Started by Jhoann,

    buenas noches , me gustaria saber si muy amablemente alguno de ustedes me pudiera colaborar indicandome , como puedo asociar un codigo a un precio , es decir , que al ingresar un codigo en una celda este me muestre en otra celda el valor de un articulo correspondiente a este codigo les agradezco de antemano por su amable colaboracion y asi mismo ofrezco disculpa si hay algun error en la redaccion del tema . quedo atento a sus respuestas , mil gracias

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.2k visitas
  17. Hola buenas tardes. Si es posible, necesito una mano con un tema. Tengo un archivo en Excel con 2 hojas: La hoja base de datos la utilizo para cargar 3 cosas: 1) nombre, 2) desempeño laboral, y 3) potencial de una persona. En la otra hoja tengo una matriz, y lo que deseo hacer es insertar el nombre y apellido de la persona en el cuadrante correspondiente. Ej Ariel y Javier deberían encontrarse en la celda “E3”, Pedro en “D4”y Juan en “E5”. Hay alguna manera de desarrollar una formula o macro para esta actividad, teniendo en cuenta que la lista de gente puede ir creciendo y toda esa información luego debería ir a parar a la matriz en el cuadrante correspondiente?. Ad…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.5k visitas
  18. Estimados, Junto con saludarlos, agradezco de antemano su tiempo y colaboración en un tema que ya me ha sacado mas de una cana y que me ha motivado a aprender sobre excel, llegar a su foro, he buscado en el foro, pero aun no encuentros la solución... Les cuento el problema: Tengo que generar una planilla o plantilla de cotización, donde varían los Entregables según cada cotización. Los Entregables son en principio iguales para cada cotización, y a traves de un proceso de selección por casillas de verificación u otro sistema similar, selecciono los entregables que requiero para la cotización que efectuare. el problema es que necesito que esos entregables seleccionados se…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 5.2k visitas
  19. Me ha ocurrido algo muy raro, en las hojas excel que habro las columnas van numeradas 1, 2, 3 así sucesivamente y las columnas igual 1, 2, 3 así sucesivamente, pero hasta hace unos días las filas estaban numeradas con a, b, c .... Como puedo cambiarlo. Envío adjunto. Gracias Pitidos.xls

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 4k visitas
  20. Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo: Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA") Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO") End Sub en el otro caso estoy cargando los valores mediante la utilidad RowSource. El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funci…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.7k visitas
  21. saludos....... hola soy nuevo por lo q de antemano me disculp si viola alguna norma o regla....... bueno quisiera q me ayuden con esto, adjunto un archivo en donde nececito eliminar la fila donde el valor de un celda es cero. Es decir necesito eliminar toda la fila a partir del valor 0 de la columna VALOR EMITIDO, osea tengo en la celda NO15=0 (rojo)y deseo un macro q elimine la fila 15 (en amarillo), pero que busque en todo el documento y elimine todas las fias en donde el valor de la celda de columna NO sea = 0, Esta es una parte del docuemtno espero q les sirva y me puedan ayudar muchas gracias anticipadas datos ejemplo.rar

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 2.6k visitas
  22. hola quisiera saber si mediante este ejemplo de datos adjuntos en esta hoja excel se puede reemplazar los datos en forma masiva mediante alguna formula por ejemplo: carpeta cualquiera que contiene archivos de fotos enumeradas asi, (101.JPG, 102.jpg, 103.jpg, 105.jpg. etc ) y que mediante una accion se pueda cambiar quede asi 7.991.437-k.jpg en el fondo quiero renombrar una gran cantidad de archivos cambiandole el numero por el rut (numero unico de carne para los chilenos). la esencia de mi consulta es poderle poner el rut a cada foto que se encuentra en una carpeta mediante una formula que me permita llevarme los datos que se encuentra en una hoja excel. gracias por …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 3k visitas
  23. Hola a todos, Tengo un problema con VBA. He creado una macro que me genera un gráfico de tipo Chart (xlLineMarkers). Cuando asigno los valores a los valores del eje X con una variable de tipo array (de string) funciona. Pero cuando quiero asignar los valores del eje y con otra variable de tipo array (de double) me da un error. A qué puede ser debido? Dim bays_arr() as String Dim ratios_arr() as double ReDim bays_arr(1 to 18) 'Los valores son: (R03, R04, R05.......R19, R20) ReDim ratios_arr(1 to 18) ActiveChart.ChartType = xlLineMarkers ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).Name = "=""Skin""" …

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 3k visitas
  24. Les agradeceria mucho si me ayudasen a facilitar una actividad y estoy seguro que tambien algnos usuarios tienen el mismo o similar actividad, resulta que necesito trasponer de Columnas a filas pero a diferencia de anteriores soluciones que se dieron esta es con 2 o mas celdas. Para ejemplo un boton. Progresiva Distancia Cota 129+000 0.00 200 1.60 210 3.50 250 5.00 240 1.60 265 3.50 265 5.00 321 En si tendria que queda…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.2k visitas
  25. Started by eugesadir,

    hola tengo un problema, tengo datos desde A4:j4 y quiero que al presionar el boton, por medio de macro me copie los datos ingresados en las celdas mensionadas en una ubicacion mas abajo por ejemplo A9:J9. El problema que se me presenta es que en lugar de copiar los datos en forma horizontal (es decir de A9:J9), los copia de forma vertical (desde A9 para abajo). Este es el codigo, gracias Private Sub CommandButton1_Click() Range("A4").Select ActiveSheet.Unprotect Range("A4:J4").Select Selection.Copy Range("A8").Select '' [A65536].End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ …

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 2k 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.