Buenos días, He creado un encabezado en un libro de excel, y de ahí tengo que copiar las columnas de otro libro de excel y pegarlas en la correspondiente columna de mi encabezado Ejemplo: Mi encabezado Servicio -Ruta-Horario y del otro libro tengo Hora-inicio-Vehiculo-Conductor Lo que tengo que hacer es pegar ese hora en Horario, Vehiculo en Ruta y Conductor en Servicio. Muchas gracias si me pueden colaborar

Estimados, Les comento lo que quiero hacer, y la verdad que me estoy volviendo loca buscando la solución. Tengo tablas de más de 50 mil filas y más de 10 columnas, de las cuales debo extraer información. Como lo que tengo que hacer es complicado de explicar, se los muestro con un ejemplo simplificado: A____B___C__D Ert__Bra__5__4 Sdf__Arg__7__6 Sdf__Arg__6__2 Sdf__Bra__5__3 Sdf__Bra__6__2 Sdf__Bra__5__4 Tyu__Arg__6__4 Tyu__Arg__2__3 Tyu__Bra__1__1 Uio__Arg__2__3 Uio__Bra__5__3 Vbn__Bra__4__2 De modo que Sdf debe sumar para Arg 13 en la columna C y 8 en la columna D, y de nuevo Sdf suma para Bra 16 en la columna C y 9 en la columna D. Algo similar sucede p…

Ola que tal disculpen por la molestia, tengo un inconveniente con unos códigos para lograr insertar al FromUser, para un buscador y filtrador en el Textbox, espero que me brinden su ideas, gracias!! Ante mano les agradezco mucho por su atención. Buscadores.rar

Muy cordialmente solicito que los datos cargados se "Guarden en Hoja: Registrar" Combobox Departamento, Municipio, Región,Habitantes .xlsm

Hola, cordial saludo pues nada, resulta que tengo este problema, estoy intentando crear en un formulario 2 combobox y el tema de siempre, uno depende de otro... esto es lo que he intentado hacer, pero de momento no me refresca el segundo combobox... alguna sugerencia me caeria muy bien Private Sub UserForm_Initialize() ComboBox1.List = Array("Red", "Green") End Sub If ComboBox1.Value = ("Red") Then ComboBox2.List = Array("uno", "dos", "tres") ElseIf ComboBox1.Value = ("Green") Then ComboBox2.List = Array("cuatro", "cinco") end if por otra parte si no quiero asignarles el valor como lo hago en este caso a través de un array, si no que el valor los tome de una ce…

Buenos días, expertos por favor me pueden dar una mano con una macro donde me debe mostrar un mensaje si la boleta fue impresa con anterioridad, para que me diga por lo menos se esta duplicando con la impresión de dicha boleta algo así, de lo contrario que me imprima normalmente, por favor los agradecería un montón. Adjunto el archivo Planilla-de-remuneraciones-y-boletas-de-pago-1-1.xlsm

Hola, La pregunta es como hacer que en la ejecucion de un macro de excel, en el que se incluyen varias hojas del mismo libro, al momento de ejecutarlo no se muestren las diferentes hojas que utiliza, es decir no ver el desarrollo del macro hoja a hoja (el macro se demora alrededor de 10 seg en su ejecución) sino más bien algo como un mensaje de dialogo que diga "espera un momento, macro en ejecución"

buenos dias / tardes / noches a todos. mi caso es el siguiente: tengo una tabla donde se listan los años y las precipitaciones maximas de las lluvias mensuales de esos años. al final de cada fila, coloco la lluvia maxima del año y mi meta es colocar en la columna de al lado, el mes en el cual se presento dicha lluvia maxima. a continuacion, cuelgo un archivo donde muestro a partir de la celda O4, el valor que deberia aparecer en ella. gracias a todos por su ayuda. saludos. Para preguntar a al foro - 1.xls

