Expertos, muy buenos días necesito una ayuda con un pequeño archivo que contiene dos hojas llamados tiempos y reportpiloto en la cual en la hoja tiempo alimento datos y en la hoja reporte consulto cuando ingreso en la celda A1 un numero me debe filtrar solo ese numero pero la macro que lo e ingresado me muestra todo los números coincidentes, quiero que por favor una ayuda, por ejemplo si en la celda referida A1 ingreso 1 que me filtre en la tabla dinámica el 1 y si ingreso 2 así me filtre solo la 2 así hasta llegar a 100. Adjunto el archivo por favor. Control.xlsm

buen dia amigos del foro como estan, amigos por favor me ayudan con este problema que tengo,con el buscador de ecel me falta los sigiente: envio el ejemplo: en la hoja 1 (datos )tenemos la informacion y en la hoja 2 (busqueda) tenemos lo la busqueda de la hoja 1(datos) peroooo lo que no e podido hacer que al digitar en el conteo de la hoja 2 (busqueda) me saldo al codigo correspondiente, si busco el codigo 1212 al digitar 30 me salgo automatico en la hoja 1(datos) y si busco otro codigo que al digitar se coloque en la casilla y fila correspondiente espero que me ayuden plisssssss¡¡

Hola a todos: Quisiera diseñar un macro que me permitiera unir 20 columnas de 15 filas y luego ordenar los números de la macrocolumna de forma que yo pueda saber las veces se repite cada número y mostrar el resultado en una tabla con la disposición de las veces que se repite cada número. Saludos

Buenas tardes, llevo dándole vueltas a una idea que se me ha ocurrido para hacer más eficientes las clases particulares de inglés que imparto. Tengo una colección aproximada de más de 3000 ejercicios, y claro, cada uno es un mundo diferente: dificultad, tema de gramática, respuesta... Mi pregunta es que si sería posible hacer una macro (no tengo ni idea de cómo empezar) que me permitiera hacer lo siguiente: En base a una base de datos u hoja de cálculo con los siguientes datos (código de referencia, enunciado/oración, respuesta 1, respuesta 2, dificultad y categoría), poder extraer aleatoriamente una cantidad determinada de entradas/líneas de una categoría o dif…

