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. Saludos tengo un gran problema y es que debo hacer que un Userform de un libro1 con un spreadsheet en este Userform me envie unas filas a otro libro(libro 2).. por ahora es solo esto. Tengo el spreadsheet ya montado pero aun no el codigo porque no se que poner. adjunto el libro uno con el formulario y el spreadsheet en él y el libro 2 el cual recibira los datos organizados que esten dentro del spreadsheet. advierto que se podrian necesitar librerias que permitan mostrar el spreadsheet en el userform, aun no lo se, ya que desde el equipo de la empresa lo puedo ver pero desde el de mi casa no(supongo que es por eso) gracias Desktop.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 713 visitas
  2. Started by Colonques,

    Hola amigos una aplicación hecha en Excel 2007, con 12 formularios, una interfaz con todas las hojas ocultas y extenso código después de estar funcionando 5 años en Excel 2007 si error. Al abrirla con Excel 2013 todo funciona bien y no da ningún error, pero al cerrar un formulario con el código al final SaveWorkbook para que guarde cambios , da un error en el evento MouseMove de una etiqueta (label) del interfaz. Una etiqueta que al aparecer al pasar el puntero del ratón encima y hacer click, se visualiza un Formulario. El error es: Error en tiempo de ejecución: Error definido por el objeto. Mi pregunta es por qué vuelca un error en un objeto que no tiene nada que ve…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 732 visitas
  3. Started by angelorum,

    Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.1k visitas
  4. lo que quiero que me ayuden a hacer es que deacuerdo al archivo de que mando, del contenido de la celda A2 (hoja 1) me busque el contenido de la celda A2 (hoja 2) y el resultado lo ponga en la celda C2 (hoja 1) y lo mismo con la celda B2(hoja 1), eso digamos es facil con un simple =buscarv, pero al revisar el "titulo" donde dice TOTAL (si lo hago con el buscarv) solo me va a poner el primer argumento que busca esdecir me va a poner "5" pero si yo tengo "15" como puedo hacer yo para que me ponga el total de las dos celdas tanto el total de la celdas como el "numero" espero y me entiendan, pero es que no se como explicalo bien dejo el archivo de antemano muchas gracias eje…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 665 visitas
  5. Started by dff1403,

    Buenas Dias amigos, Pues ahora vengo con otro temita, lo que sucede es que en el archivo que adjunto, tengo un registro para pedidos, el cual al ingresar no hay problema el tema es al actualizar. En la pestaña CANTIDAD DE OC se debe mostrar la cantidad total de ordenes, que claro, al momento de registrar la primera entrada si se muestra, pero da el caso que al momento que Debo complementar mas información de un pedido (Userform4), y se guarda, resulta que la cantidad antes mostrada se reduce, osea que si modifico/actualizo todas las ordenes queda en “cero”, alguien podría apoyarme con esto??? para que asi sea que actualice se mantenga la misma cantidad? Muchas Gracias …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 801 visitas
  6. Started by cariberecord,

    Saludos, intento simplemente crear un macro para copiar y pegar celdas de dos hojas diferentes desde la ultima celda vacia.. "es mi primer macro" Sub nuevos() Dim ultimafila As Long ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 Sheets("FORMATO").Range("K13").Copy Sheets("Hoja2").Cells(ultimafila, 2).Select en esta linea presenta el error Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FORMATO").Range("K15").Copy Sheets("Hoja2").Cells(ultimafila, 4).Select Selection.PasteSpecial Paste:=xlPa…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 4k visitas
  7. Started by aulio,

    Estimadísimos amigos, este seria mi primer post, luego de meses de sacar soluciones, hoy me veo obligado a molestarlos...les cuento, estoy confeccionando un sistemita de controlde facturas y cotizaciones para el negocio de un amigo, pero al ejecutar una macro, en ocasiones me arroja el error de comando de seleccion multiple, el problema es que incluso al seleccionar solo 1 celda copiada en libro2 y pegarla en libro1 me arroja dicho error...no logro entender el por que de esto...les agradeceria si me pudiesen ayudar con esto. Aprovecho de subir los archivos por si los quieren ver, el problema esta en la Hoja Facturas del libro Formulario en el Boton Ver pagos Formulario…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 4.1k visitas
  8. Hola, necesito ayuda, con el boton de guardar de este userform no consigo que guarde desde el listbox a la hoja 1 como se puede mostrar en el archivo que subo y tambien que cuando agrego un articulo se borre automaticamente y no quede pegado para que no siga agregando, gracias [ATTACH]40623.vB[/ATTACH] libro1.zip

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2.3k visitas
  9. Hola, tengo una tabla en la quiero que se impriman solo aquellas filas en las que el valor de la columna A no esté vacia y también aquellas en que la columna D esté llena. Gracias a una macro que encontré en el foro consigo que se impriman las filas que cumplen la primera condición, que la columna A no esté vacia, pero no consigo hacer que también se impriman aquellas filas con la columna D llena. Os adjunto la macro que encontré para imprimir con una condición de celda llena y un modelo de la tabla que manejo. Mucha gracias un saludo a este gran foro pruebas_macro_imprimir.xls LUISFECAB - luisfichelson_Imprimir Factura de servicios.zip

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2.5k visitas
  10. Hola, si me pueden ayudar para crear una macro que lea los valores de la segunda columna (B1:B"X") en Excel y separe en otra hoja los valores que encontró repetidos. Me piden un informe de cuáles son los valores que están repetidos en una BD muy extensa. Les agradecería su colaboración.

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.4k visitas
  11. Started by Jhonyx7,

    Hola. Nos ha surgido un problema. Un compañero de trabajo que ya no está, confeccionó una hoja de Excel para llevar un control del mantenimiento de vehículos. Dominaba bastante la ofimática y realizó la misma con varias macros. Yo he tenido que adaptarla, eliminando previamente las macros, de las cuales no tenía la clave, siguiendo algunos tutoriales, pero necesito ayuda para poder terminarla, si puede ser sin necesidad de macros, pues no las domino. Seguramente existe la manera. El problema que quiero solucionar es, que una vez rellenado el formulario con la fecha correspondiente (Hoja “Vehículos”), los datos se introduzcan en la Hoja “Esta1” y se queden ya grabados. E…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 630 visitas
  12. Started by glormos,

    Oculte el libro tratando de cargar un formulario y ahora no lo puedo abrir... Se que hice una tonteria pero necesito ver el libro ayuda

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 773 visitas
  13. Hola, Antes de nada saludar a todos los usuarios. Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar. Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3. Este es mi código: Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim TablaDinamica As PivotTable Const Filtro1 As String = "Trimestre" Appli…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.6k visitas
  14. Started by Colonques,

    Hola amigos en el fichero .xlsm adjunto podéis que creé en Excel 2007 una aplicación en Excel con una interfaz a base de etiquetas (label) ocultas y visibles para cuando hacer click en ellas visualizar los formularios del Proyecto. Para lograr pantalla completa, ya que la Cinta de Opciones no me ha gustado nunca, el método Fullscreen me ha ido muy bien, pues es una ocultación "no violenta", pues haciendo doble click arriba en la ventana aparace otra vez la cinta. El problema ha venido cuando se ha cambiado a Office 2013 y en Excel 2013 el código corre sin dificultad pero en FullScreen y DisplayFormulabar=false, no se puede escribir en las celdas en otro proyecto en el …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 725 visitas
  15. Buenas tardes : Esta es la cuestión a ver si la explico bien , como lo puedo hacer ???? 1.Archivo excel con tres columnas A:Referencia producto ( Siempre sera el mismo) B:Descripcion del producto C: Precio, Cada referencia del producto corresponde a un fabricante y el problema es que no me mandan la columna con el fabricante para poder hacer una tabla dinamica con el fabricante para hacer listas de precios en libros aparte por fabricante para presentar al cliente, son mas de 2.000 códigos , lo que quiero conseguir es : 1.Asignar a cada referencia su fabricante : por ejemplo 880000 = Fabricas Pérez ( puede haber 100 ref.de fábricas Pére z )y se muestran Fabricas Pérez …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 731 visitas
  16. Started by joseapm6260,

    Estoy intentando que una macro se active en una fecha determinada cada año pero no consigo completar le parte que resalto en rojo. Sub DESCATALOGAR() Call CONEXIONBBDD Dim sqlX As String Set rstX = New ADODB.Recordset Dim sqlY As String Set rstY = New ADODB.Recordset 'Dim curso As Date If Day(Date) = 9 And Month(Date) = 9 Then 'On Error Resume Next sqlX = "UPDATE LIBROS SET LIBROS.Descatalogado = True;" With rstX .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sqlX, cnn, , , adCmdText End With ' curso = Year(Date) & "/" & Right(Year(Date) + 1, 2) sqlY = "UPDA…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.3k visitas
  17. Started by seron87,

    Hola muy buenas queria saber si se podria hacer lo siguiente, adjunto archivos; listaprecios.txt es archivo que bajo proveedor tal cual Lo paso a excell y se queda en listaprecios.xls Luego realizo unas modificaciones y se queda en nuevo hoja de calculo(2) En listaprecios.xls aparecen los articulos separados por las categorias a la que pertenecen cada uno, estos aparecen con ...... Yo se quitar esos ...... y dejarlo sin ellos pero necesito que las categorias aparezcan en un cuadro a lado de cada articulo en nuevo hoja de calculo 2 en vez de separado asi como aparece en listaprecios.xls He tenido que quitar articulos en realidad para que cupiese el .rar aqui. Se…

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 932 visitas
  18. Started by 2easyd,

    Insertar filas segun el numero en las celdas SOLUCIONADO Buen día quisiera ver si me podrían apoyar con este tema Tengo un archivo en excel de 5000 Filas muy parecido al que adjunto solo que por razones de seguridad no adjunto el original, el punto es que quiero insertar 1 fila debajo de cada celda en la que me dice el total de cada proveedor mediante una macro, el numero de celdas a insertar lo agregue en la columna D con una formula, Espero me puedan apoyar ya que llevo varios dias buscando y no encuentro lo que necesito Gracias y Saludos!! Insertar filas.xls

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 5.6k visitas
  19. Started by dviteri,

    Hola a todos soy nuevo en esto, así que espero comprendan en el caso de tener una equivocación en mi consulta. Tengo un libro de origen (estudio de mercado quito) donde al momento de hacer click en un botón (zona sur), primero quiero que me borre los datos que exista en la hoja "base" y luego me copie todos los datos de otro libro incluyendo fórmulas y gráficos estadísticos (base de estudio de mercado/sur) sin necesidad de que el mismo se encuentre abierto. La verdad es que soy nuevo en esto de las macros he intentado realizarlo con grabar macros y no he tenido éxito alguno. Espero me puedan ayudar, gracias. BASE ESTUDIO DE MERCADO QUITO 2.zip ESTUDIO DE MERCADO QUIT…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 869 visitas
  20. Started by jrivera,

    Buenas amigos del foro Estuve revisando un tema solucionado que lo aplique en mi necesidad, pero no me sale el resultado. Espero que alguien de ustedes me brinden su valioso apoyo. Lo que necesito es que el archivo Excel que el adjunto se convertido en PDF y luego enviado por Outlook o gmail a varios destinatarios. Les agradezco su valiosa ayuda Chile1.zip

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 938 visitas
  21. saludos como el titulo lo dice, deseo saber como establecer el encabezado de un listbox pero personalizando los nombre de cada columna diferente a los él extrae automaticamente al importar los datos o agregar un titulo a las columnas de un listbox usando codigo vba o si no quedo clara la pregunta: ¿Es posible configurar los encabezados en un listbox de varias columnas sin usar un rango de hoja de cálculo como la fuente.? gracias

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 4.7k visitas
  22. Buenas tengo el siguiente codigo: Private Sub CommandButton9_Click() Dim carac As String carac = ActiveSheet.Range("G5").Value ActiveSheet.Range("c14").Value = Len(carac) ActiveSheet.Range("c15").Value = Left(carac, 1) End Sub [/CODE] Con este codigo en la celda C14 obtengo el numero de caracteres de la celda G5 y el la celda C15 obtengo el primer caracter de la celda G5. Si en la celda G5 el valor es 845, tendre en la celda C14 el valor de 3 y en la celda C15 el valor 8, lo que quiero es con codigo que emplee el valor de la celda C15 (es decir el 8) y le añada tantos ceros como el valor de la celda C14 (es decir 3). Con este valor tendria un resulta…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.6k visitas
  23. Started by cDk-nuke,

    Estimados! recurro nuevamente a ustedes, he estado averiguando y no he dado en el clavo, ya que la gran mayoria de usos de combobox son a traves de las propiedades del rango, y en mi caso no me sirve. en el adjunto subo un ejemplo de lo que quiero realizar, en donde básicamente en el formulario debo seleccionar un cliente y que en el segundo combobox(seleccione fecha) me muestre solo las fechas asociadas al cliente y en el textbox me muestre su resultado. y con el boton actualizar poder actualizar o cambiar este resultado. explico nuevamente. selecciono cliente1, combobox(seleccione fecha) me muestra la fecha de hoy y la de antes de ayer(en el caso de que tenga esos di…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.1k visitas
  24. Buenos dias Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir. Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo: Private Sub CommandButton8_Click() On Error GoTo error1 Dim nombrearchivo As String nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value &…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 2.3k visitas
  25. Started by viejo,

    buen dia tengan, de nuevo por estos lados con la interrogante de como puedo usar toda lo hoja de un libro ya que me da error el formulario cuando tengo demasiados datos (arriba de los 1000). La manera y forma en que esta hecho el formulario me gusta pero no logro encontrar el error de ¿porque no puedo usar toda la hoja?, principalmente cuando le doy buscar un dato, me podrian ayudar a poder utilizar bien este formulario para poder meterle la cantidad de datos que contiene la hoja (xfd por 1048576). espero sus amables aportaciones y de antemano gracias. todalahojaconlistbox.rar

    • 0

      Reacciones de usuarios

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