tengo el siguiente problema quiero buscar un código en una hoja de excel en formulario el codigo para buscarlo no tiene ningun problema el problema es cuando la refrencia no esta me saca un error en vez de un menaje espero me puedan ayudar EF = REFERENCIA.Value BUSCAR = Cells.Find(What:=REF, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If BUSCAR Is Nothing Then A = MsgBox("REFRENCIA NO ENCONTRADA") End If BRELOJ.Hide[/CODE]

Hola estoy intentando hacer una macro para descargar unos datos de una web, con este comando, .Open "GET", URL del sitio , False El programa me funciona, pero quiero hacer que la url la coja, de una celda de la hoja de calculo, y no ponerla fija en el código, suponiendo que la web es mipagina.es/folder/123 En la celda de la hoja de calculo, solo se tendría que cambiar el ultimo numero, 123. El resto de la url es constante para todas las consultas.

Estimados quiesira una ayuda para solucionar este entuerto.. llevo dias tratando.. Tengo dos hojas.. en un libro.. necesito comprar una matriz de 5000 registros contra otra que es mucho mas pequeña.. pero tiene los datos de horas de jornada que debo comprar con la hora de jornada de la matriz de 5000 registros.. En el archivo que he subido como ejemplo-- se encuentran marcados las columnas a comprar.. si el rut existe.. revisar el "estab" establecimiento que también puede cambiar entre las hojas. y comprar las Hrs_inte_JOR, y que aparezca en la matriz de 5000 registros otra columna con el dato cambiado si corresponde.. Pinte en amarillo las columnas.. y en magen…

Buenas, me gustaría saber si es posible obtener el nombre o la información de un icono que está en un subitem de un listview. Como veis en la imagen que os adjunto, en el listview se carga los dias de un mes y cada día tiene asignado un icono cuyo nombre es el número.jpg y en el listimage el número se corresponde con su index. Al seleccionar una celda, me gustaría obtener el nombre o el index del icono que contiene. itemSel = ListView1.SelectedItem itemSel..SubItems(2).Icon.name o ActiveIcon,index o algo por el estilo

Buenas amigos foreros: Gracias a la ayuda de ustedes he podido desarrollar varias herramientas con la opción de VB que trae incorporado el Excel. He fabricado herramientas de búsqueda muy completa gracias a la ayuda de ustedes, este foro ah sido de gran ayuda con el tema de Excel y su opción de VB. Con lo que aprendí de ustedes me dentro mas la inquietud del mundo de la programación y ahora estoy programado con VISUAL BASIC 2010. Estoy iniciando a explorarlo. Pido algún programador de acá que tenga más habilidad en el tema pueda evacuar algunas de mi inquietudes como muy amable mente lo ah hecho hasta la fecha. Entiendo que el VB de Excel la programación en si es muy si…

[TABLE=width: 355] [TR] [TD]0 - 500[/TD] [TD=align: right]0.000231135[/TD] [TD=align: right]12.4%[/TD] [/TR] [TR] [TD]500 - 1000[/TD] [TD=align: right]0.000202582[/TD] [TD=align: right]23.2%[/TD] [/TR] [TR] [TD]1000 - 1500[/TD] [TD=align: right]0.000177557[/TD] [TD=align: right]32.7%[/TD] [/TR] [TR] [TD]1500 - 2000[/TD] [TD=align: right]0.000155623[/TD] [TD=align: right]41.0%[/TD] [/TR] [/TABLE] El valor de la barras es el de la segunda columna y quiero colorearlo basado en la tercera columna. Alguien sabe como hacerlo

Tengo una duda Quisiera revisar este archivo de un post anterior muy bueno por cierto; Quisiera Revisarlo y mi duda es si puedo modificarlo osea esto me sirve como una muy buena agenda pero lo que quisiera añadirle es si puedo separarlo por mes psea ahi añadi un listobox (MES) para que con seleccionar el mes Me muestre solo el mes en la Hoja del libro Muchas Gracias Anticipada Mente..! Saludos..!

Muy buenas, amigos les agradesco quien me puede ayudar Actualmentetengo una macro que guarda el inicio de un archivo con este código. With ActiveWorkbook .RunAutoMacros xlAutoClose .Save .Close End With Pero tengo un problema cuando el archivo está en uso,Si el archivo Excel está en uso como puedo hacer para que esta guarde una copia si el archivo está en uso. Gracias - - - - - Mensaje combinado - - - - - En el foro encontre esto, pero quien tenga una mejor idea. Dim XLSLibro_B As Excel.Worksheet 'Se define la variable como hoja Excel Set XLSLibro_B = Workbooks("NOMBRE DEL ARCHIVO").Shee…

Hola, He diseñado una función que detecta el doble click, funciona perfectamente solo que el tiempo máximo entre clicks está siempre fijo, lo he puesto a 500 milisegundos. Me gustaría que este valor lo tomara del valor que le hayamos puesto en el panel de control, apartado Mouse. He encontrado una API donde se supone que extrae ese valor, la declaración es "Public Shared ReadOnly Property DoubleClickTime As Integer" pero no es compatible con VBA6, la api es: SystemInformation.DoubleClickTime Property (System.Windows.Forms) Llevo un buen rato buscando algo compatible con VBA sin suerte, a ver si algún maquina de los de aquí sabría como conseguir adaptarlo a VBA o se le …

Tengo un archivo de excel en el cual contiene botones para ocultar y aparecer filas; sin embargo si agrego comentarios a alguna de las celdas me aparece el siguiente error: "Run-Time error '1004': unable to set the hidden property of the ranges class" Este error solo me aparece si le agrego comentarios a alguna de las celdas; si remueve el comentario la macro vuelve a funcionar correctamente; agrego información adicional: El archivo se encuentra protegido ya que contiene fórmulas que no quisiera que el usuario manipulara. (En otros archivos ya lo he hecho de esta manera y el macro funciona) Hice algunas pruebas colocando comentarios en las celdas D12, D2…

Buenas noches, espero y me puedan ayudar. Soy nuevo en VBA pero quisiera crear una pantalla para una escuela de captura con las siguientes caracteristicas. Que se pueda selecionar primero el grado correspondiente, de ahi se pueda seleccionar el grupo al que pertenece el alumno y despues el listado de ese grupo para seleccionar el nombre de tal alumnos. Todo esto mediante dropdowns. Y cuando se tenga todo eso seleccionado se pueda agregar 15 datos de una examen. A como tengo mi hoja de calculo estructurada es la siguiente forma, tengo una columna con su numero de lista, otra con su grado, otra con su grupo y por ultimo el nombre con las quiente columnas que hay se almac…

Abrir un Libro2 al rellenar una celda en Libro1 Hola a todos Tengo un Libro_1, en la celda A1 tengo la ruta del libro que quiero abrir, es variable (libro2......), y quiero que se abra al rellenar la celda A2, tengo claro que esto se hace con una macro y tengo algunas ideas al respecto, pero no me funcionaron, alguien me podría pasar un código. gracias anticipadas y salud_2

En el documento zip adjuntado he conseguido poner en el commandbutton ENVIAR un código para enviar un mail desde mi cuenta de gmail pero no sé bien como incorporar la transaccion adjuntar archivos y si debería añadir algún cuadro de texto en el formulario para adjuntar la ruta del archivo o si puede aparecer como opcion ¿Pueden ayudarme? enviar email.zip

Buenas, necesito ayuda con esta macro. La vengo usando hace ya años, pero de repente sale este error: "Error '1004' en tiempo de ejecución", pero no consigo saber a qué se debe. Además sólo pasa de vez en cuando. ¿Alquien podría echarme una mano? Sería en la hoja de presupuesto: creando capítulos y añadiendo partidas (es al crear nuevas partidas cuando falla). Muchas gracias por adelantado!! Estoy intentando subir el archivo en zip pero no me deja, ¿cómo lo podría subir?

Buen dia a toda la comunidad, quisiera realizar una busqueda de la hoja consulta legajos segun lo siguiente: 1.- en el boton de la primera opcion que realiza la busqueda por (Apellidos y Nombres) segun corresponda a cada usuario. 2.- en el boton de la primera opcion que realiza la busqueda por (Cod. Modular) segun corresponda a cada usuario. Adjunto archivo, Espero sus brillantes aportes e ideas.. Saludos formula_buscar (2).rar

Buenas, tengo una inquietud, alguien me podria ayudar con un macro para asignar nombres de rango desde valores de celda segun el archivo que adjunto espero su comentario. Salu2 Esto lo consegui con esta macro, genera una hoja con los nombre definidos de los rangos del libro. Sub List_All_Defined_Names() Set NewSheet = ActiveWorkbook.Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names NewSheet.Cells(i, 1).Value = nm.NameLocal NewSheet.Cells(i, 2).Value = "'" & nm.RefersToR1C1Local i = i + 1 Next End Sub[/CODE] Ejemplo nombres de rango.rar

Sería posible mostrar todos los formularios de un libro en un listbox ? a ver si alguien me ilumina porque estoy totalmente nublado. Gracias