Hola: Os explico mis necesidades, a ver que se puede hacer. Tengo tres maquinas a las que me puedo conectar por tres redes locales independientes entre si (que ademas son lentas). Tienen unos datos que me interesa comparar. No es conveniente abrir los archivos mientras trabaja pues causa errores en el proceso. Si intento importar datos directamente desde su ubicación no me deja. Lo que hago ahora es tener un hipervínculo a la carpeta en red, otro al destino y abrirlos para copiar los archivos a pico y pala arrastrándolo. Son ciento ochenta archivos de texto en total pero con la extensión entre .C16 y .C24. Como la intranet es lenta seria fantástico que solo copiase…

Buenas? Tengo una duda, no se si si hay alguna forma de hacerlo? Pongo en situación, un formulario con textbox grande con la propiedad multilinea nada mas inicializarse se carga con un enorme texto desde una única celda de mi hoja de excel apareciendo la barra de desplazamiento en el textbox, y para desplazarse debes seleccionar esa barra y mover el rato arriba o abajo para ver todo el contenido. ¿Hay alguna forma de qeu pille el desplazamiento con la rueda del ratón ? con los listbox y los combobox no tengo problemas para que al rueda del raton se desplace pero con el recuadro del textbox no consigo que la barra se mueva?

Hola a todos, hoy me incoporado a esta comunidad con mucha alegria... he revisado los temas ya tratados y no he encontrado el problema que necesito resolver Tengo un formulario de pedidos de suministros, el cual en un costado permite buscar los productos pre cargados en el listbox llamado "LBProductos", filtrandolos. No encuentro la forma de que al hacer click sobre un producto me agregue al otro listbox de pedidos ("LBPedidos"), ya que este puede ser solo un producto o varios.... me podrian orientar? muchisimas gracias les comparto el archivo suministros.xlsm

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Hola buen día, disculpen, tengo una macro la cual son 2 combo box y segun lo que se escoja en la que se llama filtro te arrojara valores en la llamada "Valor", lo que no puedo hacer es que en el combo box me arroje todos los valores que estan segun el filtro y valor seleccionado, por ejemplo si escogieron "carrerra" y luego "II", que me arroje todas los nombre de las personas en el listbox que estudian II, la verdad es que no se como hacerle, gracias por todo, saludos. Filtros.rar

Buenas Tardes. Tengo este codigo: Private Sub ListBox1_Change() With Sheets("Hoja1") Set codi = .Columns("A").Find(What:=Me.ListBox1, LookIn:=xlValues) If codi Is Nothing Then MsgBox "Codigo no existe!": Me.ListBox1.SetFocus: Exit Sub For i = 2 To 12 Me.Controls("Textbox" & i) = .Cells(codi.Row, i) Next End With Set codi = Nothing Dim nsp As String Dim hoja As Worksheet nsp = ListBox1.Value For Each hoja In Worksheets ' Busca si existe una hoja con el nombre del codigo de cliente If nsp = hoja.Name Then Dim rw As String rw = ListBox1.Value & "!A:A" ComboBox1.RowSou…

Hola! He intentado realizar una consulta a la base de datos como lo muestra la macro de éste archivo como se describe en ésta página, sin embargo el sistema me muestra el mensaje de error "Compilation error User defined type not defined". ¿Podrían ayudarme a solucionar ésto? ¡Muchas gracias!