HOLA A TODOS, Y DE ANTEMANO GRACIAS POR LA AYUDA QUE SIEMPRE NOS BRINDAN, TENGO UN FORMULARIO QUE TIENE VARIOS COMBOBOX, Y UN BOTON DE AGREGAR, PERO COMO ESTE FORMULARIO ES INDEPENDIENTE, LO QUE QUIERO ES CARGAR LOS DATOS DESDE OTRO COMO SE MUESTRA EN LA IMAGEN, PERO ME RESALTA UN ERROR, Y AGRADECERÍA QUE ALGUIEN PUEDA BRINDARME UNA SOLUCION, ESTE ES EL CODIGO QUE TENGO DENTRO DEL FORM, Private Sub CmdAgregar_Click() If Trim(Me.txtcantidad.Text) = "" Then MsgBox ("DEBES INGRESAR LA CANTIDAD !!!"): Exit Sub If Me.CmbArticulo.Text = "" Then MsgBox ("DEBES INGRESAR UN ARTICULO !!"): Exit Sub With frmCentral .txtArticulo.AddItem (Me.CmbArticulo.Te…

Hola a tod@s. Tengo una aplicación muy sencilla aparentemente que no se como terminar y espero que alguien pueda arrojarme algo de luz. Tengo una Tabla dinámica con unas columnas y quiero cargar los datos de dos columnas desde un Formulario. Una de estas columnas es una Fecha y el problema es que al copiar el TextBox de fecha en la casilla correspondiente, no me reconoce el formato de Fecha. He mirado en muchos foros y probado múltiples posibilidades (hasta trocear la fecha en día, mes y hora y luego "pegarlas" de nuevo, he probado con el comando Format, etc y no hay solución. cunado me refiero a que no me reconoce la fecha es que cuando meto la fecha con el Formulari…

Hola chicos, tengo un cuadrito que marca algunas personas que han bajado del promedio y quisiera poder enlistarlos aparte uno tras otro sin dejar blancos, me ayudan por favor? En base a la calificación se tiene que dar el nombre del individuo y el día en que reprobó, gracias por su apoyo! lista aparte.zip

FEDERACION DE ENFERMERAS ..... ESTIMADOS COLEGAS: NECESITO AYUDA EN UN FORMULARIO DE FILTRO DE DATOS. 1. QUISIERA PODER LLENAR EL ListBox SELECCIONANDO MI ComboBox1 que se encuentran todas las hojas 2. NO PUEDO FILTAR LA INFORMACION QUE HE SELECCIONADO MEDIANTE El comboBox TIPO DE DOCUMENTO NI POR ASUSNTO. ADJUNTO ARCHIVO. SE ENCUENTRA EL EN FORMULARIO 2 Reg_de_Doc_Despacho_Viceministerial.zip

Buenos días Tengo que agradecer por toda la ayuda brindada en el pasado Tengo un proyecto de completar un archivo de Word con información de Excel para eso he tratado con el siguiente código: Sub A_crear_word() mi_carpeta = ActiveSheet.Range("A2") Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=mi_carpeta, NewTemplate:=False, DocumentType:=0 For I = 3 To 8 busqueda = ActiveSheet.Range("B" & I).Text remplazar = ActiveSheet.Range("A" & I).Text With objWord.Selection.Find .Text = busqueda .Replacement.Text = remplazar .Execute Replace:=2 End …

en el forms que hice tengo un texbox que se llama txtlockers y carga datos en la planilla excel en la columna 5 pero me lo carga como si fuera texto y quiero que sea pesos. No me deja subir el archivo porque me dice que es muy grande que alguien me ayude, muchisimas gracias Juan

Buenas Tardes: Es la primera vez que hago una consulta, pero hace tiempo que visito la página. Les cuento que trabajo en una empresa que provee personal de seguridad a quienes nos contratan. El tema es que cada vigilador se reporta a una Base de Operaciones indicando el horario de entrada y salida. Para efectuar el control, diagramé un userform al cual se le debe ingresar el id del cliente, el numero de día de la semana y oprimir el boton consulta. Ahí el formulario trae los horarios en que se debe presentar el vigilador. El operador de base debe ingresar el nro de legajo y aparece el nombre y apellido y luego presionar el boton ingresar datos. Todo f…

Buenas noches: Tengo el siguiente macro que lo acomode a mi utilidad Sub Copiar_a_RecKardex() For Each Hoja In Worksheets If Hoja.Name <> "REC" Then 'Comprobamos antes si la hoja está entre las mencionadas en la columna R Dim qRangoR As Range 'Set qRangoR = Application.Intersect(Columns("P:P"), Hoja28.UsedRange) Set Origen = Range("P2") For Each cell In Origen If cell.Value = Hoja.Name Then 'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row …

Buenas noches, He recibido muchas recomendaciones de este foro, de la calidad de personas que lo administran y de que llegan a solucionar problemas que aveces parecen imposibles. En esta oportunidad quiero dejarles un archivo que me ha provocado varios dolores de cabeza. Todo esta especificado en el archivo, pero cualquier consulta me la hacen llegar. Desde ya les agradezco enormemente sus opiniones y apoyo. Noriega. Noriega Archivo_2003.xls

Buenas noches, En el correo adjunto podéis ver el módulo para el envío de una selección de celdas de excel en el cuerpo de un mensaje enviado por Outlook. La información está recogida de la página de Ron de Bruin. Tengo un problema: Lo incluido en el cuerpo del mensaje no sé cómo hacer para que pueda imprimirse por el receptor, ya que queda cortada la parte dcha del cuerpo del mensaje, tal como se ve en la imagen que he pegado en la hoja. ¿Alguien sabe cómo manejar la conversión en HTML para que quede dentro de la zona de impresión del mensaje? Gracias, Juan. PD: Necesito hacerlo en esta modalidad´, no como pdf u hoja excel adjunta. Email de selección pegada en el m…

Buenas tardes amigos Nesecito su valiosa colaboracion para poder resumir un conjunto de datos de un listado en otro listado , esto lo necesito hacer sin la ayuda de una tabla dinamica la cual no me es funcional en el proyecto que estoy haciendo. les dejo el adjunto con el ejemplo que quiero hacer agradeciendo de antemano Saludos cordiales Ejercicio.xls

Hola a Todos, Soy nueva en el tema de los Macros, en realidad es el primero que hago, y no se por donde empezar, espero que me puedan ayudar. Tengo un archivo de Excel como el que estoy adjuntando y lo que quiero es que se envien todos los datos que correspondan a cierto a cliente a su correo, por supuesto me falta agregar la columna para el correo de cliente. Me pueden ayudar? De antemano, muchisimas gracias Customer_Outstading_Prueba_2.xls

Buenos dias a todos: Espero que me puedan ayudar, no se mucho de macros pero viendo tutoriales he podido listar los archivos de una carpeta a través de listado de nombres de una ruta y posteriormente tengo una macro que mueve los archivos de la carpeta "A" a la carpeta "B", pero los mueve todos, a mi me gustaría que solo moviera los que filtro. Sub MoverArchivos_Trabajo_en_curso_a_Compartido() Dim MiArchivo As String MiArchivo = Dir("D:\Users\carodrigueza\OneDrive - FCC\Prueba planos vigentes\01 Trabajo en curso\*") If MiArchivo = "" Then MsgBox "No hay archivos a mover.", vbExclamation, "torpe" Else Do Until MiArchivo = "" …

Saludos a todos, con la nueva disyuntiva. Tengo una base de datos, la cual adjunto. Lo explico breve mente, tengo una base de datos la cual cuenta de mas de 1000 filas, anexo solo tres. estas filas presentan un concepto de material el cual esta delimitado por este caracter "|". Lo que necesito es separar en cada fila cada concepto separado por este carácter. Anexo ejemplo apara mejor ejemplificacion. De antemano muchas gracias por su ayuda separar por caracteres.xlsx

Hola amigos de Ayuda Excel Tengo el siguiente código que sirve para insertar filas en una hoja (la cual es copiada de la fila 5 y pegada en la primera fila disponible de la columna A. Quiero agregarle una condición al código que evite pegar la fila si la celda de la fila activa correspondiente a la columna K es igual a 0. Es decir que no la copie. Sub Insertarfila() Application.ScreenUpdating = False Dim ult As Long ult = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A5:K5").Select Selection.Copy With ActiveSheet.Range("a" & Rows.Count).End(xlUp).Offset(1) .PasteSpecial Paste:=xlPas…

Buenas, estoy con un excel el cual voy rellenando con ejemplos sacados de internet y asi voy aprendiendo, la verdad que hasta ahora me voy defendiendo y cada dia es mayor el codigo y con mas macros incluidas, pero ahora estoy encajonado en algo que creo que es seguro muy simple de hacer, pero yo no lo consigo, tan simple como que en una hoja guardo un historico de datos y realizo una busqueda de un dato que se puede hallar en el historico y resulta que el programa me lo halla, pero no me lo muestra (Os pongo un ejemplo) Me refiero que hago la busqueda y el dato que yo busco se encuentra por ejemplo en la fila 3689, automaticamente el programa lo encuentra, pero no me lo…

Buenos Dias, Comentandoles, que tengo un archivo con Macros el cual lo pase como Complemento Add-In que contiene 2 procedimientos este disponible en cualquier Excel que se abra, esto es, porque para el procedimiento 1 que es la conversion de Listas de Materiales (BOM) sea mas sencilla para el usuario y que no este teniendo que abrir el archivo de macros para ejecutar la conversion, pero porque? Bueno, el BOM se genera desde un ERP Epicor en un archivo de Excel simple, pero no esta formateado, la macro lo que hace es, crear una nueva hoja en ese libro con la informacion del BOM, y complementa las descripciones de los productos que quedaron truncadas en el report…

Hola Me gustaría saber como he de formular una macro para que una vez acceda a una determinada web búsque si en ella hay algun enlace que empieze por "blablabla?ID=..." y si lo hubiese clicar en el y si no avise de que no lo hay. Dicho enlace siempre empieza por "DriverProfile.asp?ID=" y siempre se encuentra alojado en el mismo lugar del html de haberlo, pero puede darse el caso de no estar... en función de quien visite la web. Sólo necesitaría conocer cómo formular esa consulta.. el resto del código (acceder a la web etc ) lo tengo armado. La estructura donde se encuentra el elemento a buscar dentro del html de la web es ésta: <table cellspacing="0" cellpaddin…

Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente: en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX". adjunto ejemplo Sub ANEXO() ' Sheets(Array("CASA", "PEZ")).Select Sheets("PEZ").Activate Sheets(Array("CASA", "PEZ", "total")).Copy Sheets("CASA").Select ActiveSheet.Protect "XX" …

Estimados amigos. La ayuda que necesito de ustedes es la siguiente. Tengo un gráfico dinámico tipo stacked column. Deseo que cuando le de click en alguna de las barras del gráfico me capture en alguna celda el nombre o la informacion del cuadro donde di el click. Ya he logrado capturar el nombre de la persona con este codigo Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)Dim Eje As AxisDim NombreEje As String 'ElementID debe ser igual a xlSeries'La primera vez que se da clic en la gráfica se selecciona toda la serie'Esto se comprueba si el valor de Arg2 es -1 If ElementID <> xlSeries Or Arg2 = -1 Then Exit Sub 'Seleccio…

Neesito vincular el Valor de na Celda, al desplazamiento que de un Deslizador, insertado de Microsoft Slider Contro, versión 6.0 Solicito que me colaboren Gracias EMIRO ERAZO Deslizador de Excel.rar