hola a todos soy nueva en este foro, soy estudiante y necesito utilizar macros. estoy ejecutando macro y me he encontado con dos problemas. primero necesito exportar de un excel a otro datos especifos.... el excel de origen es variable ( pero tengo el inicio y la columna de fin ( no fila) y el de destino es el que se va actualizando con este otro excel y necesito agregarlo al final de este......... segundo problema mediante un texbox consulto un grupo con el cual debo buscar todos aquellos proyectos de ese grupo debo entregar los numeros de flujo y quiero colocarlos en una listbox o combobox espero me puedan ayudar, muchas gracias de antemano ! saludos ! no me d…

Hola, Necesito generar una macro para generar turnos de empleados en base a los siguientes criterios: - Horario 07:00-15:00 · Establecer 30 minutos de Descanso: tienen que asignarse habiendo transcurrido 2 horas desde las 07:00 y 1 hora y media antes de las 15:00 · El total de descansos a la vez no puede superar el 12% del total de empleados en turno. No sé si alguien puediera echarme una mano o si existe alguna macro que pueda servirme de base para ir modificando algunos parámetros de la misma. Gracias.

Multiplicar y Dividir celdas e Imprimir solo algunas columnas Estimados, quiero pedirles la siguiente ayuda. tengo un Formulario de consulta en el cual necesito modificar la Formula destacada con amarillo, para que multiplique la Columna “Cantidad” * ” Columna Valor” y luego dividir por la Columna “Gasto Promedio” With Sheets("hoja3") ' Tomamos última fila usada en hoja 2 para crear el rango a cargar i = .Range("A" & Rows.Count).End(xlUp).Row If i < 2 Then i = 2 'colocamos subtotal por linea .Range("H1") = "Km/Litro" For x = 2 To i .Range("H" & x) = WorksheetFunction.Sum(.Range("F" & x…

Buenas noches!!! He creado una función, llamada AbreUrlCopiaAFicheroSinReintentos, que se conecta a internet mediante la función URLDOWNLOADTOFILE y descarga el codigo html a un archivo en mi ordenador y luego lo borra. En mi archivo original por ejemplo puedo tener 2000 direcciones web. Lo que hago es llamar con la macro1 a la función AbreUrlCopiaAFicheroSinReintentos y me descargo en mi hoja excel ciertos parametros del código html. El problema lo estoy teniendo cuando me encuentro con direcciones que tienen un bucle de redireccionamiento. En ese momento la hoja Excel se me queda permanentemente bloqueada y solo la puedo cerrar a lo bestia con Ctrl+alt+supr. Un ej…

Estimado Expertos. Nuevamente solicitando vuestra ayuda, el libro adjunto lo utilizaba para control de un pequeño almacen, funcionaba bien con 100 filas, pero cuando agregue mas filas (12000), demora demasiado en buscar los datos. Esto lo podran comprobar al ingresar en la Hoja Operaciones, opcion "control de almacen", al intentar buscar los datos en el combobox, notaran que la macro realiza la busqueda, demorando demasiado tiempo. Por favor, agradecere vuestro apoyo, para solucionar este problema. Atte. Jmollan PD: Tuve que borrar filas, porque el archivo pesaba demasiado. CONTROL DE ALMACEN-FORO.zip

Estoy tratando de crear una macro para ir almacenando datos en otro libro de excel sin sobreescribir los datos. Estoy utilizando esta rutina y no lo logro. No se cual es el error. Sub CopiarCeldas() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open("C:\JORGE\PEDIDOS DE QUIMICOS\DATOS.xlsx") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Analysis") Set wsDesti…

Que tal amigos, soy nuevo en este foro pero quisiera pedir la ayuda de alguien, encontre en este foro unas aplicaciones para crear registros desde excel a access y lo quiero ocupar para registrar clientes el problema es que puede crear registros duplicados ¿hay alguna forma de que me indique cuando un registro es duplicado? asi mismo quisiera saber como traer un registro desde access a mi hoja de excel siempre desde el mismo formulario. espero haber sido claro Saludos desde Guatemala MSACCESS_ADO.zip

Buen dia; En una hoja tengo desde el rango A2 hasta A100 nombres de Maquinarias y del rango B1 hasta AF1 fecha del 01-ene-2013 al 31-ene-2013. La intencion es que mediante un userform seleccionando la fecha con un DTPicker, en un ComboBox seleccionar la maquina y en un Texbox1 escribir un valor x. seleccionar celda intersectada por ambos valores buscados y colorcar el dato introducido en el Texbox 1. He intentado con el metodo Cells.Find pero no obtengo resultado. Espero Ayuda de su parte. Saludos...

Buenas noches a todos Necesito ayuda para insertar en una determinada tabla de una serie de ellas alineadas verticalmente la correspondiente fila en blanco para añadir datos en la tabla que corresponda. Cuando la tabla es única, no tengo problema. En el adjunto lo explico. Gracias. Un saludo …

Buenas tardes, Estoy elaborando una macro para enviar por Outlook un rango de celdas de una hoja excel, pero necesito que en el cuerpo del mensaje Outlook se mantenga el mismo formato que tengo configurado en la hoja Excel. Adjunto archivo. Concretamente, sería el rango de celdas D11:K15 de la hoja AVIONES. Por favor, si pudierais echarme una mano con esta macro os estaría muy agradecido. Gracias Saludos Macro correo outlook1.xlsm

Hola necesito intertar filas automaticamente en excel despues de terminar de rellenar una primera columna,no quisiera perder los enlaces a las demas hojas libro mayor y balance de sumas y saldo y plan general contable. el archivo no lo pude subir porque es de 258kb o algo asi. pero bueno intento explicarlo.el formato del libro diario es de la siguiente manera. nº asiento...fecha....grupo...subgrupo...subcuenta.....concepto....debe....haber 1...............13-5....... 4....... 43.............430.............clientes.....300 2................14-5...... 4........40.............400.............proveedor.............300 ahora explico: -nº de asiento es aut…

Hola de nuevo. Llevo varios dias trabajando con una macro de lo que veo por ahi y he conseguido que me cree el archivo tal como quiero, pero me da un error: No se puede encontrar el archivo. Compruebe que su ruta de acceso y nombre sean correctos. Sub GeneraInformePDF()'Da nombre al archivoWorksheets("Hoja Nueva").SelectDim Nombrearchivo As StringNombrearchivo = Range("bm2")' Macro que guarda las hojas en PDFSheets("Hoja Nueva").ActivateActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\Documents and Settings\LAMOGA\Escritorio\" & Nombrearchivo & ".pdf" _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfte…

Muy buenas a todos mi pregunta como podria (si es que se puede) en una agenda automatizada con VBA Excel cuando pida que me muestre los datos de una persona me mostrara en algun extremo, la foto de la persona seleccionada la cual ( la foto) tengo guardada en una carpeta. Sin mas me despido esperando esten bien .......

Buenas, me ha servido mucho esta pagina, les comento que he logrado desarrollar un proyecto para el cual he logrado que dado un formulario pueda cargar una planilla para utilizarla como base de datos, poder imprimir el formulario, dado el boton cancelar que me limpie el formulario, pero lo que no puedo lograr es que mediante el boton buscar dado un dato me vuelva a cargar el formulario con el que trabaje, dejo el archivo para quien pueda me brinde una mano, desde ya muchas gracias y espero que se entienda lo que pido. La busqueda podria estar dada por responsable o por nombre de la empresa y que me permita elegir cual formulario imprimir.- Microsoft SkyDrive - Access fil…

Hola Buenas Noches, Tengo un problema ya que estoy haciendo scraping a una página la cuál contiene sólo eventos Class para descargar la información y no me permite descargar nada queda la hoja en blanco. He probado con todos los class y aún así no puedo obtener la descripción y URL de los productos que es lo que ando buscando. Alguien me podría ayudar a obtener dicha información. Adjunto el archivo. Muchas Gracias.Prueba.xlsm Prueba.xlsm

Hola a todos encontre este ejemplo en internet, pero no actualiza el cuadro. quiero que mediante el combo yo seleccione y automaticamente actualice la tabla dinamica. adjnuto el excel para que me puedan ayudar. gracias comboTablaDinamica.zip

Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores 1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro) 2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo 'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea 'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto... la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir …

Estimados foreros, Adjunto un archivo de ejemplo que me genera error con Excel 2010 en Windows 7. Para reproducir el error: Abrir el libro adjunto en Excel 2010 con Windows 7. Hacer click en la imagen Aceptar el mensaje informativo. Cerrar el libro sin guardarlo. ATENCIÓN: No cerrar Excel. Repetir los pasos 1 y 2 Se produce el error la segunda vez que se llama al procedimiento: Set objChart = .ChartObjects.Add( _ Izq, Arr, Ancho, Alto) 'Add ChartObject [/CODE] [ATTACH]41432.vB[/ATTACH] No encuentra el ChartObject en el diccionario según se explica en: [DBOX]BUG: Run-Time Error Message -2147417